Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções
Esse macro do Aplicativo Microsoft Excel VBA(visual Basic application) busca em determinada área de células pela primeira ocorrencia de célula
com interior verde claro, retorna o endereço da célula, desloca uma linha a direita e e também insere a cor verde
Esse exemplo de planiha faz parte de Assine nosso Modulo 2012 - Boletins Treinamentos VBA
Assine agora mesmo nosso Módulo 2012 - Contendo os Boletins Mensais.
Assine nosso Modulo 2012 - Boletins Treinamentos VBA
INSTRUÇÃO: DO..UNTIL...LOOP
Sub Loop_do_until_loop_encontrar_celula_verde_brilhante()
Dim vContador 'Declaração de uma variável
vNumLin = Row 'variável
With Selection
Range("c5:c20").Select
vNumLin = Selection.Rows.Count 'Número de linhas dentro da região selecionada
End With
vContador = 0 'atribuindo o valor zero a variável contador
Range("c6").Select 'iniciando pela célula c6 para efeturar a busca
Do Until Selection.Interior.ColorIndex = 4 'faça o loop enquanto não for da cor verde brilhante
ActiveCell.Offset(1, 0).Select 'desloque apenas uma linha abaixo por vez
If vContador > vNumLin - 3 Then Exit Sub 'Numero de loops limitado a 15 até achar a célula interior verde brilhante.
'localiza a célula verde brilhante e sai do loop mostrando a mensagem e copia célula para uma celula à direita
vContador = vContador + 1 'adicionando um ao contador
Loop
MsgBox "Selecionada célula de cor verde brilhante [" & ActiveCell.AddressLocal & " ] vamos copiar a célula para direita"
'Deslocar uma célula a direita
Selection.Copy
Selection.Offset(0, 3).Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub
'- - - - - - - - - - - - - - - -
Sub limpar_teste()
[F6:F20].Clear
[G1].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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Baixe o exemplo de planilha do Nosso Boletim_01 - Treinamento com Instruções Loops (141) planilhas
Loop do until loop localiza celula cor interior verde brilhante (25.95 KB)