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

Combobox'a Adı ve Soyadı sütunlarını birleştirerek aldım. Private Sub UserForm_Activate() Workbooks.Open ThisWorkbook.Path & "\personel_bilgi_1.xls" Worksheets("Sayfa3").Select '======== Combobox1'e Veri Alma ====================== a = WorksheetFunction.CountA(Range("B:B")) For i = 2 To a...

Private Sub TextBox1_Change() On Error Resume Next Sonuc = TextBox1.Value If CheckBox1.Value = False Then Set FC2 = Range("A6:A500").Find(What:=Sonuc) Application.Goto Reference:=Range(FC2.Address), Scroll:=False ElseIf CheckBox1.Value = True Then Selection.AutoFilter Field:=1, Criteria1:="*" &...

Merhaba. Daha önce sn COST_CONTROL arkadaşımın yardımları ile yapmış olduğum dosyada listwievde arama yaptırıyorum.Fakat arama yaptıktan sonra textboxu boşalttığımda sayfadaki en başta bulunan veri listwievde en sonda görüntüleniyor.Uğraşmama rahmen sebebini bulamadım.Örnek dosya...

aşağıdaki kod ile Bordro sayfasından userforma verileri alıyorum. Aynı userforma Personel_bilgi sayfasından da veri almak istiyorum. Yardımlarınız için teşekkür ederim. Private Sub CommandButton1_Click() Sheets("Bordro").Select If TextBox65.Value = "" Or TextBox65.Value = 0 Or...

Private Sub Listbox1_Change() On Error Resume Next Set sh = Sheets("MÜŞTERİLER") satir = sh.Columns(1).Find(ListBox1.Text).Row For i = 1 To 46 UserForm1.Controls("textbox" & i).Text = sh.Cells(satir, i) Next Cells(ListBox1.ListIndex + 2, 1).Select End Sub...

Arkadaşlar merhaba Aşağıdaki kod'ta TextBox'un içine yazdığım değeri sayfada arıyor eğer değer var ise 1 arttırıyor yok ise sayfaya kayıt yapıyor buraya kadar herşey normal. Ama şöyle bir sorun oluşuyor textbox'un içine yazdığım değer "0211" gibi ise bunu sayfaya "211" olarak kaydediyor daha...

Arkadaslar selam, Bir databasim var ve bunu hazirlamis oldugum bir form ile olusturup tekrar oraya cagirip degisiklikler yapabiliyorum. Form uzerinde bir de listbox var ki sadece A kolonundaki müsteri numarini getiriyorum ve bunu listboximdaki uzerindeki bir textbox ile arama yapmayi...

Merhaba , Sayfanin 3. satirina yerlestirdigim textbox ile veri arama islemi yapiyorum. Aranacak veriler 5. satirdan itibaren basliyor. Makro eskiden sorunsuz calisiyordu ama sonradan anlamadigim bi sorun olustu.. Soyleki.. Textboxa herhangi bir harf girdigimde 4. satira kadar tum satirlar sabit...

Arkadaşlar merhaba Bir UserForm üzerinde 25 adet textbox var. Kodlardan tasarruf sağlamak istiyorum herbirine tek tek yazmaktansa bunun için alternatif olarak ne yapabiliriz. Private Sub STK1_Change() On Error Resume Next Dim X As Integer X =...

Merhaba arkadaşlar.. Ben bir userform hazırladım ve bir adet text box koydum bir adette arama butonu. şimdi bu textboxtaki girdiğim veriyi buldu ama aynı sayfadakileri.. ben bunu bütün kitaba yapmasını istiyorum bide bulduğu sayfayı aktif yapmasını yani o sayfaya gitmes istiyorum...

Private Sub ComboBox1_Change() Columns(1).Find(ComboBox1.Text).Select For i = 1 To 6 UserForm1.Controls("textbox" & i).Text = ActiveCell.Offset(0, i) Next End Sub Private Sub CommandButton1_Click() Columns(1).Find(ComboBox1.Text).Select For i = 1 To 6 ActiveCell.Offset(0, i) =...

Ekteki dosyada Find dugmesine basilinca acilan formda, tarih ve saat formatlari duzgun calismiyor. Ayrica listboxun M sütununa kadar butun sutunlardaki verileri goruntulemesi gerekiyor ama goruntulemiyor. Yardimci olabilirseniz cok sevinirim.

Merhaba, bir textbox a yazdığım değeri yine aynı userform içerisindeki 62 textbox değeri arasında arayıp bulduğu textbox u veya yanındakini seçtirmek mümkün mü ? Dim bbul As Range For x = 1 To 62 Set bbul =...

merhaba, konuyu biraz araştırdım ama seçenek çok olduğundan aradığımı bulamadım, o nedenle yeni başlık açtım Private Sub ebul() If ETel.Value = "" Then Exit Sub End If Dim evs As Range Set evs = Range("s1:al9999").Find(ETel) If evs Is Nothing Then Exit Sub End If evs.Select YNO =...

merhaba arkadaşlar; sormak istediğim bir iki şey var, 33 adet textbox kullanıyorum ve bunların her biri için ayrı satırda kod yazıyorum. bu programın çalışmasında bi yavaşlatma yaparmı zira program baya bi yavaş çalışıyor. aşağıdaki kodu nasıl kısalta bilirim. bi göz atarsanız sevinirim...

arkadaşlar iyi akşamlar yazacağım kodda comboboxtaki bir veriyi a2:a65536 arasında arıyor ve hücreyi seçili kılıyor. On Error GoTo 10 sut = [a1:iv1].Find(T1).Column sat = [a2:a65536].Find(ComboBox1).Row Cells(sat, sut).Select ActiveCell.Value =...

First of all I hope new title will be best. the forum doesn’t see any limit. :D:D in fact, I asked this question in macro section but there were no answer to it.Thus,I also write it here to support the archive and to find an answer.:mrgreen: :mrgreen: :mrgreen: I want to see the...

Private Sub TextBox2_Change() On Error Resume Next SONUC2 = TextBox2.Value Set FC2 = Range("B3:B8650").Find(What:=SONUC2) Application.Goto Reference:=Range(FC2.Address), _ Scroll:=False Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*" End Sub Yukarıdaki kodu forumdan...

Arkadaşlar bir form üzerinde bilgileri silme ve düzeltme işlemleri yapılıyor. Aynı form üzerinde isimlerin alt alta sıralandığı listbox var. Listbox'taki isme tıklayınca 4 adet textbox'a o kişinin bilgileri geliyor. Sorunum şu: Her nedense listenin en sonundaki isime tıkladığımda o kişinin...