diziye veri al ve taşı

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Deneyiniz.

Kod:
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

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Evet excelce düşününce haklısınız ama dizilerde böyle olmuyor, daha doğrusu redim olayında öyle olmuyor.
 
Üst