- 10 Dez 2022 às 16:12
#72531
Boa tarde
Sei que os feras ai vão tirar de letra, eu estou apanhando um pouco
Coluna A Coluna B Coluna C
11 1 102
11 2 102
12 1 121
13 1 152
14 1 110
15 1 86
15 2 86
Enquanto a Coluna A for "11"(Cod) e a coluna C for "102"(Apto) escreva na coluna V (=Now())
linha1 = ActiveCell.Row
While Cells(linha1, 0) = Cod And Cells(linha1, 5) = Apto
If Cells(linha1, 1) = Cod Then
If Cells(linha1, 5) = Apto Then
ActiveCell.Offset(0, 20) = Now()
'ActiveCell.Select
'GoTo Fim
Else
End If
End If
linha1 = linha1 + 1
'End If
Wend
Obrigado
Sei que os feras ai vão tirar de letra, eu estou apanhando um pouco
Coluna A Coluna B Coluna C
11 1 102
11 2 102
12 1 121
13 1 152
14 1 110
15 1 86
15 2 86
Enquanto a Coluna A for "11"(Cod) e a coluna C for "102"(Apto) escreva na coluna V (=Now())
linha1 = ActiveCell.Row
While Cells(linha1, 0) = Cod And Cells(linha1, 5) = Apto
If Cells(linha1, 1) = Cod Then
If Cells(linha1, 5) = Apto Then
ActiveCell.Offset(0, 20) = Now()
'ActiveCell.Select
'GoTo Fim
Else
End If
End If
linha1 = linha1 + 1
'End If
Wend
Obrigado