tarihi otomatik çoğaltacak ve yazdıracak bir işlemi nasıl yapabilirim

[HD1975]

MErhaba

Göndermiş olduğum dosyada bir senet formum var,bu formda vade yazdığım
yere tarih giriyorum.

Formu baskıya verdiğim zaman basılacak adet sayısı kadar her baskıda vadeyi
bir ay ileri atması gerekiyor.

Saygılar Sunuyorum

Yardımlarınızı bekliyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un sayfasına kopyalayıp dener misiniz?
Yazdırırken ya da Baskı Ön İzleme yaparken size Adet soracaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
Dim Adet, i, j As Integer
Adet = Application.InputBox("Kaç Adet Satır Olacak ?", "Adet Girişi", 0, Type:=1)
j = 3
i = 1
Do
    j = j + 1
    i = i + 1
    Cells(j, "B") = DateSerial(Year(Cells(j - 1, "B")), Month(Cells(j - 1, "B")) + 1, Day(Cells(j - 1, "B")))
Loop While i < Adet
End Sub

 

[HD1975]

Yanlış anlaşıldım

Merhaba,

Aşağıdaki kodları ThisWorkbook'un sayfasına kopyalayıp dener misiniz?
Yazdırırken ya da Baskı Ön İzleme yaparken size Adet soracaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
Dim Adet, i, j As Integer
Adet = Application.InputBox("Kaç Adet Satır Olacak ?", "Adet Girişi", 0, Type:=1)
j = 3
i = 1
Do
    j = j + 1
    i = i + 1
    Cells(j, "B") = DateSerial(Year(Cells(j - 1, "B")), Month(Cells(j - 1, "B")) + 1, Day(Cells(j - 1, "B")))
Loop While i < Adet
End Sub

MErhaba

Ben satırı çoğaltısın demek istemedim.Ekrandakini beş adet yazdır dediğim zaman,her yazdırdığı evrakta vade kısmındaki tarihi bir ay ileri atarak bassın.

Yani birinci baskı 10.05.2009 ikinci baskı 10.06.2009 üçüncü baskı 10.07.2009
gibi demek istiyorum.

Saygılar

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp deneyiniz. Doğrudan yazıcıdan çıktı alacaksanız mavi satırı silip kırmızı satırın tek tırnağını silin.

Sub Yazdir()
Sheets("Sayfa1").Select
Adet = InputBox("Kaç Kere Yazdırılacak", "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]  -  Yazdırma Adedi", 1, 0, 0)
If IsNumeric(Adet) = False Or Adet = 0 Then Exit Sub
For i = 1 To Adet
    Range("B3") = DateSerial(Year([B3]), Month([B3]) + 1, Day([B3]))
[COLOR=blue][B]   ActiveSheet.PrintPreview[/B][/COLOR]
[COLOR=red][B]'    ActiveSheet.PrintOut[/B][/COLOR]
Next i
MsgBox "İşlem Tamamdır....", vbOKOnly, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

 

[HD1975]

Teşekkür ederim.

Merhaba,

Aşağıdaki kodları bir butona bağlayıp deneyiniz. Doğrudan yazıcıdan çıktı alacaksanız mavi satırı silip kırmızı satırın tek tırnağını silin.

Sub Yazdir()
Sheets("Sayfa1").Select
Adet = InputBox("Kaç Kere Yazdırılacak", "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]  -  Yazdırma Adedi", 1, 0, 0)
If IsNumeric(Adet) = False Or Adet = 0 Then Exit Sub
For i = 1 To Adet
    Range("B3") = DateSerial(Year([B3]), Month([B3]) + 1, Day([B3]))
[COLOR=blue][B]   ActiveSheet.PrintPreview[/B][/COLOR]
[COLOR=red][B]'    ActiveSheet.PrintOut[/B][/COLOR]
Next i
MsgBox "İşlem Tamamdır....", vbOKOnly, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

İyi akşamlar

Teşekkür ederim çok güzel olmuş,yalnız yazdır dediğimiz zaman her seferinde
tekrar basmak yerine tekrarlamayı kendisi yapma imkanı yokmu.

Yoksada çok makbule geçti

Saygılar sunuyorum

Saygılar

 

[cems]

Sayın Yeşertener'in verdiği kodlarda , Sayfa üstündeki Yazdır tuşuna bastığınızda bir inputbox açılarak kaç adet senet basmak istediğinizi soruyor zaten . Ve sizin verdiğiniz sayıda döngü çalışarak baskıya gönderiyor.

 

[HD1975]

Sayın Yeşertener'in verdiği kodlarda , Sayfa üstündeki Yazdır tuşuna bastığınızda bir inputbox açılarak kaç adet senet basmak istediğinizi soruyor zaten . Ve sizin verdiğiniz sayıda döngü çalışarak baskıya gönderiyor.

Muhterem, baskıya gönderiyor'da ben her baskı için onay vermem gerekiyor.
İmkan varsa benim onayım yerine kaç kez basılacağını yazdıktan sonra
hepsini yazıcıya göndersin.

Saygılar