Sorgu için arama sonuçları: textbox+find

diğer bi sayfada arama yapıp textbox lara bilgileri dökmesi için olan programda bi hata var ama anlayamadım. bilen arkadaşlar yardım ederse sevinirim. Private Sub CommandButton4_Click() If TextBox1.Value = "" Then MsgBox " TC KİMLİK ALANI BOŞ OLAMAZ. ! ", vbCritical TextBox1.SetFocus...

Merhaba, elektronik malzeme stok takibi için bir form hazırlıyorum. VBA bilgim zayıf, genellikle verilen kodları türeterek işimi görüyorum. Hazırladığım programda aşamadığım bir nokta var. Forumda aramada yaptım ama istediğimi bulamadım. Sorunum, bir sayfada malzeme listem var. Malzeme...

Private Sub Textbox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ' TEXTBOX İÇİNDE ARAMA YAPAR If KeyCode <> 14 Then Exit Sub If Trim(TextBox4.Value) = "" Then: ListeGuncelle: Exit Sub Set Sh = Sheets("Ana Sayfa") Ara = TextBox4.Value Set bulunacak =...

Arkadaşlar Textbox1'in içindeki değeri A sütununda arayan ve bulduğunda o satırı silen bir makro yazdım. Ancak sorun şu ki eğer textbox'ın içeriğini sütunda bulamazsa kod hata veriyor. bu hatayı vermesi yerine eğer textbox içindeki değer sütunda bulunamazsa "FATURA NO. HATALI" uyarı mesajı verip...

Selam, Arkadaşlar, find komutu ile bir değeri birçok kolonda arıyorum. Ancak, bulunan değer aynı satırda birden fazla var ise, satırı ListView'e mükerrer yazıyor. Bunu engelemek isityorum. Aynı zamanda Listview'de aranan değerin olduğu item'i maviye boyuyorum. Bu özelliğin de bozulmamasını...

Merhaba arkadaşlar. 3 Adet TextBox ve 3 Adet ComboBox ile Listview'da süzme işlemini aşağıdaki kod ile yapıyorum. Listview'a yüklenen 8.Item'in değeri 0 ise bu satırın renklendirilmesini istiyorum. UserForm_Initialize olayında bu işlem If l.SubItems(8) = "0" Or l.SubItems(8) = "" Then...

Merhabalar dostlarım uzun bir aradan sonra tekrar aranızda olmak benim için büyük bir mutluluk. öncelikle tüm dostlarıma çalışmalarında başarılar dilerim. benim bu seferki sorunum şu bir Userform üzerinde 26 adet combobox ım var ve bunlar stok kartlarımı çağırıyorlar Private Sub...

Merhaba arkadaşlar.UserForm üzerinden bir textbox aracılığıyla girilen verileri tüm çalışma kitabında bulacak bir bakıma CTRL+F ile aynı ya da benzer işleve sahip bir makro oluşturmak istiyorum.Bu konuda yardımlarınızı bekliyorum.Teşekkürler.

Private Sub TextBox1_Change() On Error Resume Next METİN1 = TextBox1.Value Set FC2 = Range("A3:A65000").Find(What:=METİN1) Application.Goto Reference:=Range(FC2.Address), _ Scroll:=False Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*" If METİN1 = "" Then Selection.AutoFilter...

Private Sub TextBox7_Change() TextBox1 = Evaluate("=UPPER(" & """" & TextBox1 & """" & ")") ' TEXTBOX İÇİNDE ARAMA YAPAR 'If KeyCode <> 13 Then Exit Sub On Error Resume Next If Trim(TextBox1.Value) = "" Then: listeguncelle: Exit Sub Set sh = Sheets("Tüm Liste") ara = TextBox1.Value Set bulunacak...

Aşağıdaki kod ile listboxta arama yaptırıyorum. Ancak Textbox'a arama için veri girdiğimde listboxtaki tarihler hücre de 12.01.2010 iken listboxta 1/12/2010 olarak görünüyor. Tarihin hücrede yazılı şekilde görünmesi için yardımlarınızı bekliyorum. Tarihlerin olduğu sütun "S" sütunu yani 19...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim x As Integer x = Sheets("VERİ").Range("A:A").Cells.Find(What:=ListBox1, LookIn:=xlValues).Row ComboBox1.Value = ListBox1 ComboBox1 = Sheets("VERİ").Cells(x, 1) TextBox1 = Sheets("VERİ").Cells(x, 2) TextBox2 =...

Aşağıdaki kodlarla textbox'a girilen veriye göre arama yapılıyor. Bu arama metodunda optionbutton ile seçeceğimiz sütunlarda arama yaptırılacak şekilde düzenleyebilir mi?. optionbutton1 "B" sütunu, optbt2 "C" sütunu, optbut3 "D" sütununda arama yaptırmak istiyorum. Private Sub...

Private Sub ComboBox1_Click() On Error Resume Next Sheets("FİRMALAR").[A2:A65536].Find(ComboBox1.Value).Activate ComboBox2 = Sheets("FİRMALAR").Cells(ActiveCell.Row, 2).Value End Sub Private Sub ComboBox2_Click() On Error Resume Next Sheets("FİRMALAR").[B2:B65536].Find(ComboBox2.Value).Activate...

Private Sub ListBox1_Click() Dim X As Integer X = Sheets("Sayfa1").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row Cells(X, 4).Select TextBox3.Value = ListBox1 TextBox7.Value = ListBox1 End Sub ListBox1' tıklayınca Textboxlara aynı veriler geliyor.TextBox3'e gelen verinin bir...

Merhabalar . dogru kodu bulamadım sanıyorsam. commandbutton ile textbox' ın değerini aratamıyorum. listboxta aratamıyorum yardımlarınızı rica ederim. birde 60.000 satır var çok ağır çalışıyor listbox aramada evren bey find komutunu kullanmamı istedir fakat bu komutu hiç kullanamdım örnek...

Herkese kolay gelsin. Ekteki dosyada sayfa2 deki ad-soyad verilerini textbox a girilen karaktere göre aratarak listbox a aktarıyor ve listboxda değer seçildiğinde sayfa2 de ilgili ad-soyad a ait diğer bilgileri label de göstermeye çalıştım. Fakat biryerde takıldım. Eğer aynı ad-soyad a sahip...

Ustalara Selam ; UCase Komutunu aşağıdaki makroda kullanmaya çalıştığımda comple error, Can't find project or library hatası veriyor. Ne yapmam gerekiyor. Aynı kod başka bir makinada çalışıyordu. Private Sub CommandButton1_Click() Worksheets("Menu").Unprotect If UCase(TextBox1.Value) =...

merhaba arkdaşlar sitenin yardımıyla okul için kurs takip çalışması yapmaya çalışıyorum .Arama işleminde takıldım .Ben ara sayfasında isim veya numara girince veri sayfasındaki o isme ait numaraları ve isimleri sırasın istiyorum .Çünkü birden fazla kayıt olabiliyor.Ben ara sayfasında bilgileri b...

arkdaşlar siteden yaralanarak kullandığım macro sayfayı ototatik şifreleme ve süzme işemi yapıyor oysa ben bulmuş olduğu satırı sarı renk yapsın istiyorum dosyam ektedir bakabirmisiniz kullanmış olduğum macro ise şu : Private Sub TextBox1_Change() On Error Resume Next NO =...