aralık seçme

[f_alkan]

örnek A1:R200 veya B1:Z5000 aralığını otomatik olarak nasıl seçebilirim.
bununla ilgili kısayol var mı acaba
yardımcı olursanız sevinirim

 

[Emir Hüseyin Çoban]

. . .

Sol üst köşedeki ad kutusuna, hücre seçim bilgilerini girip enter yapın.

Makro ile yapmak istersen.

Sub kod()
    secim = InputBox("Hücre Aralığı Girin", "", "A1:A10")
    If secim = "" Then Exit Sub
    Range(secim).Select
End Sub

. . .

 

[bzace]

Alternatif olarak;

Sub Daxe_Syan()
    Dim aralık As Range
    Set aralık = Application.InputBox(prompt:="Hüre Aralığını Yazınız.", Type:=8)
    aralık.Select
End Sub

Kodu çalıştırdıktan sonra açılacak pencereye hücre aralığını yazınız. Örnek B1:E125