Outro Código VBA - Sequencial Automático

Alexafr · 31 de agosto de 2020

Prezados, bom dia!

Estou começando a aprender a programação do VBA (Excel), e estou tentando criar um código com sequencial na coluna A, desde que a respectiva linha na coluna B esteja preenchida. Até consegui fazer, de uma forma bem iniciante, porém gostaria que a condição fosse para toda a coluna A validando com a respectiva coluna B.

Exemplo de Fórmula: SE(B2 <> "";A2=1; SE(B3 <> "";A3=A2+1; SE(B4 <> "";A4=A3+1 ........etc.

Private Sub Numerador()
If Range("B2").Value <> "" Then
Range("A2").Value = 1
Else
Range("A2").Value = ""
End If
If Range("B3").Value <> "" Then
Range("A3").Value = Range("A2").Value + 1
Else
Range("A3").Value = ""
End If

End Sub

É possível fazer uma única condição que abrange toda coluna ?

Desde já peço desculpas caso seja uma dúvida muito simplória, pois estou iniciando neste aprendizado.

Aproveite para agradecer antecipadamente.

Att,

Alex

Midori · 31 de agosto de 2020

@Alexafr Use uma estrutura de repetição/loop, p.ex da linha 2 até 20,

Private Sub Numerador()
    Dim L, N  As Integer
    
    L = 2
    
    Do While L <= 20
        If Cells(L, 2) <> "" Then
            N = N + 1
            Cells(L, 1) = N
        Else
            Cells(L, 1) = ""
        End If
        L = L + 1
    Loop
End Sub