Tanımlı Hücre alanında Dizi oluşturma hk.

[tamer42]

Merhaba,
Bir tabloda A-G sütunları arasını Range olarak tanımladıktan sonra;

B sütununa göre arama yaptırıp uyan değerlere göre 2 boyutlu yeni bir Dizi oluşturmak istiyordum

Aşağıdaki kodu oluşturdum, yalnız eksik oldu, nasıl bir düzenleme yapmam gerekir?

ilginiz için şimdiden teşekkürler,
iyi Çalışmalar.

Dim myRng As Range

 Set myRng = Sayfa1.Range("A2:G200")
   
Ad="str"

        ReDim My_List(1 To 200, 1 To 7)

        For Each My_Cell In myRng.Cells(, 2)
        
            If LCase(Replace(Replace(My_Cell, "ı", "I"), "i", "İ")) Like Ad & "*" Then
                x = x + 1
              
              r = myRng.Row - 1
              
                    For j = 1 To 7
                        My_List(x, j) = myRng.Cells(r, j)
                    Next j

              
            End If
        Next