Arama kodu sorunu!

[ocamsul]

Arkadaşlar herkese iyi haftasonları aşağıdaki arama kodu, çalışma sayfamda 1 den fazla sayfa var ise çalışmıyo. kod da ne gibi bir düzeltme gerekiyor?

Yardım ederseniz sevinirim.

Private Sub CommandButton1_Click()
On Error Resume Next
Label4.Caption = Round(Cells([b1:b65536].Find(TextBox1.Value).Row, 6).Value, 2)
Label6.Caption = Cells([b1:b65536].Find(TextBox1.Value).Row, 3).Value
Label8.Caption = Cells([b1:b65536].Find(TextBox1.Value).Row, 4).Value
Label10.Caption = Cells([b1:b65536].Find(TextBox1.Value).Row, 5).Value
End Sub

Labelleri Temizlemek için butonda aşağıdaki kodu kullanıyorum. Alakası olabilirmi sizce?

.caption = ""

 

[ocamsul]

arkadaşlar sorun nerede acaba? yardım edermisiniz?

 

[ocamsul]

Arkadaşlar merhaba. soruma cevap alamadım. Birde şöyle sorayım; yukarıdaki kod dizisini sayfa adı belirtmek suretiyle nasıl yazabilirim?

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili örnek bir dosya eklerseniz daha çabuk cevap alabilirsiniz. :arkadas:

 

[ocamsul]

Sn: COST_CONTROL excel çalışma sayfası arama işleminin yapılmadığı bir sayfada açılır ise userform üzerindeki arama butonu işlem görmüyo. ancak sayfa en son olarak aramanın yapıldığı sayfada kapatılır ve tekrar açılır ise kod çalışıyo.

Dosyayı ekliyemiyorum. 3.5MB falan

Dosyayı biraz küçülttüm.

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla bir örnek hazırladım. Umarım işinize yarar.

 

[Mahmut Bayram]

O sayfayı etkin yapan bir kod kullanabilirsiniz.

[vb:1:7b9ac7cd3c]Sheets("but_2006_son").Activate
veya
Sheets("but_2006_son").Select[/vb:1:7b9ac7cd3c] şeklinde

Bunu aramak için kullandığınız kodun başına yazın.

 

[ocamsul]

sn: COST_CONTROL ve Partner
çok teşekkür ederim. Sn: Partner'in verdiği cevap işimi gördü. çözüm benim kodlarım itibariyle kolaymış aslında. İlginize çok teşekkür ederim.