esnek seçme

[excellcan]

Forumda emeği geçen arkadaşlara merhaba. Arkadaşlar geniş aralıklarla çalıştığım için seçme ve kopyalama işlemlerini makroya havale ediyorum. Fakat aralıklarımın bir kısmı standart olmadığında bu işlemlerde haliyle sorun çıkıyor. Merakım ve isteğim şu : Seçme aralığını ben hücreye yazsam - mesela F1 hücresine A1500 diye yazsam - seçme makrosunu bu aralıklarda kodlayabilirmiyiz. Daha sonra F1 hücresine B1:E1000 yazdım. Düğmeye tıkladığımda bu sefer bu aralığı seçecek. Bunun imkanı var mıdır ? İlgilenen arkadaşlara şimdiden teşekkürler.

 

[hamitcan]

Sub sec()
Range([f1]).Select
End Sub

 

[excellcan]

Sayın hamitcan çok teşekkür ederim. Birşey daha öğrenmek istiyorum. Aynı yöntemi for next döngüsünde de kullanabiliyor muyuz ? Sub Aktar()
Dim i, j As Integer
Application.ScreenUpdating = False
Columns("J:K").ClearContents
j = [J65536].End(3).Row + 1
If j < 4 Then j = 4

For i = 1 To 300
Range("E4") = i
Range("F4:G4").Copy
Cells(j, "H").Select
Selection.PasteSpecial Paste:=xlPasteValues
j = j + 1
Next i

[E4].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "&#304;&#351;lem Tamamland&#305;...."
End Sub
Mesela bu kodda 300 yerine ba&#351;ka rakamlar yazmak gerekiyor , her defas&#305;nda
makrodan d&#246;ng&#252;n&#252;n ayar&#305;n&#305; de&#287;i&#351;tirmek durumunda kal&#305;yorum. M&#252;mk&#252;n m&#252; b&#246;yle bir esneklik ?

 

[hamitcan]

For i = 1 To 300 sat&#305;r&#305;n&#305;
For i = 1 To j-1 olarak de&#287;i&#351;tirip dener misiniz ?

 

[excellcan]

Hocam kod &#231;al&#305;&#351;&#305;yor ama 3 de kal&#305;yor. J1'e 10 yazd&#305;&#287;&#305;mda 1 den 10 a kadar d&#246;ng&#252; yapmas&#305; laz&#305;m. Ama 3 de kal&#305;yor . Ayn&#305; &#351;ekilde 50 yazd&#305;&#287;&#305;mda da 3 de kal&#305;yor.