AccessTr.neT
excel Sayfa İsimlerini İki Satırda Göstermek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: excel Sayfa İsimlerini İki Satırda Göstermek (/konu-excell-sayfa-isimlerini-iki-satirda-gostermek.html)



excel Sayfa İsimlerini İki Satırda Göstermek - caykamumi - 17/07/2012

Sayın Forum Sakinleri,

Benim çok araştırdığım fakat bulamadığım bir konuda desteklerinizi bekliyorum. Benim işim Excel üzerine kurulu aynı anda birden fazla Excel açık olmaması için aynı Excel içine 15-20 sayfa kopyalıyorum ana sayfa üzerinde çalıştığımdan en sondaki sayfalara gitmek gelmem sıkıntı olmaktadır. Sayfa isimlerini iki satırda görüntülemem mümkün mü ? Bu konuda bilgisi olan arkadaşlar var iste yardımlarını bekliyorum. Resimdeki sayfa isimlerini örnek amaçlı yazdım.



Şimdiden Teşşekkürler,

Not: Şirket Resim yükleme olanakları kapattığı için Ozur ek olarak gönderdim.Angel


Cvp: excel Sayfa İsimlerini İki Satırda Göstermek - ogulcan92 - 17/07/2012

Sn:caykamumi
Ana sayfadan çalışan bir Userfaormda sayfa isimlerini listeletip istediğin sayfaya gidebilirsiniz.Formda arama yaparsanız bu konu ile bircok örnek var.

Private Sub ListBox1_Click()

Label1.Caption = UCase(ListBox1.Value)
End Sub
'
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Integer
Label1.Caption = ""
If Worksheets.Count = 1 Then Exit Sub
For i = 1 To Worksheets.Count
Sheets(i).Name = LCase(Sheets(i).Name)
For j = i + 1 To Worksheets.Count
If LCase(Worksheets(j).Name) < LCase(Worksheets(i).Name) Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next
Sheets("sayfa1").Move Before:=Sheets(1)
End Sub



Cvp: excel Sayfa İsimlerini İki Satırda Göstermek - caykamumi - 17/07/2012

Sayın Oğulcan92 verdiğiniz bilgiler için teşekkür ederim. Deneyip sonucu paylaşacağım.