- Katılım
- 11 Mart 2005
- Mesajlar
- 2,967
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Aşağıdaki Kod' da filtrelenen veriler önce sayfaya kopyalanıyor, Range("A2").CopyFromRecordset RS
sonra sayfadan UserForm Listbox' a alınmakta; UserForm3.ListBox1.RowSource = "A1:F26"
Burada filtre edilen verilerin herhangi bir Sayfa' ya kopyalamadan doğrudan UserForm Listbox' a alınması için nasıl bir düzenleme yapılmalıdır?
Teşekkürler,
iyi akşamlar.
Aşağıdaki Kod' da filtrelenen veriler önce sayfaya kopyalanıyor, Range("A2").CopyFromRecordset RS
sonra sayfadan UserForm Listbox' a alınmakta; UserForm3.ListBox1.RowSource = "A1:F26"
Burada filtre edilen verilerin herhangi bir Sayfa' ya kopyalamadan doğrudan UserForm Listbox' a alınması için nasıl bir düzenleme yapılmalıdır?
Kod:
DBON
RSON
UserForm3.ListBox1.RowSource = Empty
Range("A2:F26").ClearContents
sicil1 = UserForm3.TextBox1.Value
adi1 = UserForm3.TextBox2.Value
soyadi1 = UserForm3.TextBox3.Value
SQLStr = "SELECT SIRA,SİCİL,ADI, SOYADI,GİRİŞ,ÜCRET FROM [DATA$]" & _
"WHERE SİCİL LIKE '" & sicil1 & "%' AND ADI LIKE '" & adi1 & "%' AND SOYADI LIKE '" & soyadi1 & "%'"
RS.Open SQLStr, DB, 1, 3
Range("A2").CopyFromRecordset RS
UserForm3.ListBox1.RowSource = "A1:F26"
DBOFF
RSOFF
iyi akşamlar.
Ekli dosyalar
-
70 KB Görüntüleme: 12