Raporlama Sorunu

[igultekin2000]

iyi günler; Form sakinlerinin yardımıyla kendi açımda pratik kullanımlı STOK programı oluşturdum. Raporlamada

Sub İŞLEM_BRN()
Set ul = Sheets("URUN_LISTE"): Set sb = Sheets("sabitler"): Set ha = Sheets("HAREKET")
ul.Range("A2:F" & ul.Cells(65536, 1).End(3).Row).ClearContents
Application.ScreenUpdating = False
sb.Range("B2:D" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Copy ul.Range("A2")
For i = 2 To ul.Range("A65536").End(xlUp).Row
ha.Cells(1, 1) = ul.Cells(i, 1): ul.Cells(i, 4) = ha.Cells(1, "P"): ul.Cells(i, 5) = ha.Cells(1, "Q")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

makrosuyla sonuca ulaşıyorum.. Tek yaşadığım sorun veri giriş ve çıkışlarını bağımsız yapmam gerekiyor. yani olmayan malın çıkışını engellemeyi durum gereği kullanamıyorum. Bu raporlama esnasında HAREKET GÖREN ürünün Eksi değere gördüğünü tespit etme şansım olabilir mi. Zira Eksi değer olduğunda maliyet fiyatı çok farklı boyuta geçiyor. Raporlamayı HAREKET sayfasına göre yapıyor.

 

[Ömer BARAN]

Merhaba.

Sorularınızı; gerçek belgenizin, özel bilgi içermeyen ve küçük boyutlu bir kopyası şeklinde hazırlayacağınız
bir örnek belge üzerinden sororsanız daha hızlı sonuca ulaşırsınız.
.