Home Excel - Dicas Microsoft Excel VBA Excel VBA - Cores Excel planilha vba cores localiza proxima e anterior celula colorida

Excel planilha vba cores localiza proxima e anterior celula colorida

E-mail Imprimir PDF

Saberexcel - site das macros

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), seleciona a próxima linha célula colorida, com interior colorido, irá selecionando na coluna desejada até atingir o limite da última linha, neste ponto voce poderá retroceder a seleção de células coloridas,
pois, selecionará até o ponto inicial ou final e emitirá uma mensagem, alertando sobre o limite maximo atingido.
Observe que o macro também insere cores na fonte.

Option Explicit

Sub Procurar_cores_abaixo()
Dim vLinha As Long
    vLinha = Range("A65536").End(xlUp).Row
    If ActiveCell.Row >= vLinha Then
        MsgBox "Atingiu última linha.", vbInformation, "Saberexcel - site das macros"
        Exit Sub
    End If
    Do
        Selection.Offset(1, 0).Select
        ActiveCell.Offset(1, 0).Font.ColorIndex = 5
    Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = vLinha
End Sub

Sub Procurar_cores_acima()
Dim vLinha As Long
    vLinha = 2
    If ActiveCell.Row <= vLinha Then
       MsgBox "Atingiu a primeira linha.", vbInformation, "Saberexcel - site das macros"
       Exit Sub
    End If
   
    Do
      Selection.Offset(-1, 0).Select
      ActiveCell.Offset(1, 0).Font.ColorIndex = 9
    Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = vLinha
End Sub


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



  Baixe o exemplo de planilha contendo os macros acima
Excel planiha vba cores localiza proxima e anterior celula colorida (18.84 KB)

Última atualização em Qua, 10 de Agosto de 2011 08:27  

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_counterHoje209
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19715
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33444
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456273
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