Formülü nasıl Kısaltabilirim

[cocoa35]

Merhaba üstatlar aşağıda eklediğim kod ile "Rezervasyon" ve Geçmisrezervasyon" olmak üzere 2 sayfam var Gecmisrezervasyon sayfası A2 Hücresinde Bugün() formülü var yaptırmak istediğim Rezervasyon sayfasında H Kolonundaki tarihlerden hangisi Gecmisrezervasyon A2 <= ise ona karşılık gelen satırdaki A:U arasını Gecmisrezervasyon sayfası sonsatır'a kopyalasın (formülleri kopyalamasın) aşağıdaki formül ile yapıyorum ancak en az 200 satır var bunu nasıl sadeleştirebilirim yardım lütfen.

Sub degerler()
If Worksheets("Rezervasyon").Range("H3") <= Worksheets("Gecmisrezervasyon").Range("A2") Then
Worksheets("Rezervasyon").Range("b3").Copy
Worksheets("Gecmisrezervasyon").Range("b5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("H3").Copy
Worksheets("Gecmisrezervasyon").Range("H5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("C3").Copy
Worksheets("Gecmisrezervasyon").Range("C5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("D3").Copy
Worksheets("Gecmisrezervasyon").Range("D5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("E3").Copy
Worksheets("Gecmisrezervasyon").Range("E5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("F3").Copy
Worksheets("Gecmisrezervasyon").Range("F5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("G3").Copy
Worksheets("Gecmisrezervasyon").Range("G5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("I3").Copy
Worksheets("Gecmisrezervasyon").Range("I5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("J3").Copy
Worksheets("Gecmisrezervasyon").Range("J5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("K3").Copy
Worksheets("Gecmisrezervasyon").Range("K5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("L3").Copy
Worksheets("Gecmisrezervasyon").Range("L5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("M3").Copy
Worksheets("Gecmisrezervasyon").Range("M5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("N3").Copy
Worksheets("Gecmisrezervasyon").Range("N5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("O3").Copy
Worksheets("Gecmisrezervasyon").Range("O5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("P3").Copy
Worksheets("Gecmisrezervasyon").Range("P5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("Q3").Copy
Worksheets("Gecmisrezervasyon").Range("Q5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("R3").Copy
Worksheets("Gecmisrezervasyon").Range("R5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("S3").Copy
Worksheets("Gecmisrezervasyon").Range("S5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("T3").Copy
Worksheets("Gecmisrezervasyon").Range("T5").PasteSpecial Paste:=xlValues
Worksheets("Rezervasyon").Range("U3").Copy
Worksheets("Gecmisrezervasyon").Range("U5").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Long
    Dim syfRez As Worksheet
    Dim syfGecRez As Worksheet
    Dim SonSatir As Long
    
    Set syfGecRez = Worksheets("Geçmisrezervasyon")
    Set syfRez = Worksheets("Rezervasyon")
    
    For Bak = 2 To syfRez.Cells(Rows.Count, "H").End(xlUp).Row
        If syfRez.Cells(Bak, "H") <= syfGecRez.Range("A2") Then
            SonSatir = syfGecRez.Cells(Rows.Count, "A").End(xlUp).Row + 1
            If SonSatir < 5 Then SonSatir = 5
            syfGecRez.Range("A" & SonSatir & ":U" & SonSatir).Value = syfRez.Range("A" & Bak & ":U" & Bak).Value
        End If
    Next
End Sub

 

[cocoa35]

Muzaffer bey çok teşekkürler ufak bir sorun var A2 = Olan tarihi alıyor ancak A2 < olanı kopyalamıyor

 

[Muzaffer Ali]

Rezervasyon sayfasında NO(A sütunu) hücrelerinde değer olmadığı için öyle oluyor.
Eğer NO boş kalacaksa aşağıdaki satırda geçen "A" yı "B" yapın. Yada No hücrelerini boş bırakmayın.

SonSatir = syfGecRez.Cells(Rows.Count, "A").End(xlUp).Row + 1

 

[cocoa35]

Tamam teşekkürler Muzaffer bey

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.