Formülsüz Vba İle Satır Ve Sütun Eklemeli Excel Çalışması

çalışma sayfasına

Garanti Edilen İçerik w / w
pH
d
1 kg maliyeti
1 lt Maliyeti
Ambalaj
Etiket
İşçilik
Toplam kg maliyet
Toplam lt maliyet

kısımlarını ekledim ve Aktar koduna

'PaketMaliyet = AraBul(paket, syf.Range("B:B"))
'iscilikMaliyet = AraBul(isci, syf.Range("B:B"))
'toplamKGMaliyet = AraBul(TKGMaliyet, syf.Range("B:B"))
'toplamLTMaliyet = AraBul(TLTMaliyet, syf.Range("B:B"))

'syf.Cells(toplamKGMaliyet, "D").Value = syf.Cells(birKGMaliyet, "D").Value + syf.Cells(PaketMaliyet, "D").Value + syf.Cells(iscilikMaliyet, "D").Value
'syf.Cells(toplamKGMaliyet, "D").NumberFormat = "#,##0.00 [$$-fr-CA]"

'syf.Cells(toplamKGMaliyet, "D").Value = syf.Cells(birLTMaliyet, "D").Value + syf.Cells(PaketMaliyet, "D").Value + syf.Cells(iscilikMaliyet, "D").Value
'syf.Cells(toplamKGMaliyet, "D").NumberFormat = "#,##0.00 [$$-fr-CA]"
bu satırı ekledim. ilk hatayı burada aldım.

sonra W_V_Getir koduna da

PaketMaliyet = AraBul(paket, .Range("B:B"))
iscilikMaliyet = AraBul(isci, .Range("B:B"))
toplamKGMaliyet = AraBul(TKGMaliyet, .Range("B:B"))
toplamLTMaliyet = AraBul(TLTMaliyet, .Range("B:B"))

If toplamKGMaliyet > 0 And toplamLTMaliyet > 0 Then

.Cells(toplamKGMaliyet, "D").Value = 0
.Cells(toplamLTMaliyet, "D").Value = 0
.Cells(toplamKGMaliyet, "D").Value = .Cells(birKGMaliyet, "D").Value + .Cells(PaketMaliyet, "D").Value + .Cells(iscilikMaliyet, "D").Value
.Cells(birLTMaliyet, "D").Value = .Cells(birLTMaliyet, "D").Value + .Cells(PaketMaliyet, "D").Value + .Cells(iscilikMaliyet, "D").Value

kodunu ekledim ve burada da hata aldım. kodlara bakarak eklemek istedim ama olmadı.

Abey yeni konu açın konu yine dağıldı.
Normalde pdf olayına bakacaktım.
Konu açarsanızda pdf olayını yazın.

Bu W-V olayınıda ekledim ama Pdf in sayfadaki 2 olma olayına uğraşmam gerek yarsam eklerim.

Bu dosyadaki userformu kendinize aktatabilirsiniz.

Yeni konu açarsanızda buna göre açın.

Kolay gelsin.

Bu dosyadada pdf sayfasına 2 reçete lik yaptım ama hata olabilir çok fazla olursa zannediyorum ayrıca çok fazla hammadde seçincede alta kayarmı bilmiyorum normalde çalışıyor.

sayın feraz evet bir sayfada iki reçete görünüyor. ama w/v değeri olmayan sütunda görünüyor. bir önce gönderdiğiniz örnekte de aynı problem vardı.

yeni konu açıyorum. başka yapamadığım bir hesaplamada var.




saygılar

Abey kodda yanılmıyorsam worksheetsfunction.count yani sayısal sayma kodu eklemiştim.Ve örnek dosyada sıfırlar yerine boş hücreler geliyordu ve sıfır yerine boş hücrelerin dolu sayısı adeti sıfır olunca dediğiniz alan çıkmıyordu.Koddaki sadece o yeri değişrirmek yeterli olur yarın hallederim yada sizde biraz uğraşabilrsiniz yada o kıd yerini ekleyin buraya mobilden ayarlamaya çalışayım.

---

Yada yeni konu sçın orda hallederiz.

---

Aklıma gelen count yerine sum olarak toplatırız ve büzük sıfır ise şart koşulur basit yani.