merhaba,
makro ile alakalı hiçbir bilgim olmamakla birlikte daha önce kullanılmış bir makroyu kendi dosyama uyarlamak istiyorum. Bazı yerleri anladım ama çoğu yeri anlayamadım.
anladğım kadarı ile özetleyeyim
Bi Sheet te Yazdırma butonu var tıklandığında uzun döküman diye ileti veriyor ilk başta. Daha sonra KARNE sayfasındaki c2 hücresine AD stunundaki verileri tek tek yapıştırıp yazdırıyor.
Şoyle ki benim oluşturduğum dosyada AD stununda hiçbir veriyok. eğer olursa yazdırma işlemi gerçekleşirmi ayrıca yazdırma için butonu da bu vba kodları ile eşleştiremedim deneme de yapamadım ilk defa uğraşıyorum VBA ile.
Teşekkürler..
makro ile alakalı hiçbir bilgim olmamakla birlikte daha önce kullanılmış bir makroyu kendi dosyama uyarlamak istiyorum. Bazı yerleri anladım ama çoğu yeri anlayamadım.
anladğım kadarı ile özetleyeyim
Bi Sheet te Yazdırma butonu var tıklandığında uzun döküman diye ileti veriyor ilk başta. Daha sonra KARNE sayfasındaki c2 hücresine AD stunundaki verileri tek tek yapıştırıp yazdırıyor.
Şoyle ki benim oluşturduğum dosyada AD stununda hiçbir veriyok. eğer olursa yazdırma işlemi gerçekleşirmi ayrıca yazdırma için butonu da bu vba kodları ile eşleştiremedim deneme de yapamadım ilk defa uğraşıyorum VBA ile.
Teşekkürler..
Kod:
Sub Button2_Click()
a = MsgBox("ÇOK UZUN DÖKÜMAN" & vbCrLf & "Tümü Yazdırmak İstediğinizden Emin misiniz?" & vbCrLf & "Yazdırmaya başladığınızda vazgeçmek için yazıcıdan iptal etmeniz gerekir..", vbYesNo)
If a <> 6 Then Exit Sub
Sheets("KARNE").Select
Range("c2").Select
For M = 2 To 5000
If Trim(Range("c2").Value) <> "" Then
Range("c2").Value = "'" & Range("AD" & M).Value
' Print satırıdır. Print edilmek istenmezse aşağıdaki satırın başına ' işareti konulmalıdır
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub