Inquiridor
Comparar datas e escrever o resultado em outra coluna

Pergunta
-
Peço ajuda para criar um código em VBA de comparação de datas.
Tenho datas da linha 1 a linha 20 nas "C" e "D".
Gostaria de comparar as colunas "C" e "D" e escrever na coluna "A" o resultado da maior data (data mais recente).
Agradeço desde já pela ajuda.
abc,
Claudio
Todas as Respostas
-
-
Filipe, desde já agradeço o retorno. Utilizando função eu sei fazer, tb poderia ter utilizado if.
O que eu quero realmente é fazer isto utilizando o FOR NEXT e escrevendo a data mais recente na coluna A por meio do VBA.
E no caso específico, forçar que as células da coluna A onde eu fosse escrever, serem forçosamente um campo do tipo DATA.
Estou dando meus primeiros passos no VBA, no conhecimento das funções eu já evolui razoavelmente bem.
Eu sei que devo utilizar a função CELLS e definir uma variável para alterar a linha, mas não entendi como faço para construir a comparação, como variar a comparação e nem como escrever o resultado da comparação na células da coluna A .
Se puder me ajudar nesse código eu agradeço muito.
E também não entendi porque esse post está com variação no tamanho da fonte.
Abc,
Claudio
-
Olá, boa noite.
Segue uma forma simples de fazer:
Dim i As Long, lFim As Long Dim ws As Worksheet lFim = 20 'Linha final Set ws = ActiveSheet For i = 1 To lFim If ws.Cells(i, 3).Value > ws.Cells(i, 4).Value Then ws.Cells(i, 1).Value = ws.Cells(i, 3).Value Else ws.Cells(i, 1).Value = ws.Cells(i, 4).Value End If Next ws.Range(Cells(1, 1), Cells(1, lFim)).NumberFormat = "dd/mm/yy"
É uma forma bem simples, daria para incrementar bastante. Mas se tiver dúvida é só perguntar.
Abraço.
Filipe Magno
-
-
-
Filipe,
Obrigado pelo retorno, funcionou.
O engraçado é que eu havia feito isso antes e não funcionou. Pelo menos vi que meu raciocínio estava correto, porque era só fazer a variável pegar o incremento na linha.
De qualquer forma agradeço pela atenção.
Como estou evoluindo posteriormente irei postar uma dúvida sobre array e for next dentro de outro for next.
Abc,
Claudio