Stok takip acil yardım lütfen

[sametguler]

Excelmy Hocam Bakarmısınız Lütfen

Ekli dosyada, "yeni gelen" kısmına girilen miktarlar, şuan hali hazırda olan malzemelerin toplamıyla "toplam"kısmına geçmesi lazım.

Fakat her gün "yeni gelen" kısmına giriş yapıldığı için, buradaki rakamı sildiğimizde, "toplam" kısmındaki miktar azalıyor. Yani olanı kaydedip, kaydettiğinin üzerinden işlem yapması lazım. çünkü yeni malzeme girişini bir kere yazdımmı "toplam" kısmı hemen artması lazım.
Depoya en son girilen rakamlar görünecek. Ertesi gün baktığımda dün bu kadar girmişim diyebilecem. Ama ertesi gün geldiğimde dün için girdiğim yeni girişi sildiğimde toplam değişmemesi lazım. Ama ekleyincede artması lazım. Lütfen yardımcı olun

 

[apocalyt]

şunu deneyin..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c3:c1000]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

 

[sametguler]

Sağolun ama biiliyorum yanlış yere konu açtım ama ben formüllü olsun istiyorum. Makro buton olmayacak. lütfen yardımcı olur musun.

 

[YUSUF44]

Makrosuz yapılabileceğini sanmıyorum. Yukardaki kodlar bir düğmeye bağlı değil, c3:c1000 hücrelerinde değişiklik olduğunda otomatik çalışır.

 

[sametguler]

makrosuz yapılabileceğini sanmıyorum. Yukardaki kodlar bir düğmeye bağlı değil, c3:c1000 hücrelerinde değişiklik olduğunda otomatik çalışır.

sağol ama ben bu kodlardan bişey anlamadım. Bunları nereye yazacam. Siz yapıp paylaşır mısınız lütfen

 

[YUSUF44]

Sayfa sekmesine sağ tıklayıp Kod görüntüle deyin ve çıkan sayfaya yapıştırın. Dosya türünü "makro içerebilen excel çalışma kitabı" olarak değiştirerek kaydedin (uzantısı xlsm olacak). 97-2003 kitabı olarak da kaydedebilirsiniz.

 

[sametguler]

Sayfa sekmesine sağ tıklayıp Kod görüntüle deyin ve çıkan sayfaya yapıştırın. Dosya türünü "makro içerebilen excel çalışma kitabı" olarak değiştirerek kaydedin (uzantısı xlsm olacak). 97-2003 kitabı olarak da kaydedebilirsiniz.

abi sen süpersin ya tam istediğim gibi olmuş butonsuz. Hemde yeni giriş kısmını silince hiçbirşey değişmiyor çok sağol. hayır işledin dua alacaksın bunu bil

 

[YUSUF44]

Kodları ben yazmadım, teşekkürü hak eden sayın apocalypt'tir.

 

[apocalyt]

estafurrullah yusuf hocam..ha siz ha ben..kaldı ki benden daha fazla yardımcı olmuşsunuz..sayglarımla..

 

[sametguler]

Sayfa sekmesine sağ tıklayıp Kod görüntüle deyin ve çıkan sayfaya yapıştırın. Dosya türünü "makro içerebilen excel çalışma kitabı" olarak değiştirerek kaydedin (uzantısı xlsm olacak). 97-2003 kitabı olarak da kaydedebilirsiniz.

ayların olduğu kısımdada aynı işlemi yapabilir miyiz. Yani bütün aylarda çıkış kısımlarında, bir defadan fazla çıkış yapılabiliyor. her çıkışı toplayıp çıkışın toplamına atması lazım. çıkışdan bişey silincede kalan değişmemesi lazım bir ayda 2 yada 3 sefer çıkış yapılıyor.

