dizin oluşturma

[cav_bella]

Örnekteki dosyada derdimi anlattım yardımcı olabilecek var mı teşekkür ederim ilgilendiğiniz için

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Sub SayfaVeSıradaBul()
x = Application.WorksheetFunction.CountA(Range("f6:f65536"))
ss = Range("a65536").End(3).Row
For i = 6 To x + 6
nerede = ""
For j = 6 To ss
If Cells(i, "f").Text = Cells(j, "a").Text Then
nerede = nerede & Cells(j, "b") & "/" & Cells(j, "c") & ","
End If
Next
Cells(i, "g") = nerede
Next
End Sub

 

[cav_bella]

teşekkür ederim uzmanamele tabiki işimi görür çok işime yaradı