- Katılım
- 15 Temmuz 2012
- Mesajlar
- 2,790
- Excel Vers. ve Dili
- Ofis 2021 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 29.03.2025
Merhaba hayırlı geceler.
Ekte gönderdiğim excel sayfamda yazdır butonu var, buton gayet güzel çalışıyor ama kod içerisine ekleme yapmak istiyorum, bu sefer de kod çalışmıyor.
Yapmak istediğim bir uyarı daha eklemek, yazdır butonuna bastığımda eğer H7 hücresi Boş yazıyorsa Personel bilgilerini doldurun mesajını vermesini istiyorum, eğer H7 hücresi dolu ise kodun devam ederek yazdırıldı mesajını vermesini istiyorum.
Bir türlü yapamadım, yardımcı olur musunuz?
Ekte gönderdiğim excel sayfamda yazdır butonu var, buton gayet güzel çalışıyor ama kod içerisine ekleme yapmak istiyorum, bu sefer de kod çalışmıyor.
Yapmak istediğim bir uyarı daha eklemek, yazdır butonuna bastığımda eğer H7 hücresi Boş yazıyorsa Personel bilgilerini doldurun mesajını vermesini istiyorum, eğer H7 hücresi dolu ise kodun devam ederek yazdırıldı mesajını vermesini istiyorum.
Bir türlü yapamadım, yardımcı olur musunuz?
Kod:
Sub Yazdır()
yazdir = Application.InputBox("Kaç adet yazdırılacak?", "A S L A N", 1)
If yazdir = False Then
MsgBox " Yazdırmaktan vazgeçildi.", vbInformation, "A S L A N"
Exit Sub
Else
If Range("H7") = "Boş" Then
MsgBox "Personel bilgilerini doldurun.", vbInformation, "A S L A N"
End If
Exit Sub
'ActiveWindow.SelectedSheets.PrintOut Copies:=yazdir
MsgBox yazdir & " adet yazdırıldı.", vbInformation, "A S L A N"
End If
End Sub
Ekli dosyalar
-
66.8 KB Görüntüleme: 12
Son düzenleme: