Çalışma sayfalarını comboboxta gösterme

[hsayar]

3) Birde koru01 çalışma sayfasındaki bir comboboxa Thisworkbooktaki bütün çalışma sayfalarını listeleme ve bir command butonlarda comboboxta seçilmiş sayfayı ön izleme ve yazdırma işlemleri nasıl olmalı

 

[Levent Menteşoğlu]

Sayfa adlarını comboboxa yüklemek için aşağıdaki kodu thisworkbook sayfasına kopyalayın. Kodun çalışması için dosyayı kapatıp tekrar açın.

Private Sub Workbook_Open()
For a = 1 To Sheets.Count
Sayfa1.ComboBox1.AddItem Sheets(a).Name
Next
End Sub

Comboboxtan seçilen sayfanın özinlemesi ve yazdırılması içinde aşağıdaki kodu bir butona bağlayın.

Sub yazdir()
Sheets(Sayfa1.ComboBox1.ListIndex + 1).PrintPreview 'özinleme için
Sheets(Sayfa1.ComboBox1.ListIndex + 1).PrintOut      'yazdırma için
End Sub

 

[hsayar]

teşekkürler

 

[hsayar]

Private Sub Workbook_Open()
For a = 1 To Sheets.Count
'UserForm1.ComboBox1.AddItem Sheets(a).Name
Sheets("koru01").ComboBox1.AddItem Sheets(a).Name
Next
End Sub

kodları ile çaılışta yükleen çalılma sayfa adları

Sheets("Tsb").Select
sn = Sheets.Count
Sheets("Tsb").Copy After:=Sheets(sn)
ActiveSheet.Name = a

satırlarından sonra nasıl kendinin kapatıp çamadan güncelleyebilir

 

[Levent Menteşoğlu]

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]

 

[hsayar]

teşekkürler

 

[hsayar]

Private Sub UserForm_Initialize()
Mdl_00_Acls.DegiskenAl
............
For sf_ind = 1 To Bu_Kit_ss
uf_isl.cb_syf.AddItem Sheets(sf_ind).Name
Next
...........
end sub

şeklinde sayfaları comboboxa ekledim
sonra userform üzerindeki command butona

Private Sub CommandButton10_Click()
Sheets(uf_isl.cb_syf.ListIndex + 1).PrintPreview 'özinleme için
End Sub

yazdım ancak; öznileme ekranı öne gelmiyor ön izlemeyi öne getirmek ve ön izlemeden çıkınca user forma geçmek nasıl olmalı

 

[Orion1]

öznileme ekranı öne gelmiyor ön izlemeyi öne getirmek ve ön izlemeden çıkınca user forma geçmek nasıl olmalı

Aşağıdaki kodu kendi nize göre uyarlayınız.

UserForm1.Hide
Sheets("Sayfa2").PrintPreview
UserForm1.Show

 

[hsayar]

teşekkürler hocam

 

[Orion1]

teşekkürler hocam

Rica ederim.
İyi çalışmalar.

 

[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]

Hocam peki
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

 

[hsayar]

yardımlarınız için şimdiden teşekkür ederim.