Quantcast
Channel: loop Do While Não funciona
Viewing all articles
Browse latest Browse all 2

loop Do While Não funciona

0
0

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


Viewing all articles
Browse latest Browse all 2

Latest Images

Trending Articles





Latest Images