Skip to main content

AccessTr.neT


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

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

#37
ç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ı.
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#38
Abey yeni konu açın konu yine dağıldı.
Normalde pdf olayına bakacaktım.
Konu açarsanızda pdf olayını yazın.
Cevapla
#39
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.
.zip Çalışma orjinal 10(Formlu).zip (Dosya Boyutu: 165,71 KB | İndirme Sayısı: 1)
Cevapla
#40
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.

[Resim: SiEd3.gif]
.zip Çalışma orjinal 11(Formlu).zip (Dosya Boyutu: 170,05 KB | İndirme Sayısı: 2)
Cevapla
#41
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.


[Resim: do.php?img=15536]

saygılar
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 07/12/2023, 23:14, Düzenleyen: hnakis.
Cevapla
#42
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task