El ile değer girme

[xternet]

Merhaba arkadaşlar

Sub seçim()
'
' seçim Makro
' Makro Yavuz tarafından 31.08.2007 tarihinde kaydedildi.

Range("BV457S556").Select
End Sub

Bu makro kodundaki BV457 ve DS556 hücre adreslerini el ile nasıl girebililiz. Yani ben makroyu çalıştırdığımda iki haneli bir kutu açılacak ve ben bu kutuçuklara istediğim hücre adreslerini girip tamam dediğimde seçtihim hücre alanı seçili duruma gelecek.

Çok fazla alanı seçip değiştirmem gerektiği için böyle bir çalışma işimi çok kolaylaştıracak. İlgilenecek arkadaşlara şimdiden teşekkür ediyorum.
İyi çalışmalar.

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
s = Application.InputBox("Hücre Adresini Giriniz")
Range(s).Select
End Sub

InputBox'a örnek olarak : A1:A20 şeklinde yazıp deneyiniz.

Hata yapmaya karşı aşağıdaki gibi de kullanılabilir.

Sub Düğme1_Tıklat()
On Error GoTo hata
s = Application.InputBox("Hücre Adresini Giriniz")
Range(s).Select
Exit Sub
hata:
MsgBox "Uygun veri giriniz"
End Sub

 

[Necdet]

Merhaba,

Public Sub Sec()
Dim alan As Range
Set alan = Application.InputBox(prompt:="Hücreleri Seçiniz", Type:=8)
alan.Select
End Sub

 

[xternet]

Sayın hocalarım ilkel bir yöntemle aşağıdaki sorunumu çözdüm. İlgilenenlere teşekkür ederim.

Sayın hocalarım yanıtlarınız için teşekkür ederim. Tam düşündüğüm gibi.
Birde bu komuta bir kısayol nasıl atarım onu yazarsanız daha da memnu olucam. Bir düğme oluşturup makroyu ona atadım ama vaktim düğmeyi aramakla geçiyo

İyi çalışmalar

 

[Seyit Tiken]

Her hangi bir hücreyi çift tıklamayla InputBox'ı açabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
s = Application.InputBox("Hücre Adresini Giriniz")
Range(s).Select
End Sub

Kısayol Tuşu : Ctrl + q tuşu kullanarak InputBox'ı açabilirsiniz.

Sub kısayol()
s = Application.InputBox("Hücre Adresini Giriniz")
Range(s).Select
End Sub

Dosya ekte.

 

[xternet]

Çok teşekkür ederim sayın Seyit Tiken ve Necdet Yesertener.
İyi çalışmalar