Vba para repetir "x" vazes determinadas células excel

[Jorge23]

olá,

Preciso de uma ajuda com um código VBA.

Preciso que ao inserir um número na célula "F" as células dessa linha sejam repetidas para as linhas abaixo esse determinado numero de vezes.

Ou seja, se colocar na célula "F" o numero 20, automaticamente são preenchidas 20 linhas com os valores da linha original.

Será que alguém me pode dar uma ajuda. obrigado

 

[jluisfer]

Não sei se percebi bem mas cá vai

Este código deve ser introduzido na evento change da folha
dim linha as integer
dim coluna as integer
dim i as integer

linha=target.row
coluna=target.column

for i=1 to me.cells(linha,coluna)
me.cells(linha+i,coluna)=me.cells(linha,coluna)

next i

 

[jluisfer]

Se a celula que comanda as outras é sempre na mesma linha podes pôr antes do codigo que indiquei isto

If target.row=3 then -> assim o código só é executado sempre que mudas algo na linha 3 da folha em qualquer coluna

(codigo na resposta anterior)

endif

se quiseres restringir também a coluna colocas

If taget.row=3 and target.column=2 then -> assim o código só é executado sempre que mudas o valor da celula que está na linha 3 e coluna 2 ou seja B3