تعبئة الخلايا الفارغة بكلمة معينة

[خالد العنود]

إخواني الأعزاء 

بارك الله جهودكم و جعلها فى ميزان حسناتكم

 لدي شيت اكسل به عمودين أحدهما اسم الطالب و الآخر الدرجة أقوم بكتاية الدرجة أمام كل طالب و يوجد بعض الغائبين أترك خلاياهم فارغة أرغب قى عمل زر أمر عند الضغط عليه يقوم بكتابة كلمة غائب فى الخلايا الفارغة دفعة واحدة و لكن بشرط أن تكون الخلية الفارغة التى يكتب فيها غائب يكون مقابلها اسم طالب موجود فعلا و ليس خلية الفارغة أي أنه لا يكتب كلمة غائب فى الخلايا الفارغة التى ليس مقابلها اسم طالب مسجل 

و لكم التحية و التقدير 

Fill blanks.xlsx

[ابراهيم الحداد]

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

استخدم هذا الكود

Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Sheet1.Range("A2:A" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row)
If IsEmpty(C.Offset(0, 1)) Then
C.Offset(0, 1).Value = "غ"
End If
Next

End Sub

 

[سليم حاصبيا]

بعد اذن اخي ابراهيم 

هذا الكود (من سطر واحد) وبدون حلقات تكرارية

Sub test()
On Error Resume Next
  Range("A2", Range("A1"). _
  End(4)).Offset(, 1). _
  SpecialCells(4).Value = "Abscent"
End Sub

 

[سليم حاصبيا]

شاهد هذا الفيديو

https://www.youtube.com/watch?v=hElkHVLg7a4

 

[عبدللرحيم]

تفضل جرب الكودين 

بأزرار التنفيذ

 

Fill blanks.xlsm

[خالد العنود]

شكرا لك استاذ عبد الرحيم و كل الأخوة الأفاضل 

ما قصرتو

الله يحفظكم

[عبدللرحيم]

الفضل لأصحاب الفضل

ابراهيم الحداد / سليم حاصبيا