EXCEL VBA - kodlarıyla raporlama

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