Excel VBA Treinamento instruções For Each e For Next Marciel

Planilha Excel VBA cursor 17 formata célula ativa anos

Estes Macros do Aplicativo Microsoft Excel VBA, foi gentilmente enviado pelo nosso aluno Marciel, que fez o teste baseados nas Video Aulas Estudos (Células e Range VBA Macros). o que agradeço imensamente.
Assine e acesse: Excel VBA – Video Aulas – Células e Range

‘//========’
‘PARECER.
‘sempre usar o nome dos macros em letras minusculas, (estetica melhor), mas funciona do mesmo jeito
Ex: sbx_teste_1
‘usar em letra maiuscula somente o nome de objetos após o prefixo,
‘textbox,labels,formularios,listboxes,etc..
‘ex: txtPAGAMENTO,lblRECEBIMENTO, lstBUSCA, cmdFECHAR, frmPRINCIPAL,
‘porque quando você digitarr txtpagamento o vb transformará em txtPAGAMENTO,
‘se não alterar é porque você digitou errado, ex: txtpagmento

‘//=============’
‘Teste com as vídeo aulas Escola Saberexcel pelo aluno Marciel
‘que gentilmente nos enviou
‘//=============’
Sub sbx_teste_I()
Range(“A1”).CurrentRegion.Font.ColorIndex = 1
Dim i, x As Integer
Dim Z As Worksheet
Set Z = Plan1
For i = 2 To Z.Cells(Rows.Count, “B”).End(xlUp).Row
If Z.Cells(i, “B”).Value = “bb” Then
Cells(i, “a”).Resize(, 5).Font.ColorIndex = 33
End If
Next
End Sub

Sub sbx_teste_II()
Range(“A1”).CurrentRegion.Font.ColorIndex = 1
Dim i, x As Integer
Dim Z As Worksheet
Set Z = Plan1
i = 2
x = Cells(Rows.Count, “b”).End(xlUp).Row
For Each i In Z.Range(“B” & i & “:” & “B” & x)
If i.Value = “bb” Then
i.Font.ColorIndex = 33
End If
Next
End Sub

Sub sbx_copiar_teste()
Dim i, wLin, UL, UL1 As Long
wLin = 10
cLin = 10
UL = Cells(Rows.Count, “h”).End(xlUp).Row ‘localiza ultima linha(limpar)
‘//limpara da célula(j10) até a ultima(na coluna(r))
Range(Cells(10, “j”), Cells(UL, “r”)).ClearContents

For i = 2 To Cells(Rows.Count, “a”).End(xlUp).Row
If Cells(i, “b”) = “bb” Then
Range(“a” & i & “:d” & i).Copy Cells(wLin, “j”)
wLin = wLin + 1
Else ‘// se nao for “bb” (ou elseif “outra”
Range(“a” & i & “:d” & i).Copy Cells(cLin, “o”)
cLin = cLin + 1
End If
Next i
End Sub

Sub sbx_limpar_teste()
UL = Cells(Rows.Count, “h”).End(xlUp).Row
Range(Cells(10, “j”), Cells(UL, “r”)).ClearContents
End Sub

Sub sbx_formato()
Range(“A1”).CurrentRegion.Font.ColorIndex = 1
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.