Olá,
Tenho uma planilha declarada como rgn1 que está em um diretório e será carregada dentro do arquivo com o vba. Toda vez que ela for carregada vai ser adicionado uma coluna (L). Nessa coluna existe uma condição. Que se a coluna K (são datas) não for nula vai retornar 'Ok' e se for 'Não Ok'.
Fiz o código, mas não está retornar 'Não Ok' nas linhas nulas, apenas o 'Ok' em todas as linhas.
O código é esse:
Ln = 2
Do While rng1.Cells(Ln, 1).Value <> ""
If Not IsNull("K:K") Then
Cells(Ln, 12).Select
Cells(Ln, 12).Value = "Ok"
Else
Cells(Ln, 12).Value = "Não Ok"
End If
Ln = Ln + 1
Loop
O do while só funciona quando tem informação na coluna A, apenas pra manter o loop, já que essa coluna nunca vai ter linhas vazias