Sayfa Ãsimlerinin Listelenmesine Kısıtlama Getirme
Ã?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)
Ã?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)