listbox ta rengi kırmızı olan sayfaların isimlerinin listele

[dogan_yigit]

selamlar

listboxta sekme rengi kırmızı olan sayfaların listelenmesi ve seçtiğimde o sayfaya gitmesini istiyom aklıma gelen en basit yol bu oldu

cari progr yapmaya çalışıyorumda içinde malzemeciler ve müşteriler ayrı ayrı olacak ama listelemeyi ayrı ayrı şekilde beceremedim yardımcı olursanız sevinirim



saygılajrımla.......

 

[Levent Menteşoğlu]

Listboxa sekme rengi sarı olan sayfa adlarının yüklenmesi iin userforma aşağıdaki kodu kopyalayın.

[vb:1:51ce3c981e]
Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
If Sheets(a).Tab.ColorIndex = 6 Then ListBox1.AddItem Sheets(a).Name
Next
End Sub
[/vb:1:51ce3c981e]

Listboxtan seçilen sayfa adına çift tıklandığında o sayfaya gitmek içinde listboxa aşağıdaki kodu kopyalayın.

[vb:1:51ce3c981e]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.Column(0)).Select
End Sub
[/vb:1:51ce3c981e]

 

[zafer]

Merhaba













Edit: Sn.Levent ben mesaj yazacağım diye uğraşırken yine benden önce davranmışsın.

 

[dogan_yigit]

arkadaşlar çok sağolun
hepinize teşekkürler
minnetlerimi sunarım