Arkadaşlar merhaba;
Bir çalışmamda oluşturduğum YAZICI isimli sayfada bir çok düğmeye bağlı değişik yazdırma kodları var. Bu kodlardan bazıları tıklanınca 40 50 sayfayı yazıcıya gönderiyor. Tabi yanlış tıklamaların da maalesef dönüşü zor oluyor. Şimdi:
Şimdi bir yazdırma düğmesine tıklayınca YAZICI isimli sayfanın L4 hücresinde yazana göre (mesela L4 hücresinde 1A yazıyorsa); "1A sınıfının öğrencileri yazıcıya gönderilecek" mesajıyla EVET HAYIR seçeneği olan bir kod parçası nasıl olmalı? EVET tıklayınca yazdırsın. HAYIR tıklanınca yazmasın. Teşekkürler.
Örnek Kod:
Sub SINIF_İŞİTME_ÖN_YAZDIR()
Application.ScreenUpdating = False
For sat = 2 To Sheets("YAZICI").[K4] + 1
If Sheets("YAZICI").Cells(sat, "S") <> "" Then
Sheets("İŞİTME FORMU ÖN").[K90] = Sheets("YAZICI").Cells(sat, "S")
' Sheets("İŞİTME FORMU ÖN").PrintPreview
Sheets("İŞİTME FORMU ÖN").PrintOut Copies:=1
Application.Wait (Now + TimeValue("0:00:01"))
adet = adet + 1
End If
Next
Application.ScreenUpdating = True
MsgBox adet & " öğrenci için İŞİTME FORMU sayfası yazdırıldı.", , "..:: Ömer BARAN ::.."
End Sub
Bir çalışmamda oluşturduğum YAZICI isimli sayfada bir çok düğmeye bağlı değişik yazdırma kodları var. Bu kodlardan bazıları tıklanınca 40 50 sayfayı yazıcıya gönderiyor. Tabi yanlış tıklamaların da maalesef dönüşü zor oluyor. Şimdi:
Şimdi bir yazdırma düğmesine tıklayınca YAZICI isimli sayfanın L4 hücresinde yazana göre (mesela L4 hücresinde 1A yazıyorsa); "1A sınıfının öğrencileri yazıcıya gönderilecek" mesajıyla EVET HAYIR seçeneği olan bir kod parçası nasıl olmalı? EVET tıklayınca yazdırsın. HAYIR tıklanınca yazmasın. Teşekkürler.
Örnek Kod:
Sub SINIF_İŞİTME_ÖN_YAZDIR()
Application.ScreenUpdating = False
For sat = 2 To Sheets("YAZICI").[K4] + 1
If Sheets("YAZICI").Cells(sat, "S") <> "" Then
Sheets("İŞİTME FORMU ÖN").[K90] = Sheets("YAZICI").Cells(sat, "S")
' Sheets("İŞİTME FORMU ÖN").PrintPreview
Sheets("İŞİTME FORMU ÖN").PrintOut Copies:=1
Application.Wait (Now + TimeValue("0:00:01"))
adet = adet + 1
End If
Next
Application.ScreenUpdating = True
MsgBox adet & " öğrenci için İŞİTME FORMU sayfası yazdırıldı.", , "..:: Ömer BARAN ::.."
End Sub