ismailmustafa
Altın Üye
- Katılım
- 10 Nisan 2006
- Mesajlar
- 108
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 28-04-2028
Herkese hayırlı geceler. Çok fazla sayfa içeren excel kitabında aşağıdaki sayfaya git kodu ile istediğim sayfaya gidebiliyorum. Ancak birden çok sayfayı aynı anda seçebilmenin yolunu arıyorum. mesela "1-1"den "150-1"e kadar olan sayfaları birden seçmek istiyorum. Yardımcı olursanız çok sevinirim. Şimdiden teşekkür ederim.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 1 Then Exit Sub
Dim Sayfa As String
Sayfa = InputBox("Sayfayı Giriniz", "Başlık")
If Sayfa = "" Then Exit Sub
Sheets(Sayfa).Select
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 1 Then Exit Sub
Dim Sayfa As String
Sayfa = InputBox("Sayfayı Giriniz", "Başlık")
If Sayfa = "" Then Exit Sub
Sheets(Sayfa).Select
End Sub