Skip to main content

AccessTr.neT


Excel Vba Kod İle Hesaplama Ve Pdf

Excel Vba Kod İle Hesaplama Ve Pdf

#7
(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. Ozur

[Resim: do.php?img=15632]

[Resim: do.php?img=15633]

[Resim: do.php?img=15634]

[Resim: do.php?img=15635]

[Resim: do.php?img=15636]

olması gerektiği şekil

[Resim: do.php?img=15637]

[Resim: do.php?img=15638]

saygılar
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#8
Bir deneyin.Bir sub yazdım her tarafa ekledim W / V kontrolü için Img-grin

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.
.zip Çalışma son 3.zip (Dosya Boyutu: 199,92 KB | İndirme Sayısı: 2)
Cevapla
#9
(10/12/2023, 02:27)feraz yazdı: Bir deneyin.Bir sub yazdım her tarafa ekledim W / V kontrolü için Img-grin

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
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#10
Bu pdf 2 sayfa olayı için kodları silmişsiniz tekrar ekledim.

11.Mesajdaki dosyayı güncelledim.
.zip Çalışma son 5.zip (Dosya Boyutu: 203,17 KB | İndirme Sayısı: 0)
Cevapla
#11
Neyse pdf yapınca sağdaki çizgiler silik oluyordu kodda H yerine I yazdım bunu denersiniz.
.zip Çalışma son 5.zip (Dosya Boyutu: 203,71 KB | İndirme Sayısı: 0)
Cevapla
#12
(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.

[Resim: do.php?img=15640]

[Resim: do.php?img=15641]
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task