koşullu biçimlendirme makro ile yapılması

[GKMER]

İyi Akşamlar
d4 hücresi b4 hücresinden büyükse renk değiştirsin ve yazıyla uyarsın
d5 hücresi b5 hücresinden büyükse renk değiştirsin ve yazıyla uyarsın
d6 hücresi b6 hücresinden büyükse renk değiştirsin ve yazıyla uyarsın
d6 hücresi b6 hücresinden büyükse renk değiştirsin ve yazıyla uyarsın

hücrelere bilgi girdikçe karşılaştırma yapmasını, yazıyla ve renk değişimi ile uyarmasını istiyorum.

 

[GKMER]

hücrelere girişleri userfomdaki combobox lardan yapıyorum bu karşılaştırmayı orada da yapabilirim combobox3 deki değer combobox1 deki değerden büyükse uyarabilir iki durumdada sorunum çözülür.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:a2e99c7ad5]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
a = Target
b = Target.Offset(0, -2)
Target.Interior.ColorIndex = xlNone
If a > b And a <> 0 And b <> 0 Then
Target.Interior.ColorIndex = 6
MsgBox "VERİ DAHA BÜYÜKTÜR"
End If
End Sub
[/vb:1:a2e99c7ad5]

 

[GKMER]

Sayın Leventm veriyi direk girdiğimde uyarı yapıyor fakat userform la girdiğimde uyarma yapmıyor. Renk değişimide olmadı.

 

[Levent Menteşoğlu]

Bu durumda zaten kontrolü userform üzerinde yapmak en mantıklısı olacaktır. Aşağıdaki gibi bir kodu veriyi sayfaya aktaran commandbuttona ekleyebilirsiniz.

[vb:1:9ad8914b56]Private Sub CommandButton1_Click()
If ComboBox3 > ComboBox1 Then
MsgBox "VERİ BÜYÜKTÜR"
Exit Sub
End If
End Sub
[/vb:1:9ad8914b56]

 

[GKMER]

Çok teşekkür Ederim.