Este fórum está sendo desativado

[andriessen]

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