Eğer+Sayı

[turkanet]

Merhaba,
eğer c sütununda "ahmet" ve aynı satırda e sütununda -20,11 varsa, o satırı a sütunundan j sütununa kadar koyu maviye boyasın ve
eğer c sütununda "mehmet" ve aynı satırda e sütununda -413,95 varsa, o satırı a sütunundan j sütununa kadar koyu maviye boyasın yazan makroya ihtiyacım var
şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz. Kodu kendinize göre uyarlarsınız.

Sub RENKLENDİR()
    Dim X As Long
 
    For X = 1 To 1000
        If Cells(X, "C") = "AHMET" And Cells(X, "E") = -20.11 Then
            Range("A" & X & ":J" & X).Interior.ColorIndex = 11
        ElseIf Cells(X, "C") = "MEHMET" And Cells(X, "E") = -413.95 Then
            Range("A" & X & ":J" & X).Interior.ColorIndex = 11
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[turkanet]

3. şartı eklersek?

eğer c sütununda "ahmet" ve aynı satırda e sütununda -20,11 varsa, o satırı a sütunundan j sütununa kadar koyu maviye boyasın ve
eğer c sütununda "mehmet" ve aynı satırda e sütununda -413,95 varsa, o satırı a sütunundan j sütununa kadar koyu maviye boyasın ve
eğer c sütununda "cemal" ve aynı satırda e sütununda -213,95 varsa, o satırı a sütunundan j sütununa kadar koyu maviye boyasın

 

[Korhan Ayhan]

"ElseIf...." satırını istediğiniz kadar çoğaltabilirsiniz.

 

[turkanet]

Minnettarım