Run-Time error 1004

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda nasıl bir hata var ki iki saattir çözemiyorum. Sürekli Run-Time error '1004' Method 'Range' of object - 'Worksheet' failed uyarısı alıyorum. İlgilenen arkadaşlara şimdiden teşekkürler.

Dim syf2 As Worksheet
Set syf2 = Worksheets("Sayfa2")

Worksheets("Sayfa2").Select
Range("AA1").Select

With syf2
For satır = 2 To 7
For sütun = 57 To 66

bul = syf2.Cells(satır, sütun)
syf2.Cells(satır + 2, sütun - 24) = WorksheetFunction.VLookup(bul, syf2.Range([ARALIK]), 2, 0)

Next
Next
End With

 

[Necdet]

Merhaba,

syf2.Range([ARALIK]) yazılımı yanlış.
syf2.Range("ARALIK") şeklinde olmalı.

 

[excellcan]

Merhaba,

syf2.Range([ARALIK]) yazılımı yanlış.
syf2.Range("ARALIK") şeklinde olmalı.

Hocam aynen yazdığınız gibi. Çok teşekkürler.