100'den fazla sheet olan excel'de sheet seçme makrosu

[oussp]

Arkadaşlar merhaba;

Yaklaşık 200 sheet'lik bir excel dosyasında hergün çalışmak durumundayım; fakat, sheet'leri bulurken oldukça zorluk çekiyorum. Bunun için aklıma gelen şu oldu. Macroda play'e bastığımda bir message box açılsa ve içine sheet name'i yazsam ve OK dediğimde beni o sheet'e götürse. Bu mümkün müdür acaba? Yardımlarınız için çok teşekkür ederim. Sağolun. Excel dosyası forum limitlerini aştığı için dosyayı ekleyemedim. Teorik olarak 10 sayfalık bir excelde de bu örneği yapsak olabilir değil mi ? Tekrar teşekkürler yardımlarınız için arkadaşlar.

 

[Necdet]

Sayfa Seçme

Merhaba,

Aşağıdaki kodları WorkBook'un kod bölümüne kopyalayınız.

Herhangi bir sayfada Çift Tıklayıp sonucu görünüz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Sayfa = InputBox("Sayfa Adını Giriniz", "Sayfa Seçme")
If Sayfa <> "" Then Sheets(Sayfa).Select
Son:
End Sub

 

[omerceri]

Örnek ekte

 

[omerceri]

Soruyu tam anlamamışım Sn Necdet_Yesertener önerisi daha doğru

 

[omerceri]

Yatığım boşa gitmesin yukardaki örneği değiştirdim. form herhangi sayfayada herhangi bir hücreye çift tıklayınca çıkıyor. Sn Necdet_Yesertener örneğindeki gibi

 

[Orion1]

Bir örnekte benden.

 

[teknikyapı]

Merhaba.
Aşağıdaki linkteki son mesajlardaki örneği inceleyebilirsiniz.Belki dahada geliştirilebilir.

http://www.excel.web.tr/showthread.php?t=42982

 

[oussp]

Arkadaşlar cevaplarınız için çok teşekkürler, çalışmaların hepsini tek tek denedim. Necdet Bey'in ve Ömer Bey'in yöntemlerini ayrı ayrı uyguladım ve şu an ikisini de dosyalarımda kullanmaya başladım. Çok teşekkür ederim. Ayrıca son gelen linkte geliştirilebilir özellikler var, bunları da okuyacağım. Tekrar sağolun, görüşmek üzere. Ben de sizler gibi yetkin olup arkadaşlara yardımcı olmak istiyorum, bakalım ne zaman olacak.

 

[Necdet]

Merhaba,

Form kullanmadan daha pratik olduğunu düşündüğüm çözümü sunuyorum. Aklıma takılmıştı, aklımda kalacağına forumda kalsın

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If ActiveSheet.Name <> "Ana Sayfa" Then
    Sheets("Ana Sayfa").Select
ElseIf Target.Value <> "" Then
    Sheets(Target.Value).Select
End If
Son:
End Sub

 

[Halit TÜRK]

Sn. Necdet bey,

Mükemmel, harika olmuş..

 

[Necdet]

Teşekkürler Sayın htrk,

Biraz daha geliştireyim dedim ve sayfa yoksa açsın istedim.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If ActiveSheet.Name <> "Ana Sayfa" Then
    Sheets("Ana Sayfa").Select
ElseIf Target.Value <> "" Then
    Sheets(Target.Value).Select
End If
Exit Sub
Son:
Sordum = MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, Target.Value & " Adlı Sayfanın Açılması")
If Sordum = vbYes Then
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    MsgBox Target.Value & " Sayfası AÇILDI......", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End If
End Sub

 

[1Al2Ver]

Biraz daha geliştireyim dedim ve sayfa yoksa açsın istedim.

Sayın Yesertener, her ikisi de süper olmuş, ellerinize sağlık, saygılarımla.

 

[Halit TÜRK]

Sn. Necdet_Yesertener

Tekrar tekrar ellerinize sağlık.. Yeni sayfa açma işlemi yapılırken açılan sayfanın en sona değilde alfabetik sırada eklenmesi mümkünmüdür?

Teşekkürler..

 

[oussp]

Necdet Bey gerçekten çok teşekkürler süper olmuş. Arkadaşın sorduğu gibi tüm sayfaları alfabetik düzen içinde sıralaması da mümkün müdür hem yeni ekledikleri mi hem de hali hazırda bulunan sayfaları? Çok teşekkürler tekrar.

 

[Necdet]

Merhaba,

Sayfa ekledikten sonra sıralama işlemini de yapan hali :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If ActiveSheet.Name <> "Ana Sayfa" Then
    Sheets("Ana Sayfa").Select
ElseIf Target.Value <> "" Then
    Sheets(Target.Value).Select
End If
Exit Sub
Son:
Sordum = MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, Target.Value & " Adlı Sayfanın Açılması")
If Sordum = vbYes Then
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    MsgBox Target.Value & " Sayfası AÇILDI......", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
                    
    If Worksheets.Count > 2 Then
        For i = 2 To Worksheets.Count - 1
            For j = 3 To Worksheets.Count
                If Worksheets(j).Name < Worksheets(i).Name Then
                   Worksheets(j).Move before:=Worksheets(i)
                End If
            Next j
        Next i
    End If
End If
End Sub

 

[Halit TÜRK]

Sayfaların alfabetik düzenleme kodu aşağıdadır.
Benim sorduğum soru ikisinin birleşimi gibi ama nasıl..

Sub Bicim_SayfaDiz()
Dim Sht1 As Worksheet, Sht2 As Worksheet
For Each Sht1 In Worksheets
For Each Sht2 In Worksheets
If Sht1.Name > Sht2.Name Then Sht1.Move after:=Sht2
Next Sht2
Next Sht1
CreateObject("WScript.Shell").Popup _
"SAYFALAR SIRALANDI..!", 1, "UYARI", vbInformation
End Sub

 

[Halit TÜRK]

Sn. Necdet bey mesajınızı görmemiştim ama çok sayfa var bu yüzden uzun sürüyor, önceki kodunuzun içinde bulup eklemesi mümkünmü?

 

[limanC34]

Sayın çözümleriniz harika.Ama bir güzellik daha var orda renkli açıklama penceresi.Peki onu nasıl yapabiliriz?Teşekkürler.

 

[Necdet]

Renkli açıklama penceresi?

 

[sedat2048]

merhaba Necdet Bey,

eklemiş olduğunuz örnek zip dosyasını indiremiyorum.
Rica etsem tekrar yükleyebilirmisiniz?

Merhaba,

Aşağıdaki kodları WorkBook'un kod bölümüne kopyalayınız.

Herhangi bir sayfada Çift Tıklayıp sonucu görünüz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Sayfa = InputBox("Sayfa Adını Giriniz", "Sayfa Seçme")
If Sayfa <> "" Then Sheets(Sayfa).Select
Son:
End Sub