اريد ادخال هذا الاكواد فى هذا لملف اذا امكن

**mostafaatiya** · يوليو 4, 2010

الشرح بالملف

**mostafaatiya** · يوليو 4, 2010

ممكن الافادة

**يحيى حسين** · يوليو 5, 2010

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

اخي مصطفى شاهد المرفق

**mostafaatiya** · يوليو 5, 2010

استاذ يحيي حسين هذا ما طبت وجزاك الله خيرا ولكن

حين ما اقوم بالحذف اريد حذف الصف كاملا وليس خلايا محدد

بمعني حضرتك قمت بادخال الكود يقوم بحذف خلايا محددة ولكن لن يقوم بحذف باقي الخلايا المجاورة

قمت بارفاق المل مرة اخرة وبة شرح المطلوب

**يحيى حسين** · يوليو 5, 2010

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

اخي في فورم الحذف فقط عدل الكود التالي

 

Range("c" & Inum).Resize(, 17).Delete shift:=xlUp

**mostafaatiya** · يوليو 5, 2010

ارجو ضبط التاريخ تلقائي واليكم الصورة الموضحة

**يحيى حسين** · يوليو 5, 2010

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

قم بوضع الكود التالي في الفورم

 

Private Sub UserForm_Initialize()

Me.TextBox1.Value = Date

End Sub

و كلما يفتح الفورم سيتم وضع التاريخ تلقائياً في التكست بوكس 1

**mostafaatiya** · يوليو 5, 2010

بالفعل تم ماطلبت

بارك اللة فيك وجزاك خيرا استاذ يحيي حسين

جزاك الله خيرا

شكرا جزيلا

**يحيى حسين** · يوليو 5, 2010

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

اهلا و سهلا بك اخي مصطفى

دعواكم

الردود الموصى بها