Hücreyi boyamak

Katılım
18 Ekim 2021
Mesajlar
27
Excel Vers. ve Dili
Excel 2016- Türkçe
Merhabalar,
Bir buton yardımı ile a1 sütunundaki hücreler dolu ise kırmızıya boyamasını istiyorum.
Teşekkürler.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Koşullu Biçimlendirmeyi denediniz mi?
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
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.

Kod:
    If Range("A1") = "" Then
        Range("A1").Interior.Color = xlNone
    Else
        Range("A1").Interior.ColorIndex = 3
    End If
 
Katılım
19 Kasım 2021
Mesajlar
80
Excel Vers. ve Dili
Excel 2016
Necdet bey bütün a sütununu seçmek için ne yapmak gerekir ?
 
Son düzenleme:

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Kod:
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
 
Üst