birde yeni giriş kısmına bişey girilirken onaylamam gereken bişey gelsin mesala 10 ampul girdim. 10 yazıp entere basınca ekrana girilen miktar 10 eminmisiniz, hemen altındada "EVET" VE "İPTAL" ÇIKSIN. EVETE BASINCA AKTARSIN İPTALE BASINCA İPTAL ETSİN VE YAZDIĞIMIDA SİLSİN. BU İŞLEM AYLARDAKİ ÇIKIŞLARDADA OLSUN. BÜTÜN BUNLAR buton OLMADAN OTOMATİK OLSUN İLK BAŞDAKİ GİBİ

 

[YUSUF44]

Bunlar beni aşıyor maalesef

 

[sametguler]

ama mantık aynı be abi. c3 e yaptıklarınızı "e3-p3" arasınada yapacaksınız. hiç yoktan ekrana bişey gelemden yapın. Yani ekrana tamam iptal gelmeden yapın direk aktarsın yani

 

[YUSUF44]

Aynı mantık daha doğrusu aynı kodlar olsaydı yapabilirdim muhtemelen ama uğraştım yapamadım maalesef.

 

[apocalyt]

ilk gönderdiğim kodları silin...dosyanıza sn yusuf beyin anlattığı gibi dosyanıza aşağıdaki kodları kopyalayın..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c3:c1000]) Is Nothing Then GoTo gel
If Target.Value = "" Then Exit Sub
a = MsgBox(Target.Value & " değerini girdiniz.işlemi onaylıyor musunuz?", vbYesNo)
If a = vbYes Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
ElseIf a = vbNo Then
Target.Delete
Exit Sub
End If
gel:
If Intersect(Target, [e31000]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
a = MsgBox(Target.Value & " değerini girdiniz.işlemi onaylıyor musunuz?", vbYesNo)
If a = vbYes Then
Cells(Target.Row, 17) = Cells(Target.Row, 17) + Target.Value
ElseIf a = vbNo Then
Target.Delete
Exit Sub
End If
End Sub

 

[apocalyt]

yukarıda gülücükçıkan yerde e3 : p 1000 yazıyo..tabi arada boşluk olmadan..

 

[sametguler]

yukarıda gülücükçıkan yerde e3 : P 1000 yazıyo..tabi arada boşluk olmadan..

dediğinizi yaptım 2 isteğim daha olacak hocam.

Yeni giriş kısmına ve aylardan çıkış kısmına birşey girip onayladığımda aktarımı zaten yapıyor her 2 tarafa ama girdiğim miktar onaylandıkdan sonra silinsin girdiğim miktar. yani ekrandan silinsin sadece göürlmesin. Çünkü depoya giriş yapacak olan kişinin aklı karışır.

Birde sadece 1. malzemeye yani ampule giriş çıkış yaparken evet hayır uyarısı geliyor. Diğer malzemelerde giriş çıkış yaparken ekrana uyarı gelmiyor ama

 

[apocalyt]

ama zaten girdiğin miktar siliniyor..sana aktarım yapılsın mı diye sorduğunda senin yanıtın hayır olursa siliyor tabi..evet olursa kalıyor..senin yanıtın evet oluncada mı silinsinn??

 

[sametguler]

ama zaten girdiğin miktar siliniyor..sana aktarım yapılsın mı diye sorduğunda senin yanıtın hayır olursa siliyor tabi..evet olursa kalıyor..senin yanıtın evet oluncada mı silinsinn??

evet hocam silinsin bide en son yazdığımı tekrar okurmusunuz ufak hata var kodlarda

 

[apocalyt]

dosyanızı inceleyin..istediğiniz şekilde verileriniz silinicek..ufak hata dediğiniz konudada kodlar istediğiniz şekilde çalışıyor..yani sadece ampül için değil bütün malzelerde soruyo..bir kontrol edin..

 

[apocalyt]

samet yukarıdaki dosyada q3 hücresinden başlayarak q sutunu boyunca "topla" formülü var..senin uyguladığın..dosyayı açar açmaz öncelikle o formülleri sil..yoksa girdiğin değer ardı ardına 2 defa sonuç değerine ekleniyor..