• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
I

ilkay94

Yeni Üye
Katılım
27 Nis 2022
Mesajlar
139
Aldığı beğeni
9
Excel V
Office 2016 TR
Konu Sahibi
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:
C-like:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Bunu deneyini
HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
gülen adamın yerine : d yazın
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
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:D" & 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
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
 
Olumlu oy 0 Negatif oyla
17,18.19 numaralı text boxlar formunuzda bulunmamaktadır. O kodların tamamını silebilirsiniz
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
sayfalamayı kaldırabilirsiniz. Sadece textbox 16 silmeyin. Zaten tüm alanları arayacak şekilde ayarladım. Textbox 16 ya ne yazarsanız onu bulur
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
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
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan bey,

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

10'dan fazla sütun var işe yarar mı orada.
 
Olumlu oy 0 Negatif oyla
hangi liste kutusuna göre arama yapılacak 2 tane liste var
 
Olumlu oy 0 Negatif oyla
forma bir text box ekleyin numarası 22 değilse ona göre düzenlemeyi unutmayın
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Çözüm
Konu Sahibi
Adnan' Alıntı:
forma bir text box ekleyin numarası 22 değilse ona göre düzenlemeyi unutmayın
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
Ben de hazırlamıştım. Alternatif olsun.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst