Excel de sutuna yazilan rakamin üst üste toplanmasi nasil olur acil yardim

[trakus]

Bir excel stok programı yazmam gerekiyor (dökümhanedeki maça stokları için) . Ürünler çok çeşitli ve her ürün için boyalı boyasız olmak üzere 2 seçenek var ayrıca bazı ürünlerin farklı modelleri var misal olarak "a" ürünün "a1" "a2" olmak üzere 2 çeşidi var bunlarında boyalı ve boyasız olmak üzere 2 çeşidi daha var.

Uzatmıyorum hemen konuya giriyorum. Benim istediğim ürünün o gün kaç adet üretildiğini yazacağım bir satır olacak ve her gün üretileni yazacam ve bana baktığım gün elimde ne kadar stok olduğunu gösterecek mesela şu an da "a" ürününde 150 adet var. bugun üretilen 20 adet üretilen kısmına 20 yazdım ertesi gün oldu ertesi günde 50 adet üretildi bu sefer üretilen satırına 50 yazdıgımda 20 sayısı üretilene eklenmeden 50 ekleniyor. Yani ben istiyorum ki bugün üretilen 20 yı yazdım etti 170 daha sonra ki gün üretilen adede 50 yazdım etti 220 adet. Bu şekilde toplama ve çıkartma işlemini nasıl yapabilirim ?

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Öncelikle bir belge tasarlamalısınız, olayın bence en önemli kısmı burası.
Zira hazır bir belgede sonradan değişiklikler yapmak;
şu da olsa, şuraya şunun için sütun ekledim tekrar değiştirelim vs. gibi yeni sıkıntılar
oluşturmamak lazım diye düşünüyorum.

Sorunuzu, cevabımın altındaki İMZA bölümünde yer alan açıklamaları okuyarak,
bir örnek belge ile desteklemenizde yarar var sanırım.
Bu haliyle destek bulmanız bence biraz zor.
.

 

[trakus]

Merhaba

Tam olarak ne demek istediğinizi anlamadım. Ancak nasıl bir yapı istediğimi açıkca yazdım sadece bana sütüna her defasında yazılan sayıları toplayacak bir toplama işlemi lazım eğer daha açıkca bir anlatım isterseniz daha detay verebilirim.

 

[Ömer BARAN]

Tekrar merhaba.

Daha açık anlatımdan önce bir örnek belge ile destek istemenizi önermiştim. Tercih tabii ki sizin.

İyi günler dilerim.
.

 

[trakus]

Tekrar merhaba.

Daha açık anlatımdan önce bir örnek belge ile destek istemenizi önermiştim. Tercih tabii ki sizin.

İyi günler dilerim.
.

Ömer bey, imzanızı, yazdıklarınızı ve benim yazdiklarimi daha detaylı okuyunca anlatımımda hatalar olduğunu gördüm sutun demişim ancak sutunla alakası yok durumun ben size örnek bir belge göstereyim :

http://s4.dosya.tc/server/sfxml6/08.06.2016.xlsx.html

bu benim yaptığım sadece 2 ürünün stok durumu ancak 10 yazan kutu benim bugün ürettiğim adet ben yarında 15 adet üreteceğim ve üretilen adet kutusuna 15 yazdığımda mevcut stoğu gösteren kutu 25 olacak bu şekilde bir yapı istiyorum yardımcı olursanız çok makbule geçer.

 

[Ömer BARAN]

Merhaba.

Yanlış anlamadıysam, D69 hücre aralığına yazılan sayı'dan D5 hücresinde yazılı sayı çıktıktan sonra kalan miktarın
kendi satırında B sütunundaki değere eklenmesini ve ekleme sonrasında da D sütununa yazılan değerin silinmesini istiyorsunuz.

D5 hücresine ilişkin bir şey söylememişsiniz, bu durumda D5'deki değer sanırım silinmeyecek.

İsteğiniz bu ise; belgeniz açıkken alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde
açılacak olan VBA ekranının sağa tarafındaki boş alana aşağıdaki kod'u yaıştırdığınzda istediğiniz olacaktır.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D6:D9]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address = "$D$6" Then [B6] = [B6] + Target - [D5][COLOR="Red"]: [E6] = Target[/COLOR]
If Target.Address = "$D$7" Then [B7] = [B7] + Target - [D5][COLOR="red"]: [E7] = Target[/COLOR]
If Target.Address = "$D$8" Then [B8] = [B6] + Target - [D5][COLOR="red"]: [E8] = Target[/COLOR]
If Target.Address = "$D$9" Then [B9] = [B6] + Target - [D5][COLOR="red"]: [E9] = Target[/COLOR]
Target = ""
End Sub[/FONT]

