Sayılar ikinci kez girildiğinde eski toplamın üstüne yazdırma

[sinnann]

Arkadaşlar Merhaba,

Ekteki tablo hakkında yardımcı olabilir misiniz?

Teşekkürler.

 

[Necdet]

Ben birşey anlamadım.

 

[sinnann]

Hocam Merhaba,

Şu şekilde özetleyeyim;
İki vardiya çalışıldığından,tablo vardiya sonu hazırlanacak ama tablo bir adet.ilk vardiya dataları girdiğinde hataların toplamı 10 ise toplamda 10 yazıyor.ikinci vardiya geldiğinde aynı tabloyu doldurduğunda onunda hata toplamı 20 ise toplamda yazan değerin 30 olmasını istiyorum.

 

[sinnann]

Arkadaşlar merhaba,

yardımcı olabilecek biri varmı acaba?

 

[fedeal]

ekteki dosyayı inceleyinistediginiz bu olabilirmi?

 

[sinnann]

Sayın Hocam;
Eline emeğine sağlık çok teşekkür ederim.Çok işime yarayacak,ancak tabloda bazı hatalar mevcut.Örneğin tabloya ikince kez veri girildiğinde data da hata5'in olduğu sutunda toplama yapılmıyor.toplamadığını görünce tekrar sayı girip kaydetmeyi denedim ama bu seferde diğer hücrelerdeki verileri her girdiğimde eksilttiğini gördüm.Ben yazdığın kodları gözden gecirdim ama sanırım hatayı bulamadım.Vaktiniz olursa tekrar güncelleyebilir misiniz?

Teşekkürler.

 

[fedeal]

dosyadaki hata giderildi,saygılar.

 

[sinnann]

Hocam tekrar teşekkür ederim,eline sağlık.Son birşey sormak istiyorum.ekte göreceğiniz üzere tablo kısmında 10 hafta var.ben bunu 52 haftaya tamamlamak istiyorum.eğer kod kısmında ekleme yapacağım yeri bana gösterebilirsen kendim istediğim zaman güncelleyebilirim.Bu konuda da yardımcı olurmusunuz?

 

[fedeal]

bu makroda sayfa üstündeki formüldende yararlanıldı yani:

Sub fd()
a = InputBox("kaçıncı haftaya kaydedilsin?", "fedeal")
If a = "" Then GoTo d
Sheets("data").Range("aa1").Value = a & " HAFTA"
For i = 3 To 7
f = Sheets("data").Range("aa2").Value
Sheets("tablo").Cells(i - 1, f).Value = Sheets("tablo").Cells(i - 1, f).Value + Sheets("data").Cells(i, "k").Value
Next
Range("b3:j7").ClearContents
d:
End Sub

kırmızı satırda hücreye(aa1) kaçıncı hafta oldugu yazıyor.
aa2 hücresindeki formül ise bize sütun numarasını veriyor. öncelikle o formülün alanını genişletmeliyiz yani:
=KAÇINCI(AA1;Tablo!A1:k1;0) olan formülü
=KAÇINCI(AA1;Tablo!A1:GE1;0) gibi yapmalıyızki eklemeler yapınca hesaplama yapsın

sonra
For i = 3 To 7
satırındaki i'nin degerini arttırmalıyız (data sayfasında 1.hafta 3.satırda 5.hafta 7.satırda mantığı)

sevkiyat sayısını artırtırırsan k sütunundaki toplamların yerleri degişirse
Sheets("data").Cells(i, "k" ).Value
bu satırdaki sütun isminide değiştirin

kod anlatmak biraz garip oluyor ama anlamak istemeniz güzel, soru sorup örnek dosya eklemeye üşenenlerde oluyor.saygılar.

 

[sinnann]

Aslında öğrenmeye çalışıyorum ama henüz bişeyler oluşturamıyorum hocam.Kod anlatımı için teşekkür ederim.mantığı cok güsel anladım ama bazı seylerin değerlerini değiştirdim ama hep hata verdi.sanırım yanlış kodları değiştiriyorum.
" =KAÇINCI(AA1;Tablo!A1:k1;0) olan formülü
=KAÇINCI(AA1;Tablo!A1:GE1;0) gibi yapmalıyızki eklemeler yapınca hesaplama yapsın
bahsettiğiniz formulu değiştiremedim malesef.İkincisi;
sonra
For i = 3 To 7
satırındaki i'nin degerini arttırmalıyız (data sayfasında 1.hafta 3.satırda 5.hafta 7.satırda mantığı)
bu kod da sadece "i" olanımı değiştirmem gerekiyor yoksa 3 To 7 olan kısmımı?
Sevkiyat kısmını halledebiliyorum.

Tekrar Teşekkürler.

 

[fedeal]

dosyayı 52 haftaya göre güncelledim aradaki farklara bakarak degerlendirin.

 

[sinnann]

Hocam çok teşekkür ederim.eline saglık.Çok işime yarayacak.Tam istediğim gibi oldu.

Teşekkürler.