Macro veya voolkup ile sorunumu çözme yardımı

[search77]

Arkadaşlar ekteki dosyada bir yardıma ihtiyacım olacak, istediğim bir hücrede belli olan kodları başka hücrede bulmak, sadece onları getirmek,
yardımlarınız için şimdiden çok teşekkür ederim.

Sevgiler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:f4d6b72f19]Sub aynibul()
For a = 2 To [c65536].End(3).Row
If WorksheetFunction.CountIf([a:a], Cells(a, "c")) > 0 Then
c = c + 1
Cells(c + 1, "d") = Cells(a, "c")
End If
Next
End Sub
[/vb:1:f4d6b72f19]