كود ايقاف عمل الكود اذا كانت الخلية فارغة

[محمد عبد الناصر]

السلام عليكم ورحمة الله وبركاته

مطلوب اضافة على هذا الكود اذا كانت الخلية C6 فارغة فلا يقوم بعمل الكود ولا يفعل اي شيء ويعطي رسالة تحذير بان الخلية فارغة واذا كانت ممتلئة فيقوم عمل الكود بشكل طبيعي 

Sub go_mod5alat()
Sheets("المدخلات").Unprotect Password:="2020"
Dim ws As Worksheet, Data As Worksheet, ShName As String
Dim LR As Long, ER As Long, x As Integer
Set Data = Sheets("المدخلات")
ShName = Data.Range("C6").Text
ER = Data.Range("B" & Rows.Count).End(3).Row
x = ER - 7
For Each ws In Worksheets
If ws.Name = ShName Then
LR = ws.Range("B" & Rows.Count).End(3).Row
ws.Name = ShName
ws.Range("B" & LR + 1).Resize(x, 17) = Data.Range("B10").Resize(x, 17).Value
Sheets("المدخلات").Protect Password:="2020"
ActiveWorkbook.Save
End If
Next
End Sub

 

تم تعديل مارس 1, 2023 بواسطه محمد عبد الناصر

[lionheart]

One line

ShName = Data.Range("C6").Text
If ShName = "" Or IsEmpty(ShName) Then MsgBox "Cell Is Empty", vbExclamation: Exit Sub

 

[محمد عبد الناصر]

5 دقائق مضت, lionheart said:

One line

ShName = Data.Range("C6").Text
If ShName = "" Or IsEmpty(ShName) Then MsgBox "Cell Is Empty", vbExclamation: Exit Sub

 

يعطي خطأ فالكود حتى عند كتابة اسم بداخل الخلية

[lionheart]

What's the error message

 

Try using one condition only

If ShName = "" Then MsgBox "Cell Is Empty", vbExclamation: Exit Sub
 

 

[محمد عبد الناصر]

1 دقيقه مضت, lionheart said:

What's the error message

 

Try using one condition only

If ShName = "" Then MsgBox "Cell Is Empty", vbExclamation: Exit Sub
 

 

شكرا اخي الكريم تم العمل بنجاح 

[محمد عبد الناصر]

في 1‏/3‏/2023 at 17:01, lionheart said:

What's the error message

 

Try using one condition only

If ShName = "" Then MsgBox "Cell Is Empty", vbExclamation: Exit Sub
 

 

اريد اضافة البحث اولا في شيت المدخلات فهكذا يكون ؟

If Sheets("المدخلات").Range("c6") = "" Or IsEmpty(ShName) Then MsgBox "دخل اسم العمممممييييييللللللل", vbExclamation: Exit Sub

 

تم تعديل مارس 5, 2023 بواسطه محمد عبد الناصر