- Katılım
- 11 Mart 2005
- Mesajlar
- 3,056
- Excel Vers. ve Dili
- Office 2013 İngilizce
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.
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.
Kod:
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