Range Resize

[tamer42]

Merhaba,

Aşağıdaki kodda; Rng1 atamasını Rg1' e Resize kullanarak yapmak istiyorum,

Set Rng1 = Rg1.Resize(, 2)

bu şekilde yaptım ama hata verdi,

Dim Rg1 As Range, Rng1 As Range

Set s1 = Sheets("KAYIT")
Son1 = s1.Cells(Rows.Count, "A").End(3).Row

Set Rg1 = s1.Range("A1:A" & Son1)

Set Rng1 = s1.Range("A1:B" & Son1)

yardımcı olabilir misiniz, teşekkürler.

iyi Çalışmalar.

 

[Korhan Ayhan]

Ben aşağıdaki gibi denedim hata vermedi.

Option Explicit

Sub Test()
    Dim s1 As Worksheet, Rg1 As Range, Rng1 As Range, Son1 As Long
    
    Set s1 = Sheets("KAYIT")
    Son1 = s1.Cells(Rows.Count, "A").End(3).Row
    
    Set Rg1 = s1.Range("A1:A" & Son1)
    
    Set Rng1 = Rg1.Resize(, 2)
    
    MsgBox Rng1.Address
End Sub

Eğer yine hata verirse ilgili satırı aşağıdaki gibi değiştirip deneyiniz.

Set Rng1 = Rg1.Resize(Rg1.Rows.Count, 2)

 

[tamer42]

Ben aşağıdaki gibi denedim hata vermedi.

Option Explicit

Sub Test()
    Dim s1 As Worksheet, Rg1 As Range, Rng1 As Range, Son1 As Long
   
    Set s1 = Sheets("KAYIT")
    Son1 = s1.Cells(Rows.Count, "A").End(3).Row
   
    Set Rg1 = s1.Range("A1:A" & Son1)
   
    Set Rng1 = Rg1.Resize(, 2)
   
    MsgBox Rng1.Address
End Sub

Eğer yine hata verirse ilgili satırı aşağıdaki gibi değiştirip deneyiniz.

Set Rng1 = Rg1.Resize(Rg1.Rows.Count, 2)

Teşekkürler Korhan Hocam