İki tarih arası aktarma

[Ahmet Sami]

Kıymetli üstadlarım iki tarih arası aktarma ile ilgili yardımınıza ihtiyacım var
Şöyleki;
G9 VE G10 daki herhangi bir tarih aralıklarına görev KAYIT sayfasından ilgili tarih aralıklarını AKTAR sayfasına diğer bilgiler ile birlikte yani B hücresinden K hücresine kadar olan satırları aktarması gerekiyor.
NOT: KAYIT ve AKTAR sayfalırımız gizlenmiş sayfadır ona görev aktarması gerekiyor
Örnek dosya ektedir.

 

[AdemCan]

Merhaba, dener misiniz?

Sub test()
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim son1 As Long, son3 As Long
Set s1 = Sayfa1: Set s2 = Sayfa2: Set s3 = Sayfa3
son1 = s1.Cells(Rows.Count, 1).End(3).Row
son3 = s3.Cells(Rows.Count, 1).End(3).Row + 1
s3.Range("A2:K" & son3).Clear

baslangic = s2.Range("G9")
bitis = s2.Range("G10")

Set bul1 = s1.Range("B2:B" & son1).Find(baslangic)
Set bul2 = s1.Range("B2:B" & son1).Find(bitis)

    If Not bul1 Is Nothing And Not bul2 Is Nothing Then
        ilk_satir = bul1.Row: son_satir = bul2.Row
        
        s1.Range("A" & ilk_satir & ":K" & son_satir).Copy s3.Range("A2")
        s3.Columns("A:K").AutoFit
    Else
        MsgBox "Başlangıç ve bitiş tarihlerini kontrol ediniz!", , ""
    End If
    
End Sub

 

[Ahmet Sami]

Adem bey çok teşekkür ederim. İl dışına çıkmıştım bakamadım kusuruma bakmayın geç döndüm size

 

[AdemCan]

Rica ederim.