| Descricao: |
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
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
|