Sürekli Basım

[c a g a t a y]

Arkadaşlar Merhaba
Ekteki Excell'de IRSALIYE sayfasını sürekli form printera yollamak istiyorum. Ancak Irsalıye sayfası IRSALIYE LISTE sayfasını okumalı. Ve IRSALIYE sayfasını bir kere print e yollayinca IRSALIYE LISTE sayfasındaki tüm satırları tek tek basmalı. Bunu yapmayi beceremedim.

Yardım edecek arkadaşlara şimdiden çok teşekkürler

Selamlar

Excell BURADA

https://cloud.mail.ru/public/3Y1t/PKsZ2Attu

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excelgurusu.com/mektup-birlestirme-mail-merge/


.

 

[c a g a t a y]

İdris Abi
Öncelikle yanıtladiginiz icin tesekkür ederim
Verdiginiz sayfadaki Excel-mektup-birleştir.xls inceledigimde benim yapmak istedigime uygun gibi ANCAK benim excel de dikkat ederseniz IRSALIYELISTE sayfasında bir isim/adres/kullanici altinda birden cok KALEM olabiliyor. Orayı ayarlayamadım.

Selamlar

 

[alicimri]

2016 ofis kullandığınıza göre sütun konusunda sıkıntınız yok. Açıklama ve Miktarları alt alta değil de yan yana yazın Açıklama1, Açıklama2 ............. ve Miktar1, Miktar2 ................ gibi
İdris Beyin dosyasını indiremedim ama İdris beyin çalışmasında veya word de mektup-birleştir ile yapabilirsiniz.

 

[c a g a t a y]

Ali Bey
Açıklama ve Miktarları alt alta yazmak zorundayım, çünkü;
1. BANA EXCELL O ŞEKİLDE geliyor
2. Ürün Filtreleme yapmam icin alt alta olmak zorunda

 

[alicimri]

Gönderdiğiniz dosyaya göre, aşağıdaki kod işinizi görür herhalde.

Sub AktarYaz()
Set al = Sheets("IRSALIYE LISTE")
Set yaz = Sheets("IRSALIYE")
For i = 2 To al.Range("G" & al.Cells.Rows.Count).End(3).Row
If al.Range("A" & i) <> "" Then
yaz.PrintOut Copies:=1, Collate:=True
yaz.Cells.ClearContents
yaz.Range("A10").Value = al.Range("A" & i)
yaz.Range("A11").Value = al.Range("B" & i)
yaz.Range("A12").Value = al.Range("C" & i)
yaz.Range("B14").Value = al.Range("D" & i)
yaz.Range("H14").Value = al.Range("E" & i)
yaz.Range("I3").Value = al.Range("F" & i)
Else
If yaz.Range("A19") = "" Then
yaz.Range("A19").Value = al.Range("G" & i)
yaz.Range("B19").Value = al.Range("H" & i)
Else
yaz.Range("A" & yaz.Range("A" & yaz.Cells.Rows.Count).End(3).Row + 1).Value = al.Range("G" & i)
yaz.Range("B" & yaz.Range("B" & yaz.Cells.Rows.Count).End(3).Row + 1).Value = al.Range("H" & i)
End If
End If
Next
yaz.PrintOut Copies:=1, Collate:=True
yaz.Cells.ClearContents
End Sub

 

[c a g a t a y]

Ali Hocam
YAZ (print) e göndermeden Irsaliye sayfasında görmenin yolu nedir?
Senin kodda direk printe yolluyor RUN edince

Selamlar

 

[alicimri]

#6 nolu mesajdaki kodda hata vardı, güncelledim. Aşağıdaki kod IRSALIYE LISTE sayfasında A sütununda dolu ve aktif hücreden başlayarak ilk irsaliyeyi yazdırıp daha sonraki irsaliye bilgisinde duruyor tekrar çalıştırınca sonraki irsaliyeyi yazdırıyor.IRSALIYE LISTE sayfasında Aktif hücrenin yeri önemli.

Sub Tek()
Set al = Sheets("IRSALIYE LISTE")
Set yaz = Sheets("IRSALIYE")
al.Activate
If ActiveCell = "" Or ActiveCell.Column <> 1 Then
MsgBox "Aktif hücre yanlış yerde"
Exit Sub
End If
yaz.Cells.ClearContents
yaz.Range("A10").Value = al.Range("A" & ActiveCell.Row)
yaz.Range("A11").Value = al.Range("B" & ActiveCell.Row)
yaz.Range("A12").Value = al.Range("C" & ActiveCell.Row)
yaz.Range("B14").Value = al.Range("D" & ActiveCell.Row)
yaz.Range("H14").Value = al.Range("E" & ActiveCell.Row)
yaz.Range("I3").Value = al.Range("F" & ActiveCell.Row)
For i = ActiveCell.Row + 1 To al.Range("G" & al.Cells.Rows.Count).End(3).Row
If al.Range("G" & i) = "" Or i = al.Range("G" & al.Cells.Rows.Count).End(3).Row Then
al.Range("A" & i).Select
yaz.PrintOut Copies:=1, Collate:=True
yaz.Activate
Exit Sub
End If
If yaz.Range("A19") = "" Then
yaz.Range("A19").Value = al.Range("G" & i)
yaz.Range("B19").Value = al.Range("H" & i)
Else
yaz.Range("A" & yaz.Range("A" & yaz.Cells.Rows.Count).End(3).Row + 1).Value = al.Range("G" & i)
yaz.Range("B" & yaz.Range("B" & yaz.Cells.Rows.Count).End(3).Row + 1).Value = al.Range("H" & i)
End If
Next

End Sub

 

[c a g a t a y]

#6 nolu mesajdaki kodda hata vardı, güncelledim. Aşağıdaki kod IRSALIYE LISTE sayfasında A sütununda dolu ve aktif hücreden başlayarak ilk irsaliyeyi yazdırıp daha sonraki irsaliye bilgisinde duruyor tekrar çalıştırınca sonraki irsaliyeyi yazdırıyor.IRSALIYE LISTE sayfasında Aktif hücrenin yeri önemli.

Ali Abi eline sağlık
Ancak 2 sorum var
1. Ürün adetlerini yazmıyor?
2. LISTE nin tamımını (her seferinde AKTIF HUCRE SECMEDEN) print a gönderebilir miyim? (bir print butonu ile)

Saygılar

 

[alicimri]

#8 nolu mesajda hem bir hata vardı onu düzelttim hem de Ürün adetlerini yazdırma işlemi yaptım.
Eğer ilk defasında A2 hücresini seçerseniz, daha sonra print butonuna her tıklamanızda bir sonraki irsaliyeyi yazdırabilirsiniz.
Tümünü teker teker görmeden yazdırmak için #6 nolu mesajdaki kodu çalıştırın