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

merhaba aşağidaki formüller ile listboxa verimi çekiyorum ama ÇOK AĞIR ÇEKİYOR 9 dan fazlasını çekemiyorum hata veriyor vede textboxu silince listboxun içi boşalmıyor bu sorunu nasıl düzelebilirim? Private Sub TextBox4_Change() Dim i As Long, sat As Long, deg As String, x As Long...

Merhab arkadaşlar; Aşağıdaki kodu yazarak sayfadaki verileri textboxa getiriyorum. Ancak çok fazla textbox olacak aşağıdaki kod yerine döngü ile nasıl yapabilirim. Daha önceden yapıyordum ama şimdi sürekli hata yaptım. ComboBox1 = Evaluate("=UPPER(" & """" & ComboBox1 & """" & ")") For Each...

@Muzaffer Ali hocam merhaba, Başlıkları bilerek false yaptım. Ancak genişlik olayını bir türlü çözemedim. Vermiş olduğunuz kodu denedim ancak çok profesyonel olmadığımdan beceremedim. Dosya içerisinde kullanmış oldğum kod aşağıdaki gibidir. Bu kodu ne şekilde revize etmem gerekir. Yardımcı...

Merhaba Textbox 1 (adı ) evrak arama - süzme işlemi yaparken süzme de hata veriyor. Private Sub TextBox1_Change() 'SÜZ Dim suz As Worksheet Dim Veri As Worksheet Set suz = Worksheets("suz") Set Veri = Worksheets("VERİ") suz.Range("A2:I" & Worksheets("suz").Cells(Rows.Count, 1).End(xlUp).Row +...

Merhaba Textbox 1 (adı ) evrak arama - süzme işlemi yaparken süzme de hata veriyor. Private Sub TextBox1_Change() 'SÜZ Dim suz As Worksheet Dim Veri As Worksheet Set suz = Worksheets("suz") Set Veri = Worksheets("VERİ") suz.Range("A2:I" &...

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = Asc(UCase(Chr(KeyAscii))) TextBox4 = Replace(TextBox4, "i", "İ") TextBox4 = Replace(TextBox4, "ı", "I") TextBox4 = Replace(TextBox4, "ğ", "Ğ") TextBox4 = Replace(TextBox4, "ç", "Ç") TextBox4 = Replace(TextBox4...

merhaba arkadaşlar aşağıdaki kod ile textbox içinde kayıt buluyor fakat aynı kayıttan kaç tane varsa enter tuşuna basınca sonrakini bulmasını istiyorum. Private Sub TextBox22_Change() Dim t As String Dim i As Integer t = TextBox22.Text ListBox1.ListIndex = -1 If TextBox22.Text...

Public Function GENEL(ByVal argForm As UserForm) Dim cursorPos As Long Dim Container As Object Set Container = argForm Set Container = Container.ActiveControl With Container.Name cursorPos = .SelStart .Value = UCase(Replace(Replace(.Value, "ı", "I"), "i", "İ")) .SelStart =...

Üstadlar kolay gelsin, Userform ile veri girişi yapılacak bir yapı oluşturdum. Textbox'a girilen metin küçük harfle girilse de tabloya işlerken büyük harfe çevirip işlesin istiyorum. Onun için de Sheets("Sayfa1").range("A1").value=Ucase$(Textbox1.value) şeklinde bir satır ekledim kaydet...

Hocam yukarıda bahsettiğiniz şekilde yaptım; Kodu çalıştırdığımda bu defa aşağıdaki koda gelip Call Me.TextboxDoldur satırını sarı olarak işaretledi hata verdi. Private Sub ListBox1_Click() Call Me.TextBoxDoldur End Sub

Listbox1_Click eski prosedürü silmemişsiniz. Şöyle yapın. GENEL userformunuz altındak tüm kodları silin. Aşağıdaki kodları komple seçip oraya yapıştırın. Ben gönderdiğiniz dosyada hata almadan sonuçları görüyorum. Private Sub CommandButton1_Click() Dim Veri, Listem() ListBox1.RowSource =...

Hocam Eline emeğine sağlık. Ancak kodu çalıştırdığımda hata veriyor.; call.metextboxdoldur kodunu sarı işaretli olarak gösteriyor SAYGILARIMLA

Aşağıdkai kodları kullanabilirsin. Private Sub CommandButton1_Click() Dim Veri, Listem() ListBox1.RowSource = Empty ListBox1.Clear If ComboBox1 = "" Then MsgBox ("Aramak İstediğiniz Ürünün ADINI yazmadınız"), vbCritical, ("DİKKAT!!!") GoTo Son End If...

Merhabalar aşağıdaki kod textbox işlem yapıyor bunu hücrede çalışması için değiştirebilirmiyiz D1 hücresinde . Teşekkürler şimdiden Private Sub TextBox1_Change() Dim stok As Worksheet, ara As Worksheet, Tbl() Dim son As Long, ara_son As Long, x As Long Set stok = Sheets("MerkezFiyat") Set ara =...

Merhaba hocam çok teşekkür ederim aradığım kod ellerinize sağlık . Bir şey isteyebilirmiyim textbox boşken bütün bilgiyi çekse ana sayfadan olurmu

Çok teşekkür ederim.

Eşitlik yerine Like kullanırsanız, yıldız ( * ) işareti ile daha esnek bir arama yöntemi kullanırsınız. If UCase(Replace(Replace(Left(Veri(parca), Len(TextBox1)), "ı", "I"), "i", "İ")) Like UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) Then TextBox örnekler: - *focus* - focus* -...

Deneyiniz. Private Sub adara_Change() Dim i As Long ListBox1.Locked = False ListBox1.ListIndex = -1 For i = 1 To 6 Me.Controls("TextBox" & i) = "" Next If Len(adara.Value) > 0 Then For i = 1 To ListBox1.ListCount If...

Veri sayfasındaki kayıtların hepsi büyük harfle yazılmış. Kod içerisinde de TextBox a yazılan harfleri, büyük harfe çevirme kodu var. aranan = UCase(TextBox1.Text) Bu satırı aşağıdaki şekilde yazdığınız zaman küçük i harfini büyük İ harfine çevirir. aranan = UCase(Replace(TextBox1.Text, "i", "İ"))

Değerli arkadaşlarım daha önce yine burada arkadaşların yazdığı alttaki kodla işlerimi hallediyordum. Şimdi sizlerden eğer mümkünse bir şey rica ediyorum. 1-Gitmek istediğim sayfayı TextBox a yazarken büyük küçük harf duyarlı olmasa(Küçük harfle yazınca tekrar silip yazmam gerekiyor) 2-Yanlış...