multipage sayfa seçimi

[armandos]

Merhaba

Ekli dosyada listbox2 ye tıkladığımda listbox2 de yazan dosya ismini içeren sayfanın aktif olmasını nasıl sağlayabilirim?

Yardımcı olursanız sevinirim..

 

[Kemal Demir]

Biraz daha acıklayacı olabilirmisiz.

sorunuzu doğru anladıysam

isim = ListBox2.Text
Sheets(ListBox2.Text).Select

Diğer kodlarınızı
SATIR = Sheets(isim).[a:a].Find(ListBox2.text, LookAt:=xlWhole) + 1
TextBox1 = Sheets(isim).Range("B" & SATIR)
.
.
.
.
değiştirirsiniz.

 

[armandos]

Biraz daha acıklayacı olabilirmisiz.

sorunuzu doğru anladıysam

isim = ListBox2.Text
Sheets(ListBox2.Text).Select

Diğer kodlarınızı
SATIR = Sheets(isim).[a:a].Find(ListBox2.text, LookAt:=xlWhole) + 1
TextBox1 = Sheets(isim).Range("B" & SATIR)
.
.
.
.
değiştirirsiniz.

Kemal bey ilginiz için teşekkür ederim.

Listbox2deki text ile sayfa ismi farklı olduğu için multipage de sayfayı seçtiremiyorum. Sayfa isimleri Textbox3 ve combobox2 ye girdiğim değerlerin birleşiminden otomotik oluşuyor ve Listbox1 e sadece isim olarak yansıyor. Listbox1 e tıkladığımda o kişiye ait kaç dosya varsa sayfa3 den bularak listbox2 ye atıyor. Artık öyle karıştı ki çıkamıyorum işin içinden.

Benim istediğim listbox1 tıkladığımda listbox2 de o kişiye ait dosya isimleri çıksın. listbox2 ye tıkladığımda da o dosyanın ait olduğu sayfayı seçsin ve multipage 2008 sayfası bilgileri oradan alsın..

Eğer anlatamadıysam kusura bakmayın. Çok uzun zamandır bunun üstünde çalışıyorum.İnat ettim ama olmuyor yardımcı olursanız çok sevinirim gerçekten.