Macro - Loop até encontrar celula vazia

[srbalboa]

Pessoal

Andei pesquisando e não encontrei. Tentei adaptar, mas também não consegui.

Seguinte:

Preciso de uma macro que execute um loop da célula b10 até a b100...

Como funcionaria:

A macro vai analisar a celula b10 da plan1... Se essa celula nao estiver vazia, a macro vai copiar o conteudo da celula b10 e colar celula b10 da plan2... isso se repete com as demais celulas..por exemplo....se a B11 da plan1 nao estiver vazia, ela vai copiar o conteudo da b11 e colar na b11 da plan2...

a macro vai rodando por toda coluna B até o B100... se ela encontrar alguma celula vazia, vai parar e dar a mensagem "tarefa concluida...".

Alguem pode me ajudar?

[zinhovba]

Bom dia!!

Tente

Sub TenteIsso()
    With Sheets("Plan1")
        .Range(.Range("B1"), .Range("B65536").End(xlUp)).Copy
    End With
    Sheets("Plan2").[B65536].End(xlUp)(2).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
End Sub

Att

[srbalboa]

Muito obrigado pela resposta...

Mas eu preciso de uma macro que faça o passo a passo... Que vá percorrendo e copiando célula por célula.

Isso porque eu irei adicionar alguns outros códigos em cada passo.

Tipo: Ele tem q pegar e analisar a celula B10. Se ela tiver algo, ele vai copiar e colar na plan2. Depois vai voltar e analisar a celula B11. Se ela estiver vazia, vai parar de rodar a macro. Caso contrario, vai copiar a colar na plan2... E assim por diante.

[Márcio Rodrigues]

Olá srbalboa

Tente isto:

Sub VarrerColunaB()

For i = 1 To 100

If Sheets("Plan1").Range("B" & i).Value <> Empty Then

Sheets("Plan2").Range("B" & i).Value = Sheets("Plan1").Range("B" & i).Value

End If

Next i

End Sub

Té +

Márcio