Çözüldü reçete programı arama ve süzme

[ilkay94]

Merhaba arkadaşlar,

Özellikle Adnan Bey ve Zafer Bey'e sevgi ve saygılarımı sunarım ,

Arkadaşlar bu kod biraz donuyor burada düzeltilecek hızlandırabilecek farklı bir kodlama yapılması mümkün müdür,

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Adnan]

Bunu deneyini
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

gülen adamın yerine : d yazın

 

[ilkay94]

Bunu deneyini
Private Sub TextBox16_Change()

On Error Resume Next

ListBox6.RowSource = Empty
ListBox6.Clear
ListBox6.ColumnCount = 4
ListBox6.ColumnWidths = "50;60;140;90"

son = Sayfa3.Cells(Rows.Count, 2).End(xlUp).Row
Dim rg As Range
Set rg = Sayfa3.Range("A1" & son)
For i = 2 To rg.Rows.Count
If TextBox16.Text <> "" And TextBox16.Text = rg(i, 1) Or rg(i, 2) Like "" & UCase(TextBox16.Text) & "" Or rg(i, 3) Like "" & UCase(TextBox16.Text) & "" Or rg(i, 4) Like "" & UCase(TextBox16.Text) & "" Then
liste = ListBox6.ListCount
ListBox6.AddItem
ListBox6.List(liste, 0) = rg(i, 1)
ListBox6.List(liste, 1) = rg(i, 2)
ListBox6.List(liste, 2) = rg(i, 3)
ListBox6.List(liste, 3) = rg(i, 4)
End If
Next i
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""



End Sub
gülen adamın yerine : d yazın

Bu kodu aynı kodların olduğu mesela TextBox17_Change() ye uyarlamak için nereleri değiştirmem gerekli,

4 tane daha var böylede.

 

[ilkay94]

Adnan Bey,

Hızır gibisiniz maşallah,

Birde çok rica etsem,

s2.Range("A" & son + 1) = "Bu bir " & Sayfa2.Cells(altkatsatir, "e") & "reçetesidir " bu kodu yazarken yazdıktan sonra yazı büyüklüğü 24 olması için ne yapabilirim.

 

[Adnan]

17,18.19 numaralı text boxlar formunuzda bulunmamaktadır. O kodların tamamını silebilirsiniz

 

[ilkay94]

17,18.19 numaralı text boxlar formunuzda bulunmamaktadır. O kodların tamamını silebilirsiniz

Onlar altkaturetim formu icerisinde sag ust kosede ki arama motoru olan yerde adnan bey 4 tane hepsini kendim tasarladim

 

[Adnan]

s2.Range("A" & son + 1) = "Bu bir " & Sayfa2.Cells(altkatsatir, "e") & "reçetesidir "
s2.Range("A" & son + 1).Font.Size = 40
s2.Range("A" & son + 1).Font.Color = vbRed 'Yazı rengi kırmızı istemezsen bunu silebilirsin
s2.Range("A" & son + 1).EntireRow.AutoFit

 

[Adnan]

sayfalamayı kaldırabilirsiniz. Sadece textbox 16 silmeyin. Zaten tüm alanları arayacak şekilde ayarladım. Textbox 16 ya ne yazarsanız onu bulur

 

[ilkay94]

s2.Range("A" & son + 1) = "Bu bir " & Sayfa2.Cells(altkatsatir, "e") & "reçetesidir "
s2.Range("A" & son + 1).Font.Size = 40
s2.Range("A" & son + 1).Font.Color = vbRed 'Yazı rengi kırmızı istemezsen bunu silebilirsin
s2.Range("A" & son + 1).EntireRow.AutoFit

Yazıyı büyütüyor ama bu seferde o sütunu çok genişletiyor,

Sütunu genişletmeden son satıra yazdırma şansımız var mı,

Yok derseniz sizi bıktırmak istemem uğraşmayalım.

 

[ilkay94]

sayfalamayı kaldırabilirsiniz. Sadece textbox 16 silmeyin. Zaten tüm alanları arayacak şekilde ayarladım. Textbox 16 ya ne yazarsanız onu bulur

Mükemmel bir iş çıkarmışsınız eliniz dert görmesin, gerçekten mükemmel.

 

[ilkay94]

Adnan bey,

Aynı aramayı ALTKATTREÇETEEKRANI formu içinde yapabilir miyim,

10'dan fazla sütun var işe yarar mı orada.

 

[Adnan]

hangi liste kutusuna göre arama yapılacak 2 tane liste var

 

[ilkay94]

Ustte

hangi liste kutusuna göre arama yapılacak 2 tane liste var

Listbox 1 e gore arama yapacak

 

[Adnan]

forma bir text box ekleyin numarası 22 değilse ona göre düzenlemeyi unutmayın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ilkay94]

forma bir text box ekleyin numarası 22 değilse ona göre düzenlemeyi unutmayın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Additem den dolayı sanırım 10.sütundan itibaren yani son 2 sütunu getirmiyor.

Ancak böylede kullanabiliriz sizi yeterince uğraştırdım zaten.

Elinize emeğinize sağlık.

 

[Patron]

Ben de hazırlamıştım. Alternatif olsun.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.