NOT: Eklenen ve silinen değerin bir kaydı tutulmuyor ve geri dönüşü de yok, o yüzden D69 aralığına en son yazılan sayıyı
görebilmek açısından, en son yazılan sayıyı E sütununa aktarmaya yönelik olarak
(geri almak istediğinizde bu sayının negatif halini aynı hücreye yazarsanız geri almanız sağlanmış olur)
kod'da değişiklik (kırmızı kısımlar) yaptım, sayfayı yenileyerek kontrol ediniz.

 

[trakus]

Merhaba.

Yanlış anlamadıysam, D69 hücre aralığına yazılan sayı'dan D5 hücresinde yazılı sayı çıktıktan sonra kalan miktarın
kendi satırında B sütunundaki değere eklenmesini ve ekleme sonrasında da D sütununa yazılan değerin silinmesini istiyorsunuz.

D5 hücresine ilişkin bir şey söylememişsiniz, bu durumda D5'deki değer sanırım silinmeyecek.

İsteğiniz bu ise; belgeniz açıkken alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde
açılacak olan VBA ekranının sağa tarafındaki boş alana aşağıdaki kod'u yaıştırdığınzda istediğiniz olacaktır.
.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D6:D9]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address = "$D$6" Then [B6] = [B6] + Target - [D5][COLOR="Red"]: [E6] = Target[/COLOR]
If Target.Address = "$D$7" Then [B7] = [B7] + Target - [D5][COLOR="red"]: [E7] = Target[/COLOR]
If Target.Address = "$D$8" Then [B8] = [B6] + Target - [D5][COLOR="red"]: [E8] = Target[/COLOR]
If Target.Address = "$D$9" Then [B9] = [B6] + Target - [D5][COLOR="red"]: [E9] = Target[/COLOR]
Target = ""
End Sub

NOT: Eklenen ve silinen değerin bir kaydı tutulmuyor ve geri dönüşü de yok, o yüzden D69 aralığına en son yazılan sayıyı
görebilmek açısından, en son yazılan sayıyı E sütununa aktarmakta yarar olduğundan
(geri almak istediğinizde bu sayının negatif halini aynı hücreye yazarsanız geri almanız sağlanmış olur.
Bunun için kod'da değişiklik (kırmızı kısımlar) yaptım, sayfayı yenileyerek kontrol ediniz.

D5 'de ayni şekilde silinecek Ömer bey, üretilen ve harcanan maçaları o günlük yazacağim.

Detaylı bir şekilde anlatayım misal veriyorum şu an benim B6 değerim 15 bugün "KULLANILAN MAÇA ADEDİ" yani D5 : 20
"ÜRETİLEN KOLLU MAÇA ADEDİ" yani D6 : 10
bu durumda benim B6 değerim 5 oluyor.
Diyelim ertesi gün
"KULLANILAN MAÇA ADEDİ" yani D5 : 45
"ÜRETİLEN KOLLU MAÇA ADEDİ" yani D6 : 70
bu durumda ertesi gün ben D5 değerine 45 D6 değerine 70 yazdığımda B6 değerim 30 olması gerekiyor.

Ayrıca bu iş sandığımdan daha karmaşık sanırım benim bu şekilde 100 e yakın çeşidim stok tutmam gereken ürün var. Eğer bu konuda ücretli ve profesyonel bir yardım sağlarsanız elimden geleni yaparim.

 

[Ömer BARAN]

Son cevabınızda yazdığınız husus, verdiğim kod ile zaten gerçekleşiyor.

Sadece D5 hücresinin durumu net değil bence.
D5 silinecek diyorsunuz ancak, D5 hücresi B6, B7, B8 ve B9 için işlem yaparken de kullanılacak. Silinme yerine örneğin D6, D7, D8 veya D9'a yazılan veri kadar azaltmak mı /artırmak mı doğru olur bilemiyorum tabi, aklınızdan geçenleri öngörmek mümkün değil.
Bunun için ne diyorsunuz acaba?

Ayrıca belirttiğiniz hücrelerin kendi aralarında büyüklük/küçüklük sınırlamaları olabilir, örneğin şuraya şundan büyük/şundan küçük veri yazılamaz gibi durumlar var mıdır?

Bence gerçek belgenizle aynı yapıda bir örnek belge yükleyin.
Ardından o belge üzerinden bakılır elbette.

Ortada halen tam bir belge yok ve siz asıl belgeyi oluşturma aşamasında iseniz, işin en önemli kısmı olan tasarlama olayı üzerinde durmalısınız, bunu yaparken de her türlü seçeneği önceden düşünmelisiniz elbette. Örneğin yazdığınız verilerin bir kaydını/listesini tutmanız gerekebilir, bunu da tarih tarih izlemek gerekebilir. Çünkü geriye dönük raporlamalara/özet bilgilere ihtiyaç olabilir vs.
.
Önceki cevabımdaki kod yerine aşağıdaki daha pratik olacak sanırım, deneyiniz.
.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D6:D9]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target - [D5]
    Cells(Target.Row, 5) = Target
    Target = ""
