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

Copiar de uma célula para outra VBA

Discussão em 'Programação' iniciada por gregurs, 21 de Setembro de 2012. (Respostas: 2; Visualizações: 3356)

  1. Boa tarde, estou a fazer um trabalho em excel para registar os documentos processados(faturas,guia de transporte,etc) onde tenho uma coluna(B) onde digo qual é o documento(fatura,guia de transporte,nota de crédito,etc) e noutra coluna(Q) onde digo o valor do documento (€) e ao inserir este valor o excel copia o valor para a coluna(W) se for fatura, senão copia para a coluna(T). Eu tenho este código para a primeira linha mas como é que faço para ele fazer para todas as linhas?

    If Range("B12") = "FT" Then
    Range("W12") = Range("Q12")
    Else
    Range("T12") = Range("Q12")
     
  2. Refugado

    Refugado Power Member

    Tens de fazer um ciclo.

    For linha = 1 To 100

    If Folha1.Cells(linha,"B") = "FT" Then
    Folha1.Cells(linha,"W") = Folha1.Cells(linha,"Q")
    Else
    Folha1.Cells(linha,"T") = Folha1.Cells(linha,"Q")


    End If
    Next linha
     
  3. Obrigado problema resolvido
     

Partilhar esta Página