merhaba arkadaşlar, ekteki dosyada bir depo takip listesi oluşturdum. yardımcı olmanızı istediğim konu, giriş/çıkış/hurda herhangi birine yeni bir ürün girişi yaptığımda stok sayfasında otomatik görünsün istiyorum. excel konusunda çok iyi değilim. yardımcı olursanız sevinirim.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Depo takip
- Konbuyu başlatan emel1987
- Başlangıç tarihi
giriş/çıkış/hurda sayfalarına ayrı ayrı uygulayın..sayfa ismine sağ klik yapın..açılan ekran kod görüntüle diyin...açılan sayfaya aşağıdaki kodu yapıştırın..her 3 sayfayada ayrı ayrı uygulayın..bu 3 sayfadada a sutunundan başlayıp veri girerken e sutunundaki veriyi girdiğiniz an stok sayfasına gerekli bilgiler gidicektir...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("e3:e10000")) Is Nothing Then Exit Sub
ben = Sheets("STOK").[b10000].End(3).Row
Range("b" & Target.Row & ":e" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "b").PasteSpecial
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("e3:e10000")) Is Nothing Then Exit Sub
ben = Sheets("STOK").[b10000].End(3).Row
Range("b" & Target.Row & ":e" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "b").PasteSpecial
Application.CutCopyMode = False
End Sub
Çok teşekkür ederim, tam istediğim ama şimdiki sorunum, hurda sayfasındaki satırı alırken malzeme kodu sütununu seçmiyor. yani malzeme koduna malzeme adını yazarak başlıyor.
Bir de çıkıştaki miktarların stok sayfasına Toplam Çıkış sutünuna aktarılması mümkün mü?
evet haklısınz..sayfa yapları farklıymış tam dikkat etmemiştim..şimdi yukarıdaki ilk kodu sadece giriş sayfasına kullanın...çıkış sayfası için aşağıdaki kodu kullanın...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d3:d10000")) Is Nothing Then Exit Sub
ben = Sheets("STOK").[b10000].End(3).Row
Range("a" & Target.Row & ":d" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "b").PasteSpecial
Range("f" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "g").PasteSpecial
Application.CutCopyMode = False
End Sub
hurda sayfasınada aşağıdaki kodu kullanın..
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d3:d10000")) Is Nothing Then Exit Sub
ben = Sheets("STOK").[b10000].End(3).Row
Range("a" & Target.Row & ":d" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "b").PasteSpecial
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d3:d10000")) Is Nothing Then Exit Sub
ben = Sheets("STOK").[b10000].End(3).Row
Range("a" & Target.Row & ":d" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "b").PasteSpecial
Range("f" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "g").PasteSpecial
Application.CutCopyMode = False
End Sub
hurda sayfasınada aşağıdaki kodu kullanın..
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d3:d10000")) Is Nothing Then Exit Sub
ben = Sheets("STOK").[b10000].End(3).Row
Range("a" & Target.Row & ":d" & Target.Row).Copy
Sheets("STOK").Cells(ben + 1, "b").PasteSpecial
Application.CutCopyMode = False
End Sub
Teşekkür ederim, emeğinize sağlık
