Makrolarla veri alma

[meraklı]

Arkadaşlar ekte bir makrom var ama malesef çalışmıyor
kim bana yardım eder
Þimdiden thk

 

[danersin]

Sütunları doğru yeremi taşıttınız kontrolünü size bırakıyorum, aşağıdaki şekilde deneyin.

[vb:1:3cc95615e4]Sub listele()
kayıt = WorksheetFunction.CountA(Sheets("DATA").[A2:A65536]) + 2
aranan = [h1].Value
c = 0
For sat = 2 To kayıt
If aranan = Sheets("DATA").Cells(sat, 3).Value Then
c = c + 1
Cells(c + 2, 2) = c
Cells(c + 2, 7) = Sheets("DATA").Cells(sat, 5).Value
Cells(c + 2, 5) = Sheets("DATA").Cells(sat, 14).Value
Cells(c + 2, 4) = Sheets("DATA").Cells(sat, 29).Value & "-" & Sheets("Kurlar").Cells(sat, 30).Value
Cells(c + 2, 8) = Sheets("DATA").Cells(sat, 47).Value
Cells(c + 2, 10) = Sheets("DATA").Cells(sat, 48).Value
End If
Next sat
End Sub
[/vb:1:3cc95615e4][/vb]