Sadece 0 dan büyük verilerin aktarımı.

[ilhaan]

Arkadaşlar iyi akşamlar. Benim sorunum ürün miktarı 0 olan verilerin elenerek 0 dan büyük ürünlerin belirlenen tabloya sırasıyla otomatik olarak aktarmak. Yardımcı olursanız sevinirim. Şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub aktar_59()
Dim i As Byte, sat As Byte
Range("H7:I14").ClearContents
sat = 7
For i = 7 To 14
    If Cells(i, "D").Value > 0 Then
        Cells(sat, "H").Value = Cells(i, "C").Value
        Cells(sat, "I").Value = Cells(i, "D").Value
        sat = sat + 1
    End If
Next
MsgBox "işlem tamadır.", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub

 

[ilhaan]

Teşekkürler

 

[ercens]

aradan 2 yıl geçmiş ama cevab çok işime yaradı teşekkür etmek istedim