Array Komutu Yardım

[ReneKasper]

Arkadaşlar ekteki dosya, yazmak istedigim kodun sadece ufak bir bölümü. Ama array kullanarak yazmam lazım ve bu konuda biraz eksiğim.

Kısaca özetlemek gerekirse basit olarak, müşteri isimleri ve harcamalar var. Yazmak istedigim kodda ilk önce array kullanarak var olan müşteri ve harcamalar listesini yakalıcam. Sonra yeni array kullanarak, bu müşterilerden $500'den fazla harcayanların bilgilerini (şimdilik sadece isim ve miktar) oluşturmuş oldugum D ve E sutunlarına transfer edicem.

Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Sorunuzu tam olarak anladım mı bilemiyorum. Kodları inceleyiniz.

Sub Bul_Yaz()
    Dim i       As Long, _
        j       As Long, _
        Son     As Long, _
        Lst     As Range, _
        dz()    As String
    
    Son = Cells(Rows.Count, "D").End(3).Row
    If Son < 4 Then Son = 4
    
    Range("D4:E" & Son).ClearContents
    
    Son = Cells(Rows.Count, "A").End(3).Row
    If Son < 4 Then Son = 4
    
    
    Set Lst = Range("A4:B" & Son)
    j = 0
    For i = 1 To Son
        If Not Lst(i, 2) < 500 Then
            j = j + 1
            ReDim Preserve dz(1 To 2, 1 To j)
            dz(1, j) = Lst(i, 1)
            dz(2, j) = Lst(i, 2)
        End If
    Next i
    
    If j > 0 Then
        Range("D4").Resize(j, 2) = Application.WorksheetFunction.Transpose(dz)
    End If
End Sub

 

[ReneKasper]

Necdet Bey,

Çok teşekkür ederim. Istedigim gibi calisiyor. Simdi bu kodlari elimdeki asil dosyaya uygulamaya calisicam. Sanirim bir sorun yasamam, olayin mantik kismini anladim.

Tekrardan tesekkürler.