diziye veri al ve taşı

[şehiriçi]

Merhaba
Arkadaşlar ek dosyamın alis sayfasındaki verilerden istediğim şarta göre , genel sayfasına dizi yöntemiyle aktarmak istiyorum . Yazmaya çalıştığım kod da redim preserve de takıldım .Desteğinizi bekliyorum saygılarımla.

 

[Necdet]

Merhaba,

Deneyiniz.

Sub GENEL_FORM()
Dim sons As Long, ws As Worksheet, veri As Variant
Dim c As Long, x As Long
Dim liste()
'son = Worksheets("genel").Cells(Rows.Count, "A").End(xlUp).Row

Worksheets("genel").Select
Range("A1:F" & Rows.Count).ClearContents


sons = Worksheets("alis").Cells(Rows.Count, "A").End(xlUp).Row
'veri = Worksheets("alis").Range("A3:L" & sons)
Set ws = Worksheets("alis")

    ReDim liste(1 To 4, 1 To 1)
     x = 0
For c = 2 To sons
  
    If ws.Cells(c, 8) <> "" Then   'And ws.Cells(c, 8) <> 0
      
      x = x + 1
      ReDim Preserve liste(1 To 4, 1 To x)
      
      liste(1, x) = ws.Cells(c, 1)
      liste(2, x) = ws.Cells(c, 4)
      liste(3, x) = ws.Cells(c, 7)
      liste(4, x) = ws.Cells(c, 8)
    
    End If
' x = x + 1
Next c

Worksheets("genel").Range("A2").Resize(x, 4) = Application.WorksheetFunction.Transpose(liste)


End Sub

 

[şehiriçi]

Necdet bey ben bugüne kadar ,liste(1, x) örneğinde 1 değerini satır x değerini de sütun zannediyordum . Yanlışsam lütfen düzeltin .
Anladığıma göre 1 sütun x de satır mış . Teşekkürler ilginize

 

[Necdet]

Evet excelce düşününce haklısınız ama dizilerde böyle olmuyor, daha doğrusu redim olayında öyle olmuyor.