limiti geçtiğinde uyarı verecek

[aristor]

Merhabalar arkadaşlar..

elimizde mühtasillerimizin listesi var.. aynı isime ait birden çok satır var.. ben istiyorum ki aynı isimde olan bir müstahsilin ödeyeceğimiz paralarını toplayacak vee 30.000 ytl yi geçen olursa bize uyarı verecek.. böyle bir şeyi excel de nasıl yaparız.. programlama konusunda birazcık bilgim vardır.. bunu 2007 versiyonunda yapacağım ama kullanıcak kişide 2003 var..

 

[Necdet]

Merhaba,

Örnek dosya ile sorunuzu destekleyiniz, daha çabuk yanıt alırsınız.

 

[aristor]

tamam hocam.. örnek dosyayıda attım..

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub HESAPLA()
Dim SUT, S As Integer
[E1:E500] = ""
S = 1
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
If WorksheetFunction.CountIf(Range("C1:C" & SUT), Cells(SUT, "C")) = 1 Then
Cells(S, "E") = Cells(SUT, "C")
S = S + 1
End If
Next
'***
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(SUT, "E").Offset(0, 1) = WorksheetFunction.SumIf(Range("C1:C5000"), Cells(SUT, "E"), Range("D1:D5000"))
Next
'***
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(SUT, "F").Font.ColorIndex = 0
If Cells(SUT, "F") >= 30000 Then
Cells(SUT, "F").Font.ColorIndex = 3
End If
Next
End Sub

 

[aristor]

üstad ellerine sağlık... birde kendimi kod yazar bilirdim...

 

[N.Ziya Hiçdurmaz]

Bişey değil