Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Excel VBA Treinamento instrucoes for each e for next marciel

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Estes  Macros do Aplicativo Microsoft Excel VBA, foi gentilmente enviado pelo nosso aluno Marciel,
que fez o teste baseados nas Video Aulas Estudos (Celulas e Range VBA Macros).
o que agradeço imensamente.
Assine e acesse: Excel VBA - Video Aulas - Celulas 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.




 u - Assine nosso Site: Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
  icon SBL Excel VBA Treinamento instrucoes for each e for next marciel (26.3 kB)

Você está aqui: Home Excel VBA - Dicas Livre Excel VBA - Dicas Livre Excel VBA - Loops SBL Excel VBA Treinamento instrucoes for each e for next marciel