Hücreyi boyamak

[buurakengin]

Merhabalar,
Bir buton yardımı ile a1 sütunundaki hücreler dolu ise kırmızıya boyamasını istiyorum.
Teşekkürler.

 

[Necdet]

Merhaba,

Koşullu Biçimlendirmeyi denediniz mi?

 

[BBBBuRaKKKK]

Koşullu Biçimlendirme ile deneyebilirsin bunu

 

[buurakengin]

ben bunu bir buton yardımı ile yapmak istiyorum

 

[Necdet]

A1 hücrenin adresidir, sütun değildir.

Eğer A sütunundaki değerleri yapmak isterseniz aşağıdaki kodları kendinize uyarlayınız.

    If Range("A1") = "" Then
        Range("A1").Interior.Color = xlNone
    Else
        Range("A1").Interior.ColorIndex = 3
    End If

 

[BBBBuRaKKKK]

Necdet bey bütün a sütununu seçmek için ne yapmak gerekir ?

 

[Necdet]

Merhaba,

Sub Renklendir()

    Dim i As Long
    
    Application.ScreenUpdating = False
        
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
    
        If Range("A" & i) = "" Then
            Range("A1").Interior.Color = xlNone
        Else
            Range("A" & i).Interior.ColorIndex = 3
        End If
        
    Next i
    
    Application.ScreenUpdating = True

End Sub

 

[BBBBuRaKKKK]

Teşekkürler