a.kawkab

السلام عليكم تفضل تم المطلوب endsplash error.xlsm

السلام عليكم اضف userform1.show unload me فى نهاية الكود فى حدث activate ليصبح الكود كالتالى Private Sub UserForm_Activate() Dim dTime As Date Dim i As Integer For i = 1 To 100 Step 100 / 8 dTime = Now + TimeValue("0:00:01") Application.Wait TimeValue(dTime) ProgressBar1.Value = i Next i UserForm1.Show Unload Me End Sub مرفق الملف endsplash error.xlsm

Russian Language

الاخوة الافاضل فى منتدى اوفيسنا السلام عليكم مطلوب تحويل المعادلة التالية الى كود برمجى وجزاكم الله خيرا [A5]=IFERROR(SEQUENCE(COUNTA(B:B)-1);"") كتبتها بهذة الطريقة [A5].formula="=IFERROR(SEQUENCE(COUNTA(B:B)-1),"")" لكن لم تشتغل حذفت iferror وكتبتها بهذا الشكل [A5].formula="=SEQUENCE(COUNTA(B:B)-1)" وعند تنفيذ الكود تظهر بهذا الشكل فى الخلية =@SEQUENCE(COUNTA(B:B)-1) وبالتالى المعادلة لا تعمل

السلام عليكم اخى عبد العزيز تفضل تم المطلوب Option Compare Text Private Sub TextBox1_Change() [A2].AutoFilter field:=2, Criteria1:=Me.TextBox1 & "*" If TextBox1.Value = "" Then [A2].AutoFilter End Sub A_aziz.xlsb

السلام عليكم يمكنك الاستفادة من الفيديو التالى للاستاذ عماد غازى https://www.youtube.com/watch?v=M3APTvZ0nfw

تفضل اخى الكريم الملف بعد ازالة التحديد كود نسخ البيانات.xlsm

تفضل اخى الملف اى بيان يضاف فى شيت رصد2 بمجرد فتح شيت 2 ستجد البيانات تم نسخها تركت لك زر المسح شغال واوقفت زر الترحيل كود نسخ البيانات.xlsm

السلام عليكم للنسخ بدون زر ضع نفس الكود فى حدث change لشيت رصد2 او فى حدث activate لشيت 2

السلام عليكم mmagedmemo انا بشتغل على اوفيس365 ولا توجد تلك الاضافات فما الحل

السلام عليكم ورحمه الله وبركاته بارك الله فيك وجزاك الله خيرا استاذنا الفاضل استاذ ضاحى وياريت تجعل رايط الصور فى فولدر فى نفس مسار الملف هيكون افضل واسهل

السلام عليكم تفضل الشيت بعد التعديل يعمل جيدا Test2.xlsm

السلام عليكم تم التوصل الى الكود باقتباس من احد اعمال العلامة خبور تم رفع الشيت بالكود للاستفادة وشكرا لكم Private Sub CommandButton1_Click() ' أمر ترحيل بيانات Dim LR As Long Dim Adr As String Dim r As Integer, c As Integer ''''''''''''''''''''''''''''''' With Sh1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 End With '''''''''' For r = 1 To 10 Adr = Cells(r, 1).Address(0, 0) For c = 1 To 5 Adr = Cells(r, c).Address(0, 0) Sh1.Range("A" & LR).Cells(r, c).Value = Me.Controls(Adr).Value Next Next '''''' End Sub Book101Add.xlsm

السلام عليكم مطلوب ترحيل بيانات الخمسيين تكست بوكس مرة واحدة للشيت فى مدى مطاط من(a:e"& lr") بحيث يبدا من a2فى الادخال الاول ثم من(lr+1)فى الادخال التالى وهكذا بمعنى لو تم ملئ بيانات الخمسين تكست بوكس يكون ادخال البيانات فى الخلايا من (a2:e10)ثم من (a11:e20) وهكذا Book101.xlsm

السلام عليكم الدالة موجوده فى اوفيس 2021