Mehmet Sait
Altın Üye
- Katılım
- 19 Ekim 2009
- Mesajlar
- 834
- Excel Vers. ve Dili
- Office 2016 TR
- Altın Üyelik Bitiş Tarihi
- 08-09-2028
Merhaba,
Tabloda boş bırakılmaması için kod başlangıcına aşağıda ki kodları ekledim. Boş unutulduğunda ve butona basıldığında makroyu dururuyor ve botonları konumladırdığım yerleri değiştiriyor. Butonların yerlerinin değişmemesi için bu sorunu nasıl aşabilirim.
Yardımlarınız için teşekkür ederim.
Tabloda boş bırakılmaması için kod başlangıcına aşağıda ki kodları ekledim. Boş unutulduğunda ve butona basıldığında makroyu dururuyor ve botonları konumladırdığım yerleri değiştiriyor. Butonların yerlerinin değişmemesi için bu sorunu nasıl aşabilirim.
Yardımlarınız için teşekkür ederim.
Kod:
If S1.Range("G3").Value = "" Then
MsgBox "Lütfen tarih giriniz!", vbCritical
S1.Range("G3").Select
Exit Sub
End If
If S1.Range("G5").Value = "" Then
MsgBox "Lütfen vardiya türünü giriniz!", vbCritical
S1.Range("G5").Select
Exit Sub
End If
If S1.Range("U8").Value = "" Then
MsgBox "Lütfen çalışma saatini giriniz!", vbCritical
S1.Range("U8").Select
Exit Sub
End If
If S1.Range("B97").Value = "" Then
MsgBox "Lütfen imza giriniz!", vbCritical
S1.Range("B97").Select
Exit Sub
End If