Saberexcel - o site de quem precisa Aprender Microsoft Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere mensagem na statusbar, retornando o nome da folha de planilha, a célula selecionada e também o valor da célula ativa. observe que também o Evento Worksheet_SelectionChange da folha de planiha,
ao selecionar a célula (B2), verifica se a célula(M3) está vazia, insere uma determinada frase, caso contrario, se nao estiver vazia, inser o conteúdo da célula na coluna(G).

NO MÓDULO DE EDIÇÃO DE CÓDIGO DO OBJETO WORKBOOK INSIRA O PROCEDIMENTO VBA
'Observe que esse Evento sensibilizará todas as folhas de planilhas do Livro
'Evento(Workbook) afeta todo (Livro) ---- Evento(Worksheet) afeta as folhas de Planilhas individualmente.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
On Error Resume Next ' em caso de seleção de várias células
Application.StatusBar = "Planilha Atual: [" & Sh.Name & "] :" _
& "Célula Selecionada [ " & Target.Address & " ] Valor da célula [ " & Target.Value & " ]"
End Sub

'quando você desativar o livro ativo, limpará a statusbar, selecionando outro livro,
'se não houver essa linha de código, a última mensagem permanece no livro ativo.

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.StatusBar = ""
End Sub

NA FOLHA DE CÓDIGO DO OBJETO WORKSHEET(FOLHAS DE PLANILHAS) INSIRA OS PROCEDIMENTOS VBA
Esse procedimento com evento Worksheet Change (ao digitar) só é sensibilizado se for digitado alguma coisa na célula (B2)

'Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
' MsgBox ("saberexcel - o site das macros")
'End If
'End Sub


Verifica se a célula(M3) está vazia, insere uma determinada frase, caso contrario, se nao estiver vazia, insere o
conteúdo da célula na coluna(G).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'[G1].Select
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
[G65000].End(xlUp).Offset(1, 0).Select
If [m3].Value <> "" Then
ActiveCell.Value = [M3].Value
Else
ActiveCell.Value = "Saberexcel - site das macros"
End If
End If
End Sub

Observe que inserí os procedimentos activate nas folhas de planilha
ao serem ativadas(selecionadas), vão selecionar determinadas células
para visualizar a mensagem na statusbar da folha de planilha.

Private Sub Worksheet_Activate()
[F10].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

Publicidade
Compre com segurança, garantia e ótimos preços

b