vb kullanaraksatılmamış malları sayfa 2 ye toplamak

[td]

ustalarım kendi kullanabileceğim bir şekilde excelle stok hesabı tutuyorum ama bir yerde takıldım satılmamış maalrımı satılmışlardan ayırmak istiyorum bunun için bir deneme dosyası yaptım yardımcı olursanız çok sevinirim şimdiden teşekkürler.....

 

[Orion1]

Merhaba.
Aşağıdaki kodları bir modüle kopyalayıp,Çalıştırınız.
Ve sonucu gözlemleyiniz.

Sub satilmamislari_listele()
Dim i As Long, sat As Long, sut As Byte
Sheets("Sayfa1").Select
Sheets("Sayfa2").Range("A2:A65536").ClearContents
sat = 2
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "E").Value <> "st" Then
        For sut = 1 To 5
            Sheets("Sayfa2").Cells(sat, sut).Value = Cells(i, sut).Value
        Next sut
        sat = sat + 1
    End If
Next i
MsgBox "Listeleme Yapıldı..!!", vbOKOnly, Application.UserName
Sheets("Sayfa2").Select
End Sub

 

[td]

çok teşekkür ederim sn.sezar bu konuda tekrar yardımınıza baş vurmak istiyorum şimdilik işim gördü elinize sağlık...