Sayfa İsimlerinin Listelenmesine Kısıtlama Getirme

[oerbas]

Ã?ncelikle Geçmiş Ramazan Başramınızı kutluyorum. Umarım güzel bir bayram geçirmişsizinizdir.

Aşağıdaki Makro sayfa isimlerinin listelenmesini sağlamaktadır. Ben sadece şirket cari kartlarının listelenmesini istiyorum. Ã?rneğin Toplam Stok gibi sayfa isimlerinin bu listede yer almasını istemiyorum. Yardımcı olabilirmisiziniz.


Düzeltilmesi gereken kod aşağıdaki gibidir.


Private Sub OptionButton1_Click()
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("ana sayfa").Move Before:=Sheets(1)

[Haluk]

Ã?ncelikle Geçmiş Ramazan Başramınızı kutluyorum.


Sizin de kutlu olsun.

Private Sub OptionButton1_Click()
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
If LCase(Sheets(i).Name) <> LCase("Ana Sayfa") _
And LCase(Sheets(i).Name) <> LCase("Toplam Stok") Then
ListBox1.AddItem Sheets(i).Name
End If
Next
Sheets("ana sayfa").Move Before:=Sheets(1)
End Sub

[oerbas]

Eksik olmayın...........

[oerbas]

Hocam Değişiklik yaptığınız makroyu denedim. Ama Toplam ve Stoklar Sayfalarının ListBox1 de listelenidiğini gördüm. Ayrıca Benim Başharfini büyük olarak verdiğim sayfa isimlerinin tümü küçük harfe dönüşüyor Tümü büyük harfle yazılan sayfa isimi değişmemiş. (Bu codun atandığı ObtionButton' u tıklayınca oluyor)

[oerbas]

Aşağıda ekleme yaptığınız makroyu denedim. (ana sayfa stok ve toplam ) ListBox kutusunda listelenmesini istemediğim sayfalar halen listelenmektedir. Sorunun giderilemezmi acaba


Private Sub OptionButton1_Click()
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
If LCase(Sheets(i).Name) <> LCase("Ana Sayfa") _
And LCase(Sheets(i).Name) <> LCase("Toplam Stok") Then
ListBox1.AddItem Sheets(i).Name
End If
Next
Sheets("ana sayfa").Move Before:=Sheets(1)
End Sub