arama kodu

[yamahato]

bir arama motoru yapacağım. bu motora girilen numarayı sistem data sayfasında bulunan numaralar içinden bularak bu numara ile ilgili yaklaşık 7 bilgiyi listeleyecek bana bunu nasıl yapacağım konusunda bilgi verirmisiniz. örnek şablon ektedir.

 

[Orion1]

bir arama motoru yapacağım. bu motora girilen numarayı sistem data sayfasında bulunan numaralar içinden bularak bu numara ile ilgili yaklaşık 7 bilgiyi listeleyecek bana bunu nasıl yapacağım konusunda bilgi verirmisiniz. örnek şablon ektedir.

Dosyanız ektedir.

Private Sub TextBox1_Change()
Dim i As Byte, k As Range
For i = 3 To 9
    Controls("Textbox" & i).Text = ""
Next
If TextBox1.Text = "" Then Exit Sub
Set k = Sheets("BİLGİLER").Range("B2:B65536").Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    For i = 3 To 9
        Controls("TextBox" & i).Text = Sheets("BİLGİLER").Cells(k.Row, i - 1)
    Next
End If

End Sub

 

[İhsan Tank]

Evren Gizlen uzman'dan özür dileyerek

Private Sub TextBox1_Change()
On Error Resume Next
Sheets("BİLGİLER").[B2:B65536].Find(TextBox1.Value).Activate
TextBox3 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 2).Value
TextBox4 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 3).Value
TextBox5 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 4).Value
TextBox6 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 5).Value
TextBox7 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 6).Value
TextBox8 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 7).Value
TextBox9 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 8).Value
End Sub

örnek ekte

 

[Orion1]

Evren Gizlen uzman'dan özür dileyerek

Private Sub TextBox1_Change()
On Error Resume Next
Sheets("BİLGİLER").[B2:B65536].Find(TextBox1.Value).Activate
TextBox3 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 2).Value
TextBox4 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 3).Value
TextBox5 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 4).Value
TextBox6 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 5).Value
TextBox7 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 6).Value
TextBox8 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 7).Value
TextBox9 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 8).Value
End Sub

örnek ekte

Rica ederim
Ama sizin verdiğiniz kodlar yanlış.
Çünkü olmayan bir numara arandığında o kod yoksa bile textboxlarda ,o anda hangi hücre aktifse o satırdaki hücreleri textboxta varmışta bulmuş gibi gösterir.
Benim yazdığım kodları incelemenizi tavsiye ederim.

 

[İhsan Tank]

hocam sizin kodlarla benim verdiğim kodlar'ın arasındaki fark sanırım sizinki son haneye kadar bilgi çıkarmıyor benim yaptığım ise benzerleri çıkarıyor
sizin ki daha kullanışlı yani hocam teşekkür ederim bilgi verdiğiniz için

 

[Orion1]

hocam sizin kodlarla benim verdiğim kodlar'ın arasındaki fark sanırım sizinki son haneye kadar bilgi çıkarmıyor benim yaptığım ise benzerleri çıkarıyor
sizin ki daha kullanışlı yani hocam teşekkür ederim bilgi verdiğiniz için

Orası öylede,Benim kastettiğim konu o değildi.
Olmayan bir numarayıda orada varmış gibi textboxlarda gösteriyor.
Örneğin orada olamayan bir numara olarak aşağıda verdiğim no Yu textbox1 e yazıp bakarsanız.Sanki varmış gibi gösteriyor.siz o yüzden hata denetleme kodunu on error resume next diye değilde bir tane kodların sonuna paragraf koyarsanız oraya atlayarak bir şey göstermeyebilirsiniz.Kodların başınada textboxları temizleyen kodu yazarsanız polur.
Hata denetim kodu olarak on error goto atla kullanın.Ama en sona atla: diye paragraf yapınız.
Mesela alttaki noyu yazdığınızda bu sanki varmış gibi algılanıyor.İnsanlar bunu var diye algılayıp yanlış işlemler yapabilirier.Aşağıdaki noyu Textbox1e yazıp gözlemleyiniz.
32409735467889

 

[İhsan Tank]

