Copiar de uma célula para outra VBA

G

gregurs

Membro
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")
 
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
 
Inicie sessão ou registe-se para poder participar.
Back
Topo