Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esse macro do aplicativo Microsoft Excel VBA(visual Basic Application), localiza a última linha e próxima em branco em colunas representadas por meses, após a seleção do mês desejado na célula(B1), observem que usei o Evento_Change do Objeto Worksheet(Folha de Planilha), que é sensibilzado ao selecionar o mês.  Espero que o exemplo sirva. Fique com Deus, Expedito Marcondes

Sub procurar_palavra()[B1].Select
    Cells.Find(What:=Range("B1").Value, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Select
        ActiveCell.End(xlDown).Offset(1, 0).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b1")) Is Nothing Then
procurar_palavra
End If
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



 Baixe o exemplo de planilha contendo o macro acima
Excel planilha vba localizar ultima celula baseado criterio mes (22.72 KB)