DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub listele()
isim = Sheets("sayfa1").Range("a2")
b = WorksheetFunction.CountA(Sheets("sayfa1").Range("d:d"))
For i = 1 To b
If Cells(i, 3).Value = isim Then
c = c + 1
Cells(c, 2) = Cells(i, 4)
End If
Next
End Sub