arkadaşlar programımda aşağıdaki kodla sayfa adlarını çağırıyorum ama isimleri seçtiğimde o sayfayı açmıyor bazı kodları denedim olmadı eksik yazmam gereken kodu verirseniz sevinirim teşekküler.
Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
Label10 = Now()
If Sheets(a).Name = "Kasa" and Sheets(a).Name = "Data" Then GoTo 10
ComboBox1.AddItem Sheets(a).Name
10
Next
End Sub
Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
Label10 = Now()
If Sheets(a).Name = "Kasa" and Sheets(a).Name = "Data" Then GoTo 10
ComboBox1.AddItem Sheets(a).Name
10
Next
End Sub