raporlama makrosu ile ilgili yardım.!

[ahmetozbey]

arkadaşlar raporlama ile alakalı çalışmam var yardımcı olursanız memnun olurum.
çalışmam ekdedir.

 

[Huseyinkis]

ekteki kodları denermisiniz

Sub ALACAKRAPOR()
 Set s1 = Sheets("RAPOR")
 Set s2 = Sheets("KAYITLAR")
s1.Range("B8:E65536").ClearContents

For i = 3 To s2.Range("B65536").End(3).Row

kişi = s2.Cells(i, 2).Value
adet = WorksheetFunction.CountIf(s1.Range("B7:B" & s1.Range("B65536").End(3).Row), kişi)
Bakiye = WorksheetFunction.SumIf(s2.Range("B:B"), kişi, s2.Range("E:E")) - WorksheetFunction.SumIf(s2.Range("B:B"), kişi, s2.Range("F:F"))
If adet = 0 Then
Sonstr = s1.Range("B65536").End(3).Row + 1
Cells(Sonstr, 2).Value = kişi
Cells(Sonstr, 5).Value = Bakiye
End If
Next

End Sub

 

[ahmetozbey]

dostum öncelikle ilgilendiğin için çok teşekkür ederim.
- bakiyeleri göstermesin sadece alacaklar yani + bakiyeler göstersin istiyorum.
buda çözülürse tam istediğim şekilde olacak.
şimdiden teşekkür ederim.

 

[Huseyinkis]

dostum öncelikle ilgilendiğin için çok teşekkür ederim.
- bakiyeleri göstermesin sadece alacaklar yani + bakiyeler göstersin istiyorum.
buda çözülürse tam istediğim şekilde olacak.
şimdiden teşekkür ederim.

kodu denermisiniz

Sub ALACAKRAPOR()
 Set s1 = Sheets("RAPOR")
 Set s2 = Sheets("KAYITLAR")
s1.Range("B8:E65536").ClearContents

For i = 3 To s2.Range("B65536").End(3).Row

kişi = s2.Cells(i, 2).Value
adet = WorksheetFunction.CountIf(s1.Range("B7:B" & s1.Range("B65536").End(3).Row), kişi)
bakiye = WorksheetFunction.SumIf(s2.Range("B:B"), kişi, s2.Range("E:E")) - WorksheetFunction.SumIf(s2.Range("B:B"), kişi, s2.Range("F:F"))
If adet = 0 And bakiye > 0 Then
Sonstr = s1.Range("B65536").End(3).Row + 1
Cells(Sonstr, 2).Value = kişi
Cells(Sonstr, 5).Value = bakiye
End If
Next

End Sub

 

[ahmetozbey]

dostum tekrar teşekkür ederim ellerine sağlık.
tam istediğim gibi oldu.