| Descricao: |
 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 o Aplicativo Microsoft Excel VBA(Visual Basic Application) , sozinho, praticando com os produtos didáticos Saberexcel
 |