يمكن طبعا
وفى الملف المرفق مثال لذلك
ولكن القائمة المنسدلة تحتوى على حروف انجليزية لان الملف به بيانات باللغة الانجليزية
وبالتالى يمكن تغيرها بسهولة الى اللغة العربية عندما تكون بيانات الجدول باللغة العربية
Book1.rar
أخى الفاضل / أبو حنين
جزاك الله كل خير
وعلى فكرة هذا الكود الرائع للأستاذ الكبير / عبد الله باقشير
وأنا قمت بوضعة داخل الملف وتعديل المدى ليناسب الملف فقط
وبالتالى فأنا لم أفعل شيئا
فالفضل يرجع لأهله وهو الاستاذ الكبير / عبد الله باقشير ( خبور خير )
أخى
هذا هو الكود اللازم
Private Sub UserForm_Initialize()
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height
End Sub
userform.rar
أخى الفاضل
يمكن تنفيذ ما تريده بحيله بسيطة
وهى استبدال الرقم 4 ( الذى يمثل رقم العمود ) بالدالة column () + 1 ثم السحب
سوف تنفذ ما تريده دون الحاجة الى تغيير الرقم فى كل خليه
المثال موجود فى الخلايا الملونة
معهد بعلبك الخاص - 1.rar
أخى الفاضل والأستاذ الكبير / أبو عبد الله
شرف كبير جدا لى هذه الكلمات الطيبة من أستاذ كبير
وهذه الكلمات شجعتنى على عرض الفكرة الثانية
وهى مطبقة فى الخلايا الملونة ( الخاصة بالفصل الأول )
معهد بعلبك الخاص - 1.rar
أخى ابراهيم
هناك تعديل واحد فقط وهو تغير الرقم 2 بالرقم 3 فى السطرين التاليين
Cells(2, c).Resize(6, 4).Cut (Cells(r, 1))
Range("A" & r).Resize(6, 4).Cut (Cells(2, c))