• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Eğer+Sayı

Katılım
30 Mart 2005
Mesajlar
755
Excel Vers. ve Dili
2016 EN
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.
 
Merhaba,

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

Kod:
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
 
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
 
"ElseIf...." satırını istediğiniz kadar çoğaltabilirsiniz.
 
Minnettarım
 
Geri
Üst