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

Arkadaşlar kolay gelsin. Daha önce formdaki arkadaşlara yaptırdığım bir kod hatasız çalışıyordu. Diğer bilgisayarlarda şuan karşılaştığım hatalar olduğu halde benim bilgisayarda düzgün çalışıyordu. Lakin bilgisayarı yeniden kurana kadar. Resmini çektiğim ve eklediğim örnekte göreceğiniz gibi...

Değerli Dostlar Selamlar, Sub kaydet() 'K A Y D E T On Error Resume Next If TextBox1.Text = "" Then MsgBox ("LÜTFEN ADINI YAZIN"), vbCritical, ("AD BÖLÜMÜ BOŞ") Exit Sub ElseIf TextBox2.Text = "" Then MsgBox ("LÜTFEN SOYADINI YAZIN"), vbCritical, ("SOYADI BÖLÜMÜ BOŞ") Exit Sub ElseIf...

Arkadaşlar Merhaba, Aşağıdaki kodlarla TextBox2 ye girilen veriye göre filtreleme yapılıyor. Ancak dosyayı kapatırken TextBoxdaki yazı silinsin, dolayısıyla filtreleme kaldırılsın istiyorum.. Bunun için auto close a nasıl bir kod eklemeliyim.. İlgilenen arkadaşlar teşekkür ederim. Private Sub...

Aşağıdaki makroda TextBox15 boş olduğunda kırmızı bölümde hata veriyor TextBox15 e 0 (sıfır) girerek geçmek istediğimde Combobox4 ile yazdırdığım yeri siliyor. Yardımcı olabilirmisiniz ? Private Sub ÇIKIŞ_Click() Unload UserForm1 End Sub Private Sub KAYDET_Click() If...

Arkadaşlar ekdeki dosyada daha önce forumdan bir arkadaşımızın aşağıdaki kodları ile textbox 20 ve textbox 21 ile süzme yapmaya çalışıyorum fakat hata veriyor. yardımlarınızı rica ediyorum Private Sub TextBox20_Change() 'On Error Resume Next Dim k As Range, a As Long, j As Byte, ilk_adres As...

sanırım bu vba da find komutu ile oluyor, textbox a veri almayı yapabildim ancak listbox ı yapamadaım.

Kaydet butonuna tıkladıktan sonra imleç ogrencino isimli textbox ta hazır bulunuyodu, daha sonra userform a listbox ekleyip son verinin lisbox ta görünmesi şeklinde kod yazınca imleç ogrencino textbx ında yanıp sönmüyor ve her veri girişinden önce tıklamam gerekiyor bu durun nasıl çözülebilir...

Aşağıdaki kod ile düzenleme yaptıktan sonra değiştir dediğimde E sutunundaki veriler tarih formatına dönüşüyor. Yardımalrınızı bekliyorum teşekkürler Private Sub CommandButton2_Click() Sheets("Data").Select If TextBox1.Value = "" Then MsgBox "Personel No'su Boş Olamaz..!", vbCritical...

Çalışmalarımda combobox ve Textbox lara verileri Kitabı açıp veriyi alıp tekrar kapatıyordum. Üstadların yardımı ile Kapalı kitaptan veri almaya başladım. Daha önceden Userform daki Combobox52 ye veriyi Workbooks.Open ThisWorkbook.Path & "\personel_bilgi.xls" '======== Combobox52'ye Veri...

Merhaba arkadaşlar herkese iyi bayramlar... Aşağıdaki kodlarda kırmızı ile işaretli satır için ekteki hata mesajını alıyorum yardımcı olabilir misiniz? Private Sub MultiPage1_change() If MultiPage1.Value = 0 Then On Error GoTo m End If If MultiPage1.Value = 1 Then On Error GoTo n End If End...

merhaba, userform uzerine bir textbox ekledim, multiline ozelligi true yapildi. icine uzunca bir yazi yapistirdim ve bunun icinden "adi" kelimesini aramayi, "adi" kelimesini bulduktan sonra da ordan itibaren 25 karakter okumak ve baska bir textbox 'a aktarmak istiyorum. nasil yapabilirim...

Ornek dosyada gorulecegi uzere hazırlanan listede urun kodu sutunundakı textbox ile suzme isleminde hata ulusmaktadır. Soyleki ornek dosyadaki renklendirilmis olan hucrelerde textbox ile suzme islemi yapılamamaktadır. (not:hucre degerinde harf ihtiva edenler süzme isleminden gecmekte diger...

merhaba sayin ustalarim asagidaki kodlardan 1.2.3.4. kodlari sayfanin kod bölümüne yazmak suretiyle textbox larda süzme islemi yapiyordum. taki 5. kodu ayni sayfaya yazana kadar bir sorun yoktu. 5.kod calisirsa texboxt kodlari sonradan calismiyor. acaba bu kodlari birlestirme imkani var midir...

Sn dostlar textbox süzme ile ilgili değişik birçok çalışma indirdim ve inceledim.tabi kodlar hakkında fazla bilgili değilim ve bu kodu en azından biraz anlayabilmek istiyorum.ekte örneği verdim gerçi ama (oda siteden alıntıdır.yapanın emeğine sağlık) burayada ayrıca açıklayayım . Private Sub...

Merhaba; 1- Arkadaşlar Sorudanda anlaşılacağı üzere textbox aracılığıile filitre uygunamış sayfayı Listview de görüntülerken filitre uygulanmış sayfayı aynen görmek istiyorum ancak ilk ve son satırlar sayfada gözükmemesine rağmen listview de gözüküyor. 2 - Listview güncellendikçe sütun...

Combobox'a veri aldırıp seçim yaptıktan sonra , seçime göre Texbox1'e sayfa3 C sütunundaki veriyi getiriyorum Dim Aranan As String Dim Satir As Integer Aranan = ComboBox52.Value If Aranan = "" Then Exit Sub Satir = Worksheets("Sayfa3").Range("b:b").Cells.Find(Aranan...

merhaba arkadaşlar....sizden ricam... Private Sub TextBox7_Change() For tem = 1 To 4 'Controls("textbox" & tem) = Empty Next Set SR = Sheets("SAYFA1") ListView1.ListItems.Clear ALAN = IIf(TextBox7 = "", Range("A2:A" & [A65536].End(3).Row).Address, Range("A1:A" &...

Private Sub TextBox4_Change() On Error Resume Next METİN2 = TextBox4.Value Set FC2 = Range("H5:H500").Find(What:=METİN2) Application.Goto Reference:=Range(FC2.Address), _ Scroll:=False Selection.AutoFilter Field:=6, Criteria1:=TextBox4.Value & "*" If METİN2 = "" Then Selection.AutoFilter...

Merhaba arkadaşlar evde ki pcimde yaptığım programı evde çalıştırmya çalıştığımda aşağıdaki hatayı veriyor "Can't find project or library" hatasını veriyor. ve forma eklediğim textbox için userforminitialize olayının altına textbox1.text=format(date,"dd.mm.yyyy") kodunu yazmıştım o hatayı...

Private Sub CommandButton2_Click() Sheets("Personel_Bilgi").Select If TextBox1.Value = "" Then MsgBox "Personel No'su Boş Olamaz..!", vbCritical TextBox1.SetFocus Exit Sub End If If MsgBox("DEĞİŞİKLİK YAPMAK İSTYORMUSUNUZ.?", vbQuestion) = vbNo Then...