kelime programı

[dincer47]

sayın üstadlar. yaptıgım programda eksık kısımlar ıcın yardım beklıyorum. arama motoru eksık. ben arayuzu yaptım sadece kodlar yazılacak. bırde kelıme ezberlemek ıcın daha onceden gırılen kelımelerden rastgele secen ve label de goosteren komutu yazzdım fakat sadece ıngılızcesını secıp yazıyor. ıstegım onun turkcesınıde dıger labelde gostermesı.

 

[dincer47]

yardım eden yokmu?

 

[dincer47]

ilgilenen biri yokmu arkadaslar..

 

[ozgretmen]

Label yerine ListBox kullanmak daha yararlı olur gibi geldi bana...

 

[dincer47]

listbox u nasıl kullanmayı dusunuyorsun. ona gerek yokkı. orda amac rastgele secıp labelde goster ve aynı adımlarla kelımelerı gor ve ezberle. lıstboxa gerek yokkı

 

[ozgretmen]

Kodunuzu Aşağıdaki gibi değiştiriniz.

Private Sub basla_Click()
say = WorksheetFunction.CountA([A:A])
b = Int((say * Rnd) + 1)
UserForm1.Label1.Caption = Range("A" & b)
UserForm1.Label2.Caption = Range("B" & b)
End Sub

 

[dincer47]

ozgretmen teşekkürler istedigim gibi.. şimdi tek sorun arama motoru.. yardım edebılecek arkadaslar yardımlarınızı beklıyorum

 

[dincer47]

arama motoru için yardım edebılır mısınız arkadaslar. arayuz tasarımını basıtce yaptım. sadece kodlar gereklı. ıngılızce kelımeyı arayacak alta turkcesını yazacak. bılındık sozluk mısalı. yardım beklıyorum

 

[ozgretmen]

Ekteki örneği inceler misiniz ?

 

[dincer47]

arkadasım ozgretmen... yardımların ıcın tesekkur ederım. bu benım ıcın yeterlı. hersey tam istedigim gibi. ilgin için tekrar tesekkur ederım...şimdi birasda süsleyip püsleyim kullanım hazırlayım. eminim birçok kişinin işine yarayacaktır.

 

[ozgretmen]

Rica ederim.iyi çalışmalar...

 

[dincer47]

arkadaslar bu arama motorunda arama yapılıyor hersey normal lakin bulunamıcak bırsey yazıldıgında hata verıyor. olmayan bıse arandıgında "aradıgınız kelime bulunamadı" yazmasını ıstıyorum. yardım edebılecek bırı war mı?

 

[Kemal Demir]

....İkinci kere yazdım.

 

[Kemal Demir]

Aşagıdaki koda gore duzenleyiniz.

On Error GoTo hata
y = Sheets("sayfa1").Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa1").Range("A1:A" & y).Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Select
TextBox2.Value = ActiveCell.Offset(0, 1).Value
If hata = True Then
hata: MsgBox "Aranan Kelime Bulunamadı", vbCritical, "Dikkat"
End If

 

[dincer47]

kemal demir arkadaşım ilginden dolayı çok teşekkür ederim. istediğimşey buydu.