Arama hakkında yardım

[Muystafa]

Bayağı kayıt girilmiş bir excel çalışma sayfam var. Bu Sayfada arama yaptırmak istiyorum . Bu aramayı ADANO alanına göre yaptırmak istiyorum bir userform yaptım, aranacak adano sunun girileceği bir text kutusu var birde bul butonu var bul butonuna hangi kodları yazmam gerekiyor şimkdiden teşekkurler.

 

[Levent Menteşoğlu]

Merhaba

ADANO verileri hangi sütunda ve veri bulunduğunda ne işlem yapılacaktır?

 

[Muystafa]

adano alanı E sütünunda veri bulundugunda o veriye ait tüm satırın zemin rengi kırmızı olabilir .
adano e sutununda ama her satır yani her kayıt icin ayrı adano var yani 3 sutununda assagıya doru gidiyor. sayı olarak 5. sütünda

 

[Muystafa]

userformda adanonun girileciği kutunun adı TextBox1, Bul butonunun adıda CommandButon1

excel calışma sayfasında adano alanı 5. yani E sütununda

Aranan adano bulundugunda o adanumarasına ait satir kırmızı olursa sevinirim simdiden allah razı olsun

 

[Levent Menteşoğlu]

Commandbutona aşağıdaki kodu yazarak deneyin.

[vb:1:36e29e5a5d]Private Sub CommandButton1_Click()
On Error GoTo 10
Cells.Interior.ColorIndex = xlNone
sat = [e1:e65536].Find(TextBox1.Value).Row
Rows(sat).Interior.ColorIndex = 3
Exit Sub
10 MsgBox "ARANAN ADANO BULUNAMADI"
End Sub
[/vb:1:36e29e5a5d]

 

[Muystafa]

Allah tuttugunu altın etsin, allah ne muradın varsa versin. SEn beni mutlu ettin Allahta seni mutlu etsin

 

[Muystafa]

Arkadaşım son bişi rica etsem o çalışma sayfasıı acıldıgı gibi bu yaptıgın userform ekrana gelmesii icin ne yapmam gerikiyor .

 

[Muystafa]

bide kaydettim kapattım hersseyi simdide Runtime error'28' out of stack hatası veriyor

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalarsanız, sayfa her aktif olduğunda userform açılacaktır.

[vb:1:be326d90c9]Private Sub Worksheet_Activate()
UserForm1.Show
End Sub[/vb:1:be326d90c9]

 

[Muystafa]

yaw bide tamam zemin rengi kırmızı oluyorda imleç neden o satıra gitmiyor, yani buluyor bulmasınada ekran oraya gitmiyor.

 

[Levent Menteşoğlu]

Bu durumda kodu aşağıdaki ile değiştirin.

[vb:1:a8b4be7f9e]Private Sub CommandButton1_Click()
On Error GoTo 10
Cells.Interior.ColorIndex = xlNone
sat = [e1:e65536].Find(TextBox1.Value).Row
cells(sat,"a").select
Rows(sat).Interior.ColorIndex = 3
Exit Sub
10 MsgBox "ARANAN ADANO BULUNAMADI"
End Sub
[/vb:1:a8b4be7f9e]

 

[Muystafa]

Hemen hemen oldu gibi ama tek sorun excel i yani calışma sayfasını actıgım zaman hala user form direk olarak gelmiyo ve ben ona kısayol verdim Ctrl+q diye ama hala runtime error '28' out of stack hatası veriyor. bu hata acaba kısayol veridm diyemi yani baska bir kısayolla cakışıyor olabilmesinden mi kaynaklanıyor

Allah tuttugunu altın etsin

 

[Levent Menteşoğlu]

Yukarıda verdiğim kodu sayfanın kod sayfasına kopyalayıp denedinizmi?

 

[Muystafa]

şimdi söle yaptım tam ekranı ekte gönderiyorum. Excel çalışma sayfasında iken
Araçlar>Makro>Visual Basic Düzenleyicisini çalıştırıp orada yaptım ben bunları

printscreen dada goruceksiniz zaten

 

[Levent Menteşoğlu]

Tamam resimlere göre kodları doğru modüllere yerleştirmişsiniz, sorun olmaması gerekir.

 

[Muystafa]

ya ms visual basic yuklu olması gerikiyormmu yani bende yuklu değil bu excel calışma sayfasını çalıştıracagımız her bilgisyaraada yuklemekte olmaz sadece excel yuklu olsa calısır tahminim yani sorun visual basic kaynaklımı acaba

 

[Muystafa]

yani alt+f11 kısayolu ile ms visual basic editorunu acınca out of stack hatası vermiyo calışıyo ama herzaman onu acık tutmak gerekmemesi gerekiyo öyle dimi

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz onun üzerinden gidelim. VBE nin elbette açık olması gerekmiyor.

 

[Muystafa]

peki bizim bu yaptıgımız user formu nereye kaydediyor ayrı bi dosya olarak acamazmıyız yani onu ayrı çalıştırayım arama yapcakları zaman ona tıklayıp girsinler degiştirme yapcakları zaman normal excel çalışma sayfasına girsinler ikiside aynı yola cıkaacak ama kullanıcı bunu anlamaz

 

[Muystafa]

tamam ekliyorum valla dostum benim msn Muystafa@hotmail.com daha hızlı hareket ederiz simdiden cok yardımcı oldun allah senden razı olsun