Macro para verificar se tem texto

[krathuss]

Olá amigos

preciso de ajuda urgente preciso de uma macro que verifique na "plan2"

Celula "B6"

preciso que ela verifique b6,b7,b8,b9,b10.....e assim vai verificando se tem texto ela continua e ela precisa parar numa celula em branco por exemplo

cel B6 até a celula B 22 tem escrito algo então na macro preciso que ela verifique se tem texto ela vai pra outra celula e quando chega numa celula que está em branco ela para tem como fazer?

obrigado pela atenção

[zinhovba]

Boa noite!!!

Pesquisando encontrei isso..faça uma adaptação.

Sub ChecarCelulas()


Dim LastRow As Long
    Dim Cell As Range

    LastRow = Range("B" & Rows.Count).End(xlUp).Row

  If WorksheetFunction.IsText(Range("B" & LastRow)) = True Then
    Call LastRowInOneColumn
     Else
    Exit Sub
   End If

End Sub
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
    MsgBox "Ultima Célula Usada" & " " & LastRow
End Sub

[krathuss]

Boa noite!!!

Pesquisando encontrei isso..faça uma adaptação.

Sub ChecarCelulas()


Dim LastRow As Long
    Dim Cell As Range

    LastRow = Range("B" & Rows.Count).End(xlUp).Row

  If WorksheetFunction.IsText(Range("B" & LastRow)) = True Then
    Call LastRowInOneColumn
     Else
    Exit Sub
   End If

End Sub
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
    MsgBox "Ultima Célula Usada" & " " & LastRow
End Sub

isso me ajuda muito pois com essa macro ela ja identifica qual a ultima celula que tem caracteres agora preciso q mandar ela selecionar a celula vazia automatico ou seja , ela identifica que a celula 22 é a ultima que tem caracteres dai automaticamente ela tem que selecionar a celula 23 que esta vazia tem como?

muito obrigado pela ajuda

[Carlos7x]

Krathuss,

você pode acrescentar a linha

Range("B" & LastRow + 1).Select

Carlos

[Patropi]

Bom dia krathuss

Tentando contribuir ao mesmo tempo que vou aprendendo VBA, acrescentei a linha de código que o colega Carlos7x postou no código do colega zinhovba, e funcionou perfeitamente.

http://www.sendspace.com/file/ltoie3

Um abraço.

[krathuss]

Muito obrigado ajudou e muito valeu mesmo abs

[Douglas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.