eğer formülünün makrosu ile ilgili

[emrebengul]

Arkadaşlar ilk önce merhaba. Ben eğer komutu ile ilgili birşey soracaktım. Örneğin; bugun 26.08.2016 ben bir ürünü ayın 25inde teslim edecektim diyelim tarih geçmişse excellde A1 hücresinin içi kırmızı olsun. ürünü 28inde teslim edeceksem yeşil renk olsun. ürüne daha varsa teslim etmeme sarı olsun. ben bu makro yoluyla yapmak istiyorum ama yapamadım yardımcı olur musunuz?

 

[YUSUF44]

Koşullu biçimlendirmeyi denediniz mi? Bu işin en uygun çözüm koşullu biçimlendirmedir. Ancak makroyla da olur.

Makroda ise kodların nasıl çalıştırılacağı önemlidir. Yani sayfada değişiklik olduğunda mı yoksa bir düğmeye basıldığında mı çalışacak? Koşullu biçimlendirmede ise herhangi bir başka işleme gerek olmaz, yapılan ayarlamaya göre renk otomatik değişir.

 

[emrebengul]

koşullu biçimlendirmeyi biliyorum da işte makroyla yapmak istiyorum bunu. değişiklik olduğunda olursa daha iyi olur.

 

[YUSUF44]

Hangi hücre ya da hücreler değiştiğinde, hangi hücrelerin rengi değişecek? En güzeli örnek bir dosya paylaşmanızdır.

 

[emrebengul]

http://m.yollayap.com/ba3s/1472218434271.xlsx

 

[YUSUF44]

Gönderdiğiniz dosyada sadece 8 tane tarih var. Tam olarak nasıl bir sonuç istediğinizi belirtmemişsiniz! Ne zaman ne olduğunda nasıl bir değişiklik olmasını istiyorsunuz?

 

[emrebengul]

şöyle ifade edeyim ben bir ürünü ayın 26sında teslim edeceğim ona göre o satırın içi kırmızı olsun. Aksine daha varsa teslim etmeme satırın içi yeşil olsun az kalmışsa teslim etmeme satırın için sarı olsun.

 

[YUSUF44]

Anladığım kadarıyla aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz. Kodlar sayfa aktifleştirildiğinde çalışır:

Private Sub Worksheet_Activate()
For i = 1 To Cells(Rows.Count, "A").End(3).Row
    If IsDate(Cells(i, "A")) = True Then
        If Date > Cells(i, "A") Then
            Cells(i, "A").Interior.Color = vbRed
        ElseIf Date + 5 < Cells(i, "A") Then
            Cells(i, "A").Interior.Color = vbGreen
        ElseIf Date + 5 >= Cells(i, "A") Then
            Cells(i, "A").Interior.Color = vbYellow
        End If
    End If
Next
End Sub

 

[emrebengul]

teşekkür ederim saolun