makro ile sekmeleri listesine köprü ekleme

[modoste]

merhaba sayın hocalarım
daha önce çalışma dosyamdaki tüm sekmelerin listelenmesi ile ilgili

Sub SayfalarıListele()

Dim i As Integer, sat As Integer, sut As String

sut = "C" 'hangi sütuna sıralanacağı
sat = 3 'hangi satırdan başlayacağı

Range(sut & sat & ":" & sut & Rows.Count).ClearContents

For i = 1 To Worksheets.Count
Cells(sat, sut) = Sheets(i).Name
sat = sat + 1
Next i

End Sub

makro yazılmıştı ve kullanmaktayım
sorum ise bu makroya eklenti olarak C3 den itibaren sıralanmaya başlayan sekme adlarının herbirine Köprü eklenmesi. köprülerde sekmelerin kendi sayfası olacak

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C3:C" & Rows.Count)) Is Nothing Then Exit Sub
Sheets(Target.Text).Select
End Sub

 

[modoste]

sayın asi kral uyguladım olmadı
ekledim modülü ALT+F8 dediğimde ilk makro görünüyo

iki makroyu tek seferde modüle dönüştüremezmiyiz hocam

 

[asi_kral]

sayın asi kral uyguladım olmadı
ekledim modülü ALT+F8 dediğimde ilk makro görünüyo

iki makroyu tek seferde modüle dönüştüremezmiyiz hocam

Tam olarak ne istediğinizi anlamadım.Lütfen daha detaylı anlatın ve dosya ekleyin. Şöyle olmasını istiyorum yazın.

 

[modoste]

çalıştığım dosyada 1 nolu mesajımda yazdığım modüle ekli durumda
bu modüle ekleme çıkarma yada yeniden bir modül yazma ile;
makro çalıştırıldığında karşıma çıkan "Sayfaları Listele" adlı sekmemde makro ile sıralanmış halde bulunan (C3 den başlayarak aşağıya doğru devam eden) sekme adlarına köprü ekleyebiliyormuyuz.
köprü ile kendi sekmesine geçiş olacak

 

[asi_kral]

çalıştığım dosyada 1 nolu mesajımda yazdığım modüle ekli durumda
bu modüle ekleme çıkarma yada yeniden bir modül yazma ile;
makro çalıştırıldığında karşıma çıkan "Sayfaları Listele" adlı sekmemde makro ile sıralanmış halde bulunan (C3 den başlayarak aşağıya doğru devam eden) sekme adlarına köprü ekleyebiliyormuyuz.
köprü ile kendi sekmesine geçiş olacak

Dosya yok 1. mesajda

 

[modoste]

sayın asli_kral
sorumda dosya eklememiştim zaten makro eklenmiş bir dosya üzerinde bir değişiklik sorudum.
dosyam yaklaşık 200 sekme gibi birşey.
önceden sayın hocalarımdan makro istemiştim sekme adlarını başka biryerde C3 den başlayarak listeleme ile ilgili hocalarım 1 nolu mesajımdaki modülü yazmışlardı.

şimdi ise sekmeler altalta sıralandığında birde köprü eklenmiş hale gelse

 

[asi_kral]

sayın asli_kral
sorumda dosya eklememiştim zaten makro eklenmiş bir dosya üzerinde bir değişiklik sorudum.
dosyam yaklaşık 200 sekme gibi birşey.
önceden sayın hocalarımdan makro istemiştim sekme adlarını başka biryerde C3 den başlayarak listeleme ile ilgili hocalarım 1 nolu mesajımdaki modülü yazmışlardı.

şimdi ise sekmeler altalta sıralandığında birde köprü eklenmiş hale gelse

Eki inceleyin.

 

[modoste]

sayın asli_kral ilginiz için teşekkür ederim
sizden gelen dosyayı açtım
sayfa 1
sayfa 2
sayfa 3
sekmeleri var ve
sayfa 1 de C3 ve C4 de diğer sekmeler yazıyo
ben yeni sekmeler ekledim fakat listede görünmedi ve şöyle bir değiştirma yapsak

sekmeler diye yeni bir sekme adının C3 hücresinden diğer sekmeleri sıralamaya başlasa ve elbet köprüde olcak

 

[bzace]

Hayırlı akşamlar,
Sayfa isimlerini yazdırmak için şu kodu bir modülün içine yazınız.

Sub Sayfa_Isimlerini_Listele()
Dim sayfa As Worksheet
Dim i As Integer
i = 3
Sheets("sayfa1").Range("C:C").Clear
For Each sayfa In Worksheets
Sheets("sayfa1").Cells(i, 3) = sayfa.Name
i = i + 1
Next sayfa
End Sub

 

[modoste]

sorumu tekrarlarsam sayın hocalarım
ilk mesajımdaki modül ekli olan dosyamda herhangi bir sekme açıkken
ALT+F8 / sayfaları listele enter dediğimde açık olan sekme adı da dahil C3 den itibaren altalta sıralanırdı
işte sıralı bu liste otomatikmen kendi sekmesine köprü olcak şekilde olsa

 

[bzace]

Size cevap verilmiş ama sizmi yapamadınız mı ?
Alternatif olarak.
D4 hücresine yazıp aşşağıya doğru çekiniz.

=KÖPRÜ("[SSekme AdlarI 2 (Makro İçeren).xlsm]"&C3&"!A1";"istediğin sayfaya geç")