للامرين معا
Private Sub CommandButton1_Click()
Dim cell As Range
Application.ScreenUpdating = False
Range("TT").EntireRow.Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
For Each cell In Range("TT")
If cell.Value = 0 Then cell.EntireRow.Delete (xlUp)
Next cell
Application.ScreenUpdating = True
End Sub
السلام عليكم
الشرح في المرفق مع امكانيه وضع رقم متسلسل في حال كان الاتصال اكثر من مرة من نفس الجهه فى نفس الساعه(اذا استثنيت الدقائق كما هو الحال فى مثالك)
__________2.rar
السلام عليكم
خطوة اولى تتبعها خطوات
هنا مثال لاستعراض الصور
في المرفق
ملف اسمه "صور"
افتح الصور ظللها و انسخها و الصقها في القرص "c" (في المحرك C مباشره و ليس داخل مجلد)
نكمل باذن الله
* ممكن تعديل امتداد الصور المراد استخدامها من داخل الكود (الصور في المثال من نوع JPG)
________________________.rar
السلام عليكم
اسف جدا
اخوانى و انت في sheet1 من ملف ادراج > صوره > من ملف
ادرج الصوره التى تريد
سمها اسما كما تريد
في sheet2
اجعل لها رمزا مثلا test2 كما في المثال
ادخلها في النطاق المعرف(Pic Table) في Sheet2
اضفت الى الكود سطرين بسيطين لضبط الصور بنفس الحجم
و الله الموفق
اعتذر مجددا
___________.rar