ç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ı.