Home Excel - Dicas Microsoft Excel VBA Excel VBA - Loops Loop do until loop localiza celula cor interior verde brilhante

Loop do until loop localiza celula cor interior verde brilhante

E-mail Imprimir PDF

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)

Última atualização em Seg, 06 de Fevereiro de 2012 18:43  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4806
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25007
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês43195
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466024
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA