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

Herkese merhabalar; Aşağıdaki kodla "adi" adlı comboboxtan seçtiğim isme ait satırın 36. sütunundaki hücreye "gorusme" adlı textbox ın değerini atıyorum.Ancak kodu şöyle düzenlemem gerekiyor: isme ait satırın 36. veya 36 dolu ise sonrasındaki ilk boş satırındaki hücreye eşitle. Düzenlememe...

kolay gelsin. Sorgu çalıştır ile Bordro ve Personel bilgi sayfalarından veri alıyorum. Aşağıdaki kod ile de veriler arasında gezinirken sadece bordrodan verileri aldığını farkettim. Yani Sipin Button ile bir başka veriyi çağırdığımda bordro sayfasındaki veriler geliyor ama Personel bilgi...

Arkadaşlar ayrı bir sayfa açmak istemiyordum aslında ancak cevap gelmediği için maalesef konu açtım. aşağıdaki kodu tek koda dönüştürmek istiyorum yardımcı olabilir misiniz? Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox9 = Empty Then Label22 = "": Exit Sub Label22 =...

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" &...