Soru VBA kodu ile hücre rengi değiştirme

[sahinsarifoglu]

Merhabalar. Azerbaycandan siteye üyeyim. Özellikle şu günlerde Kardeş Türkiye için halk olarak içimizin yandığını ve acıya ortak olduğumuzu söylemeliyim. Azerbaycan halkı her zaman sizlerle! (farklı konu oldu, site kurallarına aykırıysa bile yazmadan edemedim)

Şimdi soruma geçelim: İki sütunum var diyelim, A sütununun herhangi bir hücresinde veri varsa C sütununun uygun hücresinin renginin kırmızıya dönüşmesini excel VBA koduyla nasıl yapa bilirim? Önceden teşekkür ederim...

Konu adını yanlış yazmış ola bilirim belki...))

 

[Korhan Ayhan]

Merhaba,

Acımızı paylaştığınız için yürekten teşekkürler.

Aşağıdaki kodu deneyiniz.

Option Explicit

Sub Test()
    Dim Veri As Range
    
    Range("C:C").Interior.ColorIndex = xlNone
    
    For Each Veri In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
        If Veri.Value <> "" Then Veri.Offset(, 2).Interior.ColorIndex = 3
    Next
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[sahinsarifoglu]

Çok teşekkür ederim!

 

[sahinsarifoglu]

Bir daha rahatsız ediyorum ama, şöyle birşey olursa nasıl olur acaba?

Mesela
B sütununda olan hücre boşsa F sütunundaki
C sütununda olan hücre boşsa G sütunundaki
D sütununda olan hücre boşsa H sütunundaki hücrenin rengi kırmızıya dönüşsün.

 

[Korhan Ayhan]

A sütunu iptal mi oldu?

 

[sahinsarifoglu]

A sütunu iptal mi oldu?

Evet ya))

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim Veri As Range, Son As Long

    Range("F:H").Interior.ColorIndex = xlNone
    
    On Error Resume Next
    Son = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    On Error GoTo 0
    
    If Son = 0 Then Son = 1
    
    For Each Veri In Range("B1:D" & Son)
        If Veri.Value = "" Then Veri.Offset(, 4).Interior.ColorIndex = 3
    Next

    MsgBox "İşleminiz tamamlanmmıştır.", vbInformation
End Sub