Obilden resmi inceledim.
Ben lt satır numarasını 1 kg satır numarasını buldurup +1 ile lt satırını buldurmuştum.
O zaman lt ve kg satır numarasını bulmak için d olanın satır numarasını buldurup kg yi +1 ile lt yi ise +2 ile buldurmak gerekiyor.
d yi buldurma kodu unuttum ama arabul(d,range("b:b")) gibi kodlatla bulduruyordum.
Böyle yapılır.Kg veri doğrulamada worksheetsselection içinde lt için yazıldı aynısı kg içinde yazılır.Yani zor değil.Akşam bakarım.
(15/12/2023, 14:59)hnakis yazdı: (15/12/2023, 11:28)feraz yazdı: Dısyayı gönderin bakayım akşama hallederim.
Açıklamayıda yapın.Kodları basitleştirip gereksiz kodları temizlemek gerek.O zaman tam anlarsınız.
Konuyu açıyorum eklemeniz için.
Aslında dün basitleştirdiğim kod ile dosyayı geri sildim aklıma birşey takıldığı için ve düzenleyip ekleyeceğim.
Yarım saat içinde eklerim zaman olursa.
kullanılmayan kodların çoğunu temizledim. ama yine sizde bakın. anlayamadım bazı kodlarda var belki gereksizdir.
saygılar
Dosyadaki 15,2 yi nasıl buldunuz?
Ve 100kg tolam tutar dediğiniz yer neresi?
(15/12/2023, 21:28)feraz yazdı: (15/12/2023, 14:59)hnakis yazdı: (15/12/2023, 11:28)feraz yazdı: Dısyayı gönderin bakayım akşama hallederim.
Açıklamayıda yapın.Kodları basitleştirip gereksiz kodları temizlemek gerek.O zaman tam anlarsınız.
Konuyu açıyorum eklemeniz için.
Aslında dün basitleştirdiğim kod ile dosyayı geri sildim aklıma birşey takıldığı için ve düzenleyip ekleyeceğim.
Yarım saat içinde eklerim zaman olursa.
kullanılmayan kodların çoğunu temizledim. ama yine sizde bakın. anlayamadım bazı kodlarda var belki gereksizdir.
saygılar
Dosyadaki 15,2 yi nasıl buldunuz?
Ve 100kg tolam tutar dediğiniz yer neresi?
15,2 100 kg malzemenin toplam tutarı. örnek olsun diye yazmıştım.
Dosya bitti.
Kodları sadeleştirdiğim için herşeyi test edin.
Bazı kodları modül ekleyip oraya aldım tekrardan kurtumak için.Veri doğrulamayıda parametre olarak yaptım.
Sayfalara veri eklerseniz eğer dikkat etmeniz gerekenler.
1-d yazanın altında 1 kg olması gerek.
2-1 kg ninde altında 1 lt olması gerek.
Yukardakileri d ye göre buldurduğum için önemli.
Hatalar olursa yazarsınız ben test ettim hata çıkmadı.
Sub MergeUnmerge burdaki alttaki 5 yerine 7 yazarsanız daha iyi olur Tipi uzun olunca görükmesi için yada ayarlarsınız kendinize göre.
Dosyayı güncelledim.
With .Cells(i, bulSayfaAd.Offset(, 1).Column).Resize(, 5)
sayın feraz son mesajınız silinmiş. çalışma 7 olan