Makro ile veri sayfasından rapor almak

[puslukurt]

Merhabalar;
ekte dosyada her şeyi açıklamaya çalıştım. makro ile 2 tarih arasında veri sayfasından rapor sayfasına rapor aldırmak istiyorum. ilgilenen arkadaşlara ve forumda bulunan arkadaşlara teşekkür ederim

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub RaporAl()
 
    Dim sat As Long, i As Long
 
    Application.ScreenUpdating = False
    
    Sheets("rapor").Select
    Range("A3:F" & Rows.Count).Clear
    
    sat = 3
    With Sheets("veri")
        For i = 3 To .Cells(Rows.Count, "A").End(xlUp).Row
            If .Cells(i, "E") >= [I3] And .Cells(i, "E") <= [J3] Then
                .Range("A" & i, "F" & i).Copy Cells(sat, "A")
                sat = sat + 1
            End If
            If .Cells(i, "H") >= [I3] And .Cells(i, "H") <= [J3] Then
                .Range("A" & i, "C" & i).Copy Cells(sat, "A")
                .Range("G" & i, "I" & i).Copy Cells(sat, "D")
                sat = sat + 1
            End If
        Next i
    End With
    
    Range("F" & sat + 1) = "=Sum(F3:F" & sat - 1 & ")"
           
    Application.ScreenUpdating = True
    
End Sub

.

 

[puslukurt]

Teşekkür

Ömer bey çok teşekkür ederim tam istediğim gibi olmuş elinize sağlık