Excel VBA Planilha cursor 17 formata célula ativa anos

Planilha Excel VBA cursor 17 formata célula ativa anos

Excel VBA Planilha cursor 17 formata célula ativa anos
SBX CURSOR FORMATA CÉLULA ATIVA EXCEL
Esse exemplo com Eventos de Planiha SelectionChange e Change, Microsoft Excel VBA(Visual Basic Application), formata em azul a célula ativa, observe também que fiz um macro para extrair os dados ao ser comparados com o (Ano) escolhido na lista suspensa na célula I7, os dados são extraidos para coluna ‘J”, e faz a soma dos referidos dados e insere duas linhas abaixo na coluna(K), se observar usei a coluna(A) para uma contagem de linha, para limpar a os valores extraidos para a entrada de novos valores a serem extraidos. É um excelente exemplo para treinamento com VBA, simples, porém com muita objetividade e eficaz. Só pra voce ver fiz uma fc(formatação Condicional) junto com a formatação por macros (celula Ativa). “então pode sim usar as duas coisas”

‘//========= FC(formatação condicional)
– formulas usadas na formatação
=ANO($F5)=$I$7
‘//=========
Para fazer uma fc(Formatação Condicional, primeiramente voce tem que selecionar a área de células onde deseja inserir a ‘fc’ em seguida acessar a caixa de diálogo Fc(Formatação condicional, para inserção da Fórmula. A Caixa de dialogo FC (Formatação Condicional) fica na Aba de Menu > Formatar > Grupo de Estilo > Formatação Condicional
‘//========= PROCEDIMENTOS USADOS EVENTOS:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = “$I$7” And Target.Count = 1 Then
sbx_extrair_valores_criterio
End If
End Sub
‘//==============’
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C5:F33], Target) Is Nothing And Target.Count = 1 Then
[C5:F33].Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 33
End If

If Target.Address = “$I$7” And Target.Count = 1 Then
SendKeys “%{down}” ‘abrir a lista suspensa automaticamente ao selecionar a célula(I7)
End If
End Sub
‘//================’
Sub sbx_extrair_valores_criterio()
Dim i, wLin As Long
Dim tSoma As Double
wLin = 16

x = Cells(Rows.Count, “a”).End(xlUp).Row + 2
Range(Cells(16, “j”), Cells(x, “m”)).Clear

For i = 5 To Cells(Rows.Count, “c”).End(xlUp).Row
If Year(Cells(i, “f”)) = Cells(7, “I”) Then
Cells(i, “c”).Resize(, 4).Copy Cells(wLin, “j”)
tSoma = tSoma + Cells(i, “e”).Value
wLin = wLin + 1
End If
Next i

Range(Cells(16, “j”), Cells(x, “m”)).ClearFormats
Cells(wLin + 1, “j”).Value = “Total….:”
Cells(wLin + 1, “k”).Value = Format(tSoma, “##,###,##0.00”)
Range(Cells(16, “l”), Cells(x, “l”)).NumberFormat = _
“_-[$R$-416] * #,##0.00_-;-[$R$-416] * #,##0.00_-;_-[$R$-416] * “”-“”??_-;_-@_-”
Range(Cells(16, “m”), Cells(x, “m”)).NumberFormat = “m/d/yyyy”
End Sub
‘//================’
Sub sbx_limpar_teste()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(Cells(16 + 2, “j”), Cells(x, “m”)).ClearContents
End Sub
‘//================’