ikaz eden makro??

[Metin Karaağaç]

merhaba.
A1 hücresi ile B1 hücresini C1'de toplayıp kontrol eden ve ikisinin toplamı 30'u geçtiğinde. "TOPLAM HARCAMANIZ 30 YTL Yİ GEÇMEMELİDİR" şeklinde uyarı yapan bir vba nasıl yazılır?
Hatta C1 hücresi kırmızı fonta dönsün??

 

[danersin]

c1 'e yazmanız gereken formül

=EÐER(A1+B1<30;A1+B1;"TOPLAM HARCAMANIZ 30'U GEÇMEMELİDİR")

biçim ile ilgilide biçim>koşullu biçimlendirme işinizi görür. resmi inceleyin, yeterli olmazsa sitemizin arama fonksiyonu ile koşullu biçimlendirme ile ilgili çok sayıda örnek bulabilirsiniz.

 

[xxrt]

Sorunuza Sayın danersin Fonksiyon olarak cevap vermiş isede,
Cevaplara alternatif olarak birde Makro ile aşağıdaki kodları denemek üzere Bir Modüle yerleştirin.

Sub Toplam_Buyuk_Olamaz1()
If Range("A1") = "" Then
soru = MsgBox("A1 Hücresine Toplanacak Değeri Girmediniz.Devam Edeyimmi?", vbYesNo, "Hücre Boş")
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
If Range("B1") = "" Then
soru = MsgBox("B1 Hücresine Toplanacak Değeri Girmediniz.Devam Edeyimmi?", vbYesNo, "Hücre Boş")
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
devam:
topla = WorksheetFunction.Sum(Range("a1:b1"))
[C1] = topla
If topla > 30 Then
Range("c1").Interior.ColorIndex = 3
sonuc = MsgBox(Sheets("Sayfa1").Range("C1") & "  Toplam Sonucudur.Toplam Harcamanız 30 YTL'yi Geçmemelidir..Devam Edeyimmi?", vbYesNo, "Dikkat !")
Range("C1").Select
Selection.Interior.ColorIndex = xlNone
If sonuc = vbNo Then
Range("C1").Select
Selection.ClearContents
End If
End If
End Sub

*A1 ve B1 Hücrelerine veri Girilmediğinde İkaz veriyor.
*A1 ve B1 Hücrelerinin Toplamları 30'dan Büyük İse Kırmızı Renkle İşaretleyip Soruyor.
*Hayır Cevabını verdiğinizde Hücredeki Kırmızı rengi silerek 30 Değerinden Büyük çıkan Toplamı Siliyor.

Dosyayı ekimde inceliyebilirsiniz.

 

[Metin Karaağaç]

sn.danersin
verdiğiniz koşullu biçimlendirmeyi ortalama için de yapabilirmiyiz?
yani A! ve C1 ortlaması, D1 ve F1 ortlamasından daha düşük çıkarsa,
"GİRDİÐİNİZ DEÐERLERDE HATA VAR" şeklinde yapabilirmiyiz?
ben yapmaya çalıştım ama koşullu biçimlendirme çalışmadı.

 

[birol_mumcu]

günaydın; :hey:
negüzel 1 soru ve 2 alternatifli cevap
syn xxrt kodları kullanabilirmiyim?
emeğinize sağlık :bravo:
gecenin geç saatlerinde burda olmanız ve hala yardım için çabalamanız :dua:
teşekkürler

 

[danersin]

Hücre değeri yazan kutuyu Formül : yaparsanız ve sağ tarafada
=(A1+C1)/2<(D1+F1)/2 yazarsanız (yada istediğiniz gibi değiştirin bu formülleri tek dikkat edeceğiniz eşitlikten sonra tırnak içinde olmasın formülleriniz) ...


birol_mumcu,

syn xxrt kodları kullanabilirmiyim?

Ben bu soruya bir anlam veremedim @birolmumcu, onun dışında söyledikleriniz için teşekkürler.

 

[birol_mumcu]

merhaba;
rica ederim hak edilmiş şözler. söylememek hata
izin alarak kullanmak istedim :arkadas: