Excel VBA Seleionar próxima celula na culuna = 0

[Flávio Neuenschwander]

Estou com um problema, tenho uma lista com valores preenchidos com 0, e gostaria que ao utilizar o botão ele selecionasse a próxima célula diferente de 0.

Ex: Range("B1048576").End(xlUp).Offset(1, 0).Select

Seleciona a próxima célula vazia abaixo na coluna B... No meu caso, a coluna está toda preenchida com 0, gostaria do mesmo efeito desta função porém para valores maior ou diferentes de 0, e nesta selecionada, colocar o valor 100.

 

Obrigado pela atenção. 

[André_Arruda]

Sub fill_column()
Dim lr, i As Long, my_plan As Worksheet, _
my_val, l_below, v_ignore As Long

Set my_plan = Plan1 'planilha de trabalho
my_val = 100 ' que valor deve ser inserido?
l_below = 1 'inserir valor quantas linhas abaixo?
v_ignore = 0 'valor que o código deve ignorar

lr = my_plan.Range("B" & Rows.Count).End(xlUp).Row
    
For i = lr To 1 Step -1
    Select Case my_plan.Range("B" & i).Value
        Case Is = v_ignore
            GoTo prox
        Case Is <> v_ignore
            my_plan.Range("B" & i + l_below).Value = my_val
            GoTo The_end
    End Select
prox:
Next
The_end:
End Sub

 

[Flávio Neuenschwander]

Testei e está dando Erro 424.

[André_Arruda]

pode postar sua planilha?