For Döngüsü ve Range i Bir Arada Yazmak

[_Sir_Lancelot_]

Arkadaşlar merhaba,

For döngüsü ile Range i bir arada kullanamadım. Yardımlarınızı rica ederim.

For i=2 To 67 (B sütunundan, BO sütununa kadar)

Sheets("OFİS BİNALARI").Select
Range(Cells(25, "i"), Cells(29, "i")).Select ----> Range(B25:B29) demeye çalıştım.
Application.CutCopyMode = False
Selection.Copy
Sheets("KAPAK").Select
Range("E33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next i

Şimdiden çok teşekkür ederim.

 

[Ömer]

Merhaba,

i değişkenini tırnak içine almadan deneyin.

Range(Cells(25, i), Cells(29, i)).Select

Gibi.

 

[_Sir_Lancelot_]

Çok teşekkür ederim. Saolun