siz o yüzden hata denetleme kodunu on error resume next diye değilde bir tane kodların sonuna paragraf koyarsanız oraya atlayarak bir şey göstermeyebilirsiniz.Kodların başınada textboxları temizleyen kodu yazarsanız olur.
Hata denetim kodu olarak on error goto atla kullanın.Ama en sona atla: diye paragraf yapınız.

hocam denedim bu alıntıdadkileri nasıl yapabilirim ayrıca makro ve userform konusunda o kadar bilgim yok bilgim dahilinde yardım ediyorum ama sizin yaptıklarınızla kendimi kıyaslıyorum. siteyi neredeyse 24 saat aktif olarak kullanıyorum ve bütün kodların işlerliğini denemeye çalışıyorum alıntıyı nasıl yapabilirim izah ederseniz sevinirim.

 

[yamahato]

uzmanlarım iki programıda denedim çalışmıyor arama yapmıyor ne olan numaraları nede olmayan numaraları çalışmalarınızıda imdirdim ama gene çalışmadısıkıntı nerede anlamadım

 

[Orion1]

uzmanlarım iki programıda denedim çalışmıyor arama yapmıyor ne olan numaraları nede olmayan numaraları çalışmalarınızıda imdirdim ama gene çalışmadısıkıntı nerede anlamadım

B sütunundaki veriler aranacak.
Bizim yoladığımız dosyalarda arama sorunsuz bir şekilde oluyordu.
Textbox1 e B sütunundaki herhangi bir numaryı girmelisiniz.
Siz bu kodları alıp başka bir yere yapıştırdıysanız hata sizdedir büyük ihtimalle.Yanlış bir şey yapmışsınızdır.

 

[Orion1]

hocam denedim bu alıntıdadkileri nasıl yapabilirim ayrıca makro ve userform konusunda o kadar bilgim yok bilgim dahilinde yardım ediyorum ama sizin yaptıklarınızla kendimi kıyaslıyorum. siteyi neredeyse 24 saat aktif olarak kullanıyorum ve bütün kodların işlerliğini denemeye çalışıyorum alıntıyı nasıl yapabilirim izah ederseniz sevinirim.

Benim yazdığım kodları kullanın.Onlar size yeter.Doğru olan benim yazdıklarım kodlardır.Yanlış olan üzerinde israrla durmayınız.Onları atın çöpe.

 

[İhsan Tank]

Benim yazdığım kodları kullanın.Onlar size yeter.Doğru olan benim yazdıklarım kodlardır.Yanlış olan üzerinde israrla durmayınız.Onları atın çöpe.

hocam attım gitti teşekkür ederim

yamahato aradaşım şu an evren hocanın eklediği dosyayı inceliyorum
doğru arama yapmıyor ana manü sayfasındaki butonu bilgiler sayfasına koyarsanız arama yapıyor lütfen deneyiniz

 

[Orion1]

hocam attım gitti teşekkür ederim

yamahato aradaşım şu an evren hocanın eklediği dosyayı inceliyorum
doğru arama yapmıyor ana manü sayfasındaki butonu bilgiler sayfasına koyarsanız arama yapıyor lütfen deneyiniz

Durum düzeltildi.
Şimdi istediğiniz sayfada çalıştırabilişrsiniz.
Dosyayı 2 nolu mesajdan indirebilirsiniz.

 

[İhsan Tank]

Durum düzeltildi.
Şimdi istediğiniz sayfada çalıştırabilişrsiniz.
Dosyayı 2 nolu mesajdan indirebilirsiniz.

çözüm için teşekkürler

 

[yamahato]

Teşekkürler uzmanlarım . çok sağolun son bir isteğim var programın içindeki bilgilerim sayfasında ben excel üzerinde eğer formulünü kullanarak kritik stok seviye belirledim. yani stok seviye 2den aşağı düşünce program malzeme isteği yapınız diyor . 2 den yukarı olunca stok seviye yeterli diyor. sıkıntı şu
1- malzeme isteği yapınızı daha belirgin hale getirmeliyim yani yazı kırmızı olsun.hatta yapabilirsek yanıp sönsün.
2-stok miktarı sutununda bir değer yokken açıklamalar hanesindede bir şey yazmasın. sadece stok miktarı sayı olunca açıklama hanesinde bilgi olsun sayı yokken olmasın.

yardımlarınız için teşekkürler