Makrolarla veri alma

Katılım
3 Mart 2005
Mesajlar
12
Arkadaşlar ekte bir makrom var ama malesef çalışmıyor
kim bana yardım eder
Þimdiden thk
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
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]
 
Üst