(09/12/2023, 13:41)feraz yazdı: Sadece bir if koşulu ekledim abey.

teşekkürler sayın feraz güzel çalışıyor.

çözemediğim bir şey var.

yine resimlerle anlatmaya çalıştım. kodu çok kurcaladım ama çözemedim.











olması gerektiği şekil





saygılar

Bir deneyin.Bir sub yazdım her tarafa ekledim W / V kontrolü için

Tam deneyemedim varsa eksik yada yanlışlar yazın.
Önceki dosyada B sütununa veri girince W / V hesaplamıyormuş onuda ayarladım.Yani B sütunu ve d olan hücre değişincede hesaplanacak.

(10/12/2023, 02:27)feraz yazdı: Bir deneyin.Bir sub yazdım her tarafa ekledim W / V kontrolü için

Tam deneyemedim varsa eksik yada yanlışlar yazın.
Önceki dosyada B sütununa veri girince W / V hesaplamıyormuş onuda ayarladım.Yani B sütunu ve d olan hücre değişincede hesaplanacak.

sayın feraz bir hata dışında hepsi çalışıyor. PDF oluştururken W/V olmayan sayfayı pdf yapmak istediğimizde

Run-Time error '91': Object variable or With block variable not set hatasını

With w_vAlan
If i = 1 Then
.Copy wbSyf.Cells(Rows.Count, 1).End(3)(2, 1) '2 tek satir atlama icin
ElseIf i > 1 Then
.Copy wbSyf.Cells(Rows.Count, 1).End(3)(4, 1) '4 üc satir atlama icin
End If

satırında hata veriyor ve PDF sayfası oluşturmayıp yeni boş Excel kitabı oluşturuyor

Bu pdf 2 sayfa olayı için kodları silmişsiniz tekrar ekledim.

---

11.Mesajdaki dosyayı güncelledim.

Neyse pdf yapınca sağdaki çizgiler silik oluyordu kodda H yerine I yazdım bunu denersiniz.

(11/12/2023, 00:44)feraz yazdı: Neyse pdf yapınca sağdaki çizgiler silik oluyordu kodda H yerine I yazdım bunu denersiniz.

kodları aktarırken yanlışlıkla silmişim kodları. düzeldi ama bir şeyi atlamışız sanırım. yeni çalışmada garanti edilen içerik kısmına yni şeyler eklemiştik hatırlarsanız.

Ambalaj
Etiket
İşçilik
Toplam kg maliyet
Toplam lt maliyet

pdf de bunlar görünmüyor.