ara

[Qosqo]

selam

makro ile arama yaptırma konusunda tüm forumda aramalar yaptım .Bir çok örneği inceledim fakat başarılı olamadım, bu konuda bilgisi olan arkadaşlardan yardım rica edicem.
projemi ekte gönderdim.Aslında oldukça basit bi şey ama bilgi eksik olunca olmuyor.
1)ilk userformda textbox a yazdığım kelimeyi ara butonuna basınca data çalışma sayfanıdaki verilerden bulucak ve ara butonunun altındaki kutuda göstericek

2) data sayfasında bulamadıysa ekleme yapmak istermisiniz diye sorup evet yada hayır cevabına göre
3) evet dersem ikinci user formum ekrana gelicek ve ilk forumdaki aranan kelimeyi de ikinci formun üstüne getiricek
4) ikinci formdaki textbox a ben anlamını girdikten sonra kaydedicek.

ilginiz için çok teşekkür ederim.

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[Qosqo]

çok çok teşekkür ederim,ellerinize sağlık.
d,h1,h2 hücrelerini aslında excel in vlookup formülünü kullanmak istedim fakat olmadı
tekrar teşekkür ederim

 

[Qosqo]

yanlız bi sorunla karşılaştım.aranan kelimeyi listede olduğu halde bulunamadı ekleme istermisiniz sorusunu yöneltiyor

 

[kan-nas]

Sheets("Data").Select
Range("C:C").Select
Selection.Find(TextBox1.Value).Select
TextBox2.Value = ActiveCell.Offset(0, 1).Value

Data arama için yukarıdaki kodda kullanılabilir.

 

[Qosqo]

teşekkür ederim

 

[dEdE]

yanlız bi sorunla karşılaştım.aranan kelimeyi listede olduğu halde bulunamadı ekleme istermisiniz sorusunu yöneltiyor

Merhaba,
Olası bulamama nedeni sözcüğün başında veya sonunda boşluk bulunmasıdır.
Aşağıdaki kodu modüle yapıştırarak bir kez çalıştırmanız mevcut verilerinizde bulunan boşlukları kaldırarak sorunu çözecektir.

Sub BoşlukSil()
    For i = 1 To [C65536].End(3).Row
        Cells(i, 3).Value = Trim(Cells(i, 3).Value)
    Next
End Sub

Sayın kan-nas,
Yazdığınız kodun ilk üç satırı aşağıdaki şekilde birleştirilerek daha kısa kod yazılabilir.

Sheets("Data").Range("C:C").Find(TextBox1.Value).Select

 

[kan-nas]

Sn dEdE,
Teşekkürler. Kod böyle daha kısa ve daha açık. Eksik olma..

 

[Qosqo]

ilginiz için teşekkür ederim ama dediğiniz gibi modul e yapıştırdım kodu çalıştırdım fakat sorun devam etmekte

 

[dEdE]

ilginiz için teşekkür ederim ama dediğiniz gibi modul e yapıştırdım kodu çalıştırdım fakat sorun devam etmekte

Merhaba,
Örnek dosyanızı yeniden inceledim. Bu dosyaya göre bulmaması söz konusu olamaz. Ancak dosyanızda aynı sözcük iki defa yazılmış. Bu durumda birincisıni bulur. (Örn. ABİ sözcüğü iki kez yazılmış) Sözlük mantığında sözcüğü bir kez yazıp, farklı anlamlarını arka arkaya yazmak vardır. Buna karşın siz iki veya daha fazla yazacaksanız, ikincinin karşılığı formda nereye yazılacak, ayrı bir texbox veya label gerekir. Ayrıca kodları da değiştirmek gerekecek.
Sorunlu dosyayı görmeden bundan fazlasını söylemek falcılık olur.
Hoşçakalın.

 

[Qosqo]

sizi yordum farkındayım , yeniden sizinda tavsiyeniz üzre formu teke indirdim daha mantıklı oldu.
örneğin bu haliyle tekrar gönderiyorum,listede olduğu halde bulunan ilk değer textbox2 kutucuğuna yazılmıyor direk ekleme yapmak istermisiniz uyarısı geliyor
kodları inceliyorum hemde öğrenmeye çalışıyorum ama malesef bulamadım

 

[Qosqo]

sorunu çözdüm aranan sütün "c" değil "b" olucakmış düzeltince çalıştı

 

[dengedna]

YENİ BULMACA SOZLUGU2.xls bu dosyadaki açılırken BULMACA SÖZLÜĞÜ başlığını nasıl değiştirebilirim söyleyebilirmisiniz ?

 

[dEdE]

Merhaba,
Açılan UserFormu kapatınız.
Alt+F11 tuşlarına basarak VBA düzenleyicisini açınız.
ARAMA isimli userForm üzerindeki Labe1 in Caption kısmına istediğiniz başlığı yazarak dosyayı kaydedin.