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 + 1).ClearContents
If tiklandimi = True Then GoTo 10
Dim i As Long, sat As Long, deg As String, X As Long
TextBox1 = StrConv(TextBox1, vbUpperCase)
sat = Veri.Cells(Rows.Count, "A").End(xlUp).Row
EVRAKARAMA.RowSource = "": TextBox2 = ""
txtbx = UCase(Replace(Replace(TextBox1.Text, "i", "İ"), "ı", "I"))
X = 2
For i = 2 To sat
deg = UCase(Replace(Replace(Veri.Cells(i, "c").Value, "i", "İ"), "ı", "I"))
If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) Like "*" & txtbx & "*" Then
suz.Cells(X, 1).Value = Veri.Range("A" & i).Value
suz.Cells(X, 2).Value = Veri.Range("B" & i).Value
suz.Cells(X, 3).Value = Veri.Range("C" & i).Value
suz.Cells(X, 4).Value = Veri.Range("D" & i).Value
suz.Cells(X, 5).Value = Veri.Range("E" & i).Value
suz.Cells(X, 6).Value = Veri.Range("F" & i).Value
suz.Cells(X, 7).Value = Veri.Range("G" & i).Value
suz.Cells(X, 8).Value = Veri.Range("H" & i).Value
suz.Cells(X, 9).Value = Veri.Range("I" & i).Value
X = X + 1
End If
Next
EVRAKARAMA.RowSource = suz.Range("A2:I" & X).Address
10
End Sub
Nasıl bir düzeltme yapmalıyım?
İlgilenen arkadaşlara şimdiden teşekkürler.
TextBox ile listbox da süzmede hata !
-
- Mesajlar: 9
- Kayıt: 24 Oca 2024, 00:28
- Meslek: Öğretim Görevlisi
- Adınız: MEHMET
- Soyadınız: VURANOĞLU
TextBox ile listbox da süzmede hata !
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 41
- Kayıt: 21 Oca 2024, 13:44
- Adınız: sahin
- Soyadınız: sahin
Re: TextBox ile listbox da süzmede hata !
listboxada formada aynı isim verilmiş o yüzden hatalı geliyor
listbox ı EVRAKARAMAList olarak değiştirdim sorun yok gibi
listbox ı EVRAKARAMAList olarak değiştirdim sorun yok gibi
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 9
- Kayıt: 24 Oca 2024, 00:28
- Meslek: Öğretim Görevlisi
- Adınız: MEHMET
- Soyadınız: VURANOĞLU
Re: TextBox ile listbox da süzmede hata !
Merhaba
Teşekkürler.
Ancak süzme işleminde;
örnek; Ahmet sorguladığımda 2 adet ahmet var birini dahi getirmiyor.
Teşekkürler.
Ancak süzme işleminde;
örnek; Ahmet sorguladığımda 2 adet ahmet var birini dahi getirmiyor.
-
Doğrulandı
- Site Admin
- Mesajlar: 56
- Kayıt: 22 Haz 2023, 00:03
- Lokasyon: İstanbul
- Web Sitesi: http://www.tarkanvural.com.tr
- Meslek: Yazılım ve Veri Tabanı Uzmanı
- Adınız: Tarkan
- Soyadınız: VURAL
Re: TextBox ile listbox da süzmede hata !
Merhaba,
Hem UserForm ismi hem de ListBox ismi aynı olmuş. Bu mantıkta çakışma sebebiyle doğru çakışmayabilir. Öncelikle isimleri ayırmanızı tavsiye ederim.
Hem UserForm ismi hem de ListBox ismi aynı olmuş. Bu mantıkta çakışma sebebiyle doğru çakışmayabilir. Öncelikle isimleri ayırmanızı tavsiye ederim.
Konu Dışı
Logo Yazılım, Özel Yazılım, Entegrasyon işlemleri, Excel VBA kodlama, Raporlama, Eğitim.. gibi konulardaki destek ihtiyaçlarınız içinhelpdesk@evnyazilim.com.trile irtibata geçebilirsiniz.
-
- Mesajlar: 41
- Kayıt: 21 Oca 2024, 13:44
- Adınız: sahin
- Soyadınız: sahin
Re: TextBox ile listbox da süzmede hata !
.RowSource özelliğine sadece hücre aralığı değil sayfa ismide olmalı
ekteki dosyada "ad" textbox change deki kodu değiştirdim diğre kullandığınız yerledekini değiştirir siniz
Kod: Tümünü seç
EVRAKARAMAList.RowSource = "SUZ!" & suz.Range("A2:I" & X).Address
ekteki dosyada "ad" textbox change deki kodu değiştirdim diğre kullandığınız yerledekini değiştirir siniz
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.