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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.