Son eklenen Çalışma sayfasını comboboxta seçili olarak gösterme

[hsayar]

Kırmızı renki satırları ilave edin.

[COLOR=red]Sheets("koru01").ComboBox1.clear[/COLOR]
sn = Sheets.Count
Sheets("Tsb").Copy After:=Sheets(sn)
ActiveSheet.Name = a
[LEFT][COLOR=red]For a = 1 To Sheets.Count[/COLOR]
[COLOR=red]Sheets("koru01").ComboBox1.AddItem Sheets(a).Name[/COLOR]
[COLOR=red]Next[/COLOR][/LEFT]

veya

[LEFT]Sheets("Tsb").Select
sn = Sheets.Count
Sheets("Tsb").Copy After:=Sheets(sn)
ActiveSheet.Name = a[/LEFT]
[COLOR=red]Sheets("koru01").ComboBox1.AddItem Sheets(Sheets.count).Name[/COLOR]

1) comboboxta son eklenen sayfanın seçili gelmesi için ne yapmalıyım?
2) Adı belli olan bazı çalışma sayfalarını comboboxta görmek istemiyorum, örn; Anamenü, günlük, tanımlar vs. bu durumda ne yapmalıyım?

Saygılarımla

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Initialize()
For I = 1 To Sheets.Count
If Sheets(I).Name <> Sheets("Sayfa1").Name And Sheets(I).Name <> Sheets("Sayfa2").Name Then
ComboBox1.AddItem Sheets(I).Name
End If
Next
For I = 1 To Sheets.Count
ComboBox1 = Sheets(I).Name
Next
End Sub

 

[hsayar]

teşekkürler

 

[N.Ziya Hiçdurmaz]

Bişey değil.