1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

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

Discussão em 'Microsoft: Discussão Geral' iniciada por Jorge23, 5 de Janeiro de 2019. (Respostas: 2; Visualizações: 349)

  1. 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
     
  2. jluisfer

    jluisfer Power Member

    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
     
  3. jluisfer

    jluisfer Power Member

    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
     

Partilhar esta Página