Kolor komórki zależny od położenia znalezionej.

Witajcie Kochani!!!


Sub Kolor()
Dim komórka As Range
Set komórka = [e4]
Do While komórka <> ""
If komórka = ActiveCell And komórka.Address < ActiveCell.Address Then
ActiveCell.Interior.ColorIndex = 6
Else
ActiveCell.Interior.ColorIndex = 3
Exit Do
End If
Set komórka = komórka.Offset(1, 0)
Loop
End Sub

Pozdrawiam wszystkich

Pozdrawiam

Co jest źle?

Pozdrawiam

Już wiem może komuś się przyda.


Sub Kolor()
Dim komórka As Range
Set komórka = [e4]
Do While komórka <> ""
If komórka = ActiveCell And komórka.Address < ActiveCell.Address Then
ActiveCell.Interior.ColorIndex = 6
ElseIf komórka = ActiveCell And komórka.Address > ActiveCell.Address Then
ActiveCell.Interior.ColorIndex = 3
Exit Do
End If
Set komórka = komórka.Offset(1, 0)
Loop
End Sub

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl