سؤال لأهل الخبرة

[malak 2018]

م

ليه لما احط الكود بتاع التاريخ و الوقت فى اليوزرفورم الملف مايتشغلش و حتى محرر الاكواد لا يعمل ؟

الكود :

Private Sub UserForm_Activate ()

Label4.Caption = Date

Label5.Caption = Format(Date, "dddd")

Do

Label6.Caption = Time

DoEvents

Loop

End Sub

حتاج ضرورى كود لطباعة الخلايا التى بها بيانات و عدم طباعة الخلايا الفارغة

[أبو ردينة]

أهلا بك أخي ملاك عضوا من أعضاء أسرة أوفيسنا الحبيبة 
بداية الكود يعمل بكفاءة ( مرفق ملف به الكود الخاص بك ) 
و للتنويه فقط ( الموضوع مكرر مرتين حاول أن تحذف الموضوع الأخر مشكورا ) 
تحياتي 

مرحبا أستاذ ملاك.rar