End Sub

 

[trakus]

Cevabınız ve yardım severliğiniz için teşekkürler Ömer bey, D5 eksi olarak B6, B7, B8 ve B9 işlemi gerçekleştirdikden sonra silinecek.

Evet daha yazma aşamasınında başındayım açıksa nasıl yapacağim hakkında pek bilgi sahibi değilim işe yeni başladım ve bu işi bana verdiler bir şekilde yapmam gerekiyor.

Büyük küçük değer önemli değil istediğimiz rakamı girebiliriz. Evet tarih olarak arşivleme gibi bir özellik yapabilirsem iyi olacak ancak daha bunu yapamadan onu yapabileceğimi sanmıyorum.

Ayrıca gerçek belgemle aynı yapıda hiç bir excel arşivinde veri bulamadım.

 

[trakus]

Yapmam gereken listeyi komple yaptım sadece formüller eksik incelemek isteyenler

Link : http://s2.dosya.tc/server/2qx57z/08.06.2016.xlsx.html

Olayı kısaca sizleri darlatmadan anlatıyorum. Ben bir dökümhanede çalışıyorum ve döktüğümüz parçalar için "maça" denilen parçaların içerisindeki boşlukları yaratmak için kullandığımız ürünlerin stoklarını tutmam gerekiyor. Bazı ürünlerde 2, 3 hatta 4 maça çeşidi var. Bazı maçalar ise boyanır bazı maçalar boyanmaz.

Maçaların üretimide boyanmasıda kendi bünyemizde yapılmakta. Maçaları üreten ve boyanan işçiler günlük olarak bana üretilen ve boyanan maça adetlerini liste halinde getirmekte. Kullanılan maça adetlerinide günlük olarak raporunu tutulmakta.

Ben şu an mevcut boyalı boyasız ve stok durumu olan maçaları yazdım (linkdeki excel dosyasına). Benim yapmak istediğim yapı bana gelen günlük yapılan maça adedi sayısını yazacağım maça stok durumu artacak veya kullanılan maça durumunu yazacam maça stok durumu azalacak.

Boyanması gereken maçalar içinde, boyanan maça adedini yazacam boyasız maça adedinden düşecek boyalı maça durumu artacak. Ancak bunları günlük yazacağım. Her gün yazdığım ertesi gün yazdığımdan bağımsız olarak maça stok durumuna veya boyalı boyasız durumuna tesir edecek.

Bu şekilde bir yapı tasarlayan veya yardımcı olacak varsa sevirim. Ücretli yapabilecek olanlarında tekliflerine açığım.

Forum dışı ulaşım için : olcaybalmumcu@gmail.com

Şimdiden teşekkürler.

 

[sakman26]

selam,
bir dokuman hazırlamaya çalıştım.
Ama mesajı tekrar okuduğumda boyasızların boyanması durumunu değerlendirmeye almamışım. Yine de dokumanı ekte gönderiyorum. Çünkü bu durumu , işlemi 2 defa girerek çözebilirsiniz. Yani Boyasız seçerek Kullanılan Adede giriş yaparsınız ve Boyasızın stoğu düşer. Hemen arkasından da Boyalıya (seçerek) Üretilen Adete Boyanmış olan adet(Boyasıza yazdığınız kullanım adedi) girişi yaparsınız. Onun da stoğu boyasızın kullanma adedi kadar artar.
Hafta içi fırsat yaratabilirsem bakmaya çalışırım...
kolay gelsin..

link : http://s2.dosya.tc/server/djtnoy/MacaTakip1.rar.html