Sadece borcu olanları raporlamak

[vitalexx]

Kolay gelsin arkadaşlar.
Ekteki dosyada hazırlık sayfasında 100-150 kişilik bir liste ve bunun karşısında parasal değerler var. Tabloda bazı satırlardaki kişilerin borcu yok. Yapmak istediğim şey; isminin karşısında parasal değer olan personellerin borcunu 2. sayfaya (rapor) sırası ile aktarabilmek.
Yardımlarınızı bekliyorum,şimdiden teşekkür ederim.

 

[veyselemre]

[vb:1:8c56e2ff73]Sub aktar()

Set sH = Sheets("HAZIRLIK")
Set sR = Sheets("RAPOR")
sonH = sH.[d65536].End(3).Row

sR.[C8:E65536].ClearContents
sat = 8
For x = 7 To sonH
If sH.Cells(x, 5) > 0 Then
sR.Cells(sat, 3) = sat - 7
sR.Cells(sat, 4) = sH.Cells(x, 4)
sR.Cells(sat, 5) = sH.Cells(x, 5)
sat = sat + 1
End If
Next x

End Sub[/vb:1:8c56e2ff73]

 

[vasifokur]

Ben daha önce yaptığım bir çalışmayı istediğiniz şekilde uyarlamaya çalıştım. İnşaallah yararlı olur.

 

[vitalexx]

Saygılarımı sunuyorum,
:hey: veyselemre,vasifokur çok teşekküler :bravo:

 

[mesudiye_052]

Bir örnekte benden