Sub kredikartirapor()
' kredi rapor
Dim yazmasatir As Integer
yazmasatir = 10
Dim okumasatir As Integer
okumasatir = 4
Dim yakit As Double
Dim fiyat As Double
Dim tutar As Double
Dim saat As Double
' KREDİ kartı dolu, diğerleri boşsa
If Not (IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b4").Value)) And _
IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b5").Value) And _
IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("D4").Value) And IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("f4").Value) And _
IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b6").Value) And IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b7").Value) Then
Sheets("KREDİ_KART_GÜNLÜK").Range("A10:g500").Clear
Do
' filtrele
If Sheets("KASA_GİRİŞ").Cells(okumasatir, 9).Value = "KREDİ KARTI" And _
Sheets("KASA_GİRİŞ").Cells(okumasatir, 10).Value = Sheets("KREDİ_KART_GÜNLÜK").Range("B4").Value Then
Sheets("KREDİ_KART_GÜNLÜK").Cells(yazmasatir, 1).Value = Sheets("KASA_GİRİŞ").Cells(okumasatir, 2).Value
...
End sub
www.excelci.com