عبدالله باقشير قام بنشر أكتوبر 22, 2009 مشاركة قام بنشر أكتوبر 22, 2009 السلام عليكم عدم ترك خلية في العمود فارغة اعلى الصف بالكود و بمعادلة في التحقق من الصحة Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer, C As Integer If Target.Column = 2 And Target.Row > 2 Then If Target.Value = "" Then GoTo 1 R = Target.Row - 1 C = Application.WorksheetFunction.CountA(Range("B3:B" & R)) If R - 2 <> C Then MsgBox "خلايا اعلى الصف فارغة", vbCritical + vbMsgBoxRtlReading, "استخدام خاطىء" Target.ClearContents Range("B" & C + 3).Activate End If End If 1 End Sub عدم ترك خلية فى العمود فارغة.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 22, 2009 مشاركة قام بنشر أكتوبر 22, 2009 السلام عليكم و رحمة الله وبركاته استاذ خبور الفاضل اعمالك دائما جميلة ورائعة جزاك الله كل خير و بارك فيك و جعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أكتوبر 22, 2009 مشاركة قام بنشر أكتوبر 22, 2009 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر أبريل 25, 2014 مشاركة قام بنشر أبريل 25, 2014 ما هي المعادلة في التحقق من الصحة ارجو التوضيح زشكرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 25, 2014 مشاركة قام بنشر أبريل 25, 2014 بعد اذن استاذنا / خبور خير ... جزاه الله خيرا المعادلة هي ... في الصف رقم 3 =COUNTA($B$2:B2)+2>=ROW() رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان