walabi
Altın Üye
- Katılım
- 22 Eylül 2012
- Mesajlar
- 628
- Excel Vers. ve Dili
-
excel 2010
excel 2013
- Altın Üyelik Bitiş Tarihi
- 06-08-2025
Merhaba,
Aşağıdaki kod ile excel kitabı üzerindeki ilgili sayfadan listboxa veri yükleyebiliyorum. Aşağıdaki kodun yaptığı işlevin aynısını kapalı bir dosya üzerinde nasıl yapabilirim. Yani veriler farklı bir excel kitabında olacak. Ayrıca şunu da belirteyim. Veri tabanı gibi kullandığım ilgili excel kitabı ortak alanda duruyor. Ortak alandaki bir excel kitabına ulaşıp bu dosyadan veri almaya çalışmak, sorgulama yapmak kodlarda yavaşlığa sebep olur mu?
Aşağıdaki kod ile excel kitabı üzerindeki ilgili sayfadan listboxa veri yükleyebiliyorum. Aşağıdaki kodun yaptığı işlevin aynısını kapalı bir dosya üzerinde nasıl yapabilirim. Yani veriler farklı bir excel kitabında olacak. Ayrıca şunu da belirteyim. Veri tabanı gibi kullandığım ilgili excel kitabı ortak alanda duruyor. Ortak alandaki bir excel kitabına ulaşıp bu dosyadan veri almaya çalışmak, sorgulama yapmak kodlarda yavaşlığa sebep olur mu?
Kod:
Sub Urun_Ara_2()
Set S1 = Sheets("STOK_SA")
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "60;120;40;40;0;0;0;0;0;10"
Dim a As Long, i As Long
ReDim dizial(1 To 50, 1 To 1)
If TextBox1.Text = "" Then Exit Sub
ListBox1.Clear
For i = 2 To S1.Cells(Rows.Count, 2).End(3).Row
If UCase(Replace(Replace(S1.Cells(i, "B"), "ı", "I"), "i", "İ")) Like _
"*" & UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) & "*" Then
a = a + 1
ReDim Preserve dizial(1 To 50, 1 To a)
dizial(1, a) = S1.Cells(i, "A")
dizial(2, a) = S1.Cells(i, "B")
dizial(3, a) = S1.Cells(i, "C")
dizial(4, a) = S1.Cells(i, "D")
dizial(5, a) = S1.Cells(i, "E")
dizial(6, a) = S1.Cells(i, "F")
dizial(7, a) = S1.Cells(i, "G")
dizial(8, a) = S1.Cells(i, "H")
dizial(9, a) = S1.Cells(i, "I")
dizial(10, a) = S1.Cells(i, "J")
End If
Next i
ListBox1.Column = dizial
Erase dizial
a = Empty
i = Empty
End Sub
Ekli dosyalar
-
115.2 KB Görüntüleme: 9