Arama kodu sorunu!

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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 = ""
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
arkadaşlar sorun nerede acaba? yardım edermisiniz?
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar merhaba. soruma cevap alamadım. Birde şöyle sorayım; yukarıdaki kod dizisini sayfa adı belirtmek suretiyle nasıl yazabilirim?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Konuyla ilgili örnek bir dosya eklerseniz daha çabuk cevap alabilirsiniz. :arkadas:
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Üst