- Katılım
- 6 Eylül 2004
- Mesajlar
- 239
- Excel Vers. ve Dili
- Excel 2013 Türkçe
- Altın Üyelik Bitiş Tarihi
- 20-05-2022
selam arkadaşlar
Sub SARAL1()
Dim bak As Range
For Each bak In Worksheets("giris").Range("f11:f15")
If bak.Value = "" Then
MsgBox bak.Offset(0, -1).Value & "*** Lütfen Boş Alan Bırakmayınız.***", , " İmSA"
Exit Sub
End If
Next bak
Sheets("MENÜ").Select
End Sub
Nex bak satırından sonra farklı kaydet yapmasını istiyorum kayıt yapıldıktan sonra " menü" sayfasına geçsin
teşekkürler
Sub SARAL1()
Dim bak As Range
For Each bak In Worksheets("giris").Range("f11:f15")
If bak.Value = "" Then
MsgBox bak.Offset(0, -1).Value & "*** Lütfen Boş Alan Bırakmayınız.***", , " İmSA"
Exit Sub
End If
Next bak
Sheets("MENÜ").Select
End Sub
Nex bak satırından sonra farklı kaydet yapmasını istiyorum kayıt yapıldıktan sonra " menü" sayfasına geçsin
teşekkürler