Hücreyi boyamak

Katılım
18 Ekim 2021
Mesajlar
13
Excel Vers. ve Dili
VBA
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
13,540
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
13,540
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
 

BBBBuRaKKKK

Altın Üye
Katılım
19 Kasım 2021
Mesajlar
34
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
13,540
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
 

BBBBuRaKKKK

Altın Üye
Katılım
19 Kasım 2021
Mesajlar
34
Excel Vers. ve Dili
Excel 2016
Teşekkürler
 
Üst