Çözüldü Range("a2:a3","c2:c3","d2:d3") sorun

[Orion1]

Haluk hocam alternatif 1 de vermiş.
Görmedim.

 

[FERAZ]

Hız için böyle yapın.
Ekli dosyayı deneyin.

DOSYA İNDİR

Private Sub UserForm_Initialize()
Dim aa(), son As Long
son = 4
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "50;0;50;0;50"
ListBox1.RowSource = "A2:E4"
End Sub

Sağolun ben mantıken böyle istemiyorum hocam.Ziynettin üstadın kodundaki aa yı öyle dizi içine almak sadece istediğim
Yani tek derdim bu.

 

[Orion1]

En iyi ve en hızlı yöntem rowsource dir.Bu yöntemle verileri alırsanız hücredeki formatıda aynen alırsınız.
Dizi yöntemde ise verileri alırken tek tek formatlamanız lazım.Buda sayısal ve tarihleri metin olarak alır ve sayfaya aktarırkende metin olarak aktarır.

 

[Ziynettin]

Bu kod tam olmuş.Sadece listboxun en altına boşluk ekliyor.

sağolun.

ReDim arr(1 To son - 1, 1 To UBound(aa) + 1)

 

[FERAZ]

En iyi ve en hızlı yöntem rowsource dir.Bu yöntemle verileri alırsanız hücredeki formatıda aynen alırsınız.
Dizi yöntemde ise verileri alırken tek tek formatlamanız lazım.Buda sayısal ve tarihleri metin olarak alır ve sayfaya aktarırkende metin olarak aktarır.

Rowsource ile alına dediğiniz gibi.Fakat ben dizi içinde felan arama yapacağım.Rowsourcede yardımcı sütun felan işi gerekiyor yada sütun filtreleme felan.

 

[Orion1]

Rowsource ile alına dediğiniz gibi.Fakat ben dizi içinde felan arama yapacağım.Rowsourcede yardımcı sütun felan işi gerekiyor yada sütun filtreleme felan.

Verilerinizi sayfaya kaydederken birde ID sütunu yapın.Buraya her kayıtta benzersiz bir sayı girin.Sonrada o ide göre find komutu ile verilerinizi çağırıp textboxlara getireebilir ve düzenleme ve silme işlerini rahatlıkla yaparsınız.Mesela ben öyle yapıyorum.Bu işi bilenlerde bu konuyu böyle yapıyorlar.

 

[FERAZ]

ReDim arr(1 To son - 1, 1 To UBound(aa) + 1)

Sağolun tam istediğim gibi olmuş.
Sadece birde alttaki gibi formattada yapabilirmisiniz.Yani tek döngü ile.

For i = 1 To son - 1
arr(i, 1) = aa(i, 1)
arr(i, 2) = aa(i, 2)
arr(i, 3) = aa(i, 3)
Next i

 

[Ziynettin]

For i = 1 To son - 1 arr(i, 1) = aa(0)(i, 1) arr(i, 2) = aa(1)(i, 1) arr(i, 3) = aa(2)(i, 1) Next i

 

[FERAZ]

For i = 1 To son - 1 arr(i, 1) = aa(0)(i, 1) arr(i, 2) = aa(1)(i, 1) arr(i, 3) = aa(2)(i, 1) Next i

işte bu
Kodu ekleyeyim son halini.
Tekrardan herkese teşekürler.

Private Sub CommandButton1_Click()

Dim aa(), arr()
son = Range("A" & Rows.Count).End(3).Row
aa = Array(Range("A2:A" & son).Value, Range("C2:C" & son).Value, Range("D2:D" & son).Value)
ListBox1.ColumnCount = UBound(aa) + 1
ListBox1.Clear
ReDim arr(1 To son - 1, 1 To UBound(aa) + 1)
    For i = 1 To son - 1
        arr(i, 1) = aa(0)(i, 1)
        arr(i, 2) = aa(1)(i, 1)
        arr(i, 3) = aa(2)(i, 1)
    Next i
ListBox1.List = arr

End Sub

 

[Haluk]

Döngü kullanmadan A, C ve E sütunlarındaki verileri önce diziye, oradan da ListBox nesnesine yüklemek için alternatif kod;

Private Sub CommandButton1_Click()
    Dim myArr()
    myFile = ThisWorkbook.FullName
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "60;60;60"
    ListBox1.Clear
   
    Set objConnection = CreateObject("ADODB.Connection")
   
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                    "Data Source='" & ThisWorkbook.FullName & "';" & _
                    "Extended Properties=""Excel 12.0 Macro;HDR=No"""
   
    strQuery = "Select F1, F3, F5 from [Sheet1$]"
    objConnection.Open strConnection
    Set RS = objConnection.Execute(strQuery)
   
    myArr = RS.GetRows
    ListBox1.List = Application.Transpose(myArr)
   
    Erase myArr
    Set RS = Nothing
    Set objConnection = Nothing
End Sub

.

 

[FERAZ]

Güzel kod eklemişsiniz.
Bu Ado'yu sevemedim gitti yoksa çok pratik.
Sevmediğim tarafı adonun bazen hücre dolu olsa bile boş getiriyor listboxa felan bu dosya için demiyorum.

 

[FERAZ]

Döngü kullanmadan A, C ve E sütunlarındaki verileri önce diziye, oradan da ListBox nesnesine yüklemek için alternatif kod;

Private Sub CommandButton1_Click()
    Dim myArr()
    myFile = ThisWorkbook.FullName
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "60;60;60"
    ListBox1.Clear
  
    Set objConnection = CreateObject("ADODB.Connection")
  
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                    "Data Source='" & ThisWorkbook.FullName & "';" & _
                    "Extended Properties=""Excel 12.0 Macro;HDR=No"""
  
    strQuery = "Select F1, F3, F5 from [Sheet1$]"
    objConnection.Open strConnection
    Set RS = objConnection.Execute(strQuery)
  
    myArr = RS.GetRows
    ListBox1.List = Application.Transpose(myArr)
  
    Erase myArr
    Set RS = Nothing
    Set objConnection = Nothing
End Sub

.

Transpose kullanılmış.Acaba şu 65536lık satır olayı gibi sorun olurmu.Daha önce başka konu altında yazışmıştık.Transpose görünce hep aklıma bu geliyor

 

[Korhan Ayhan]

"Transpose" sorun yaratırsa aşağıdaki satırları silip kırmızı renkli satırı kullanabilirsiniz.

    myArr = Rs.getrows
    ListBox1.List = Application.Transpose(myArr)

ListBox1.Column = Rs.GetRows

 

[FERAZ]

Ado ile dizi farkı giflerde.Ziynettin hoca ve haluk hocamızın kodlarını 100 bin satırda denedim.Ado ile

 

[FERAZ]

Alttakidedizi ile ziynettin hocamızın