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

13 ساعات مضت, mohmod zedan said:

ممكن توضح في الملف

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

كود نسخ البيانات.xlsm

في 6‏/8‏/2023 at 19:07, mohmod zedan said:

ممكن طريقة اخري نسخ اتوماتيك بدون رز

 

السلام عليكم 

للنسخ بدون زر ضع نفس الكود فى حدث 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

Book101.xlsm

في 20‏/12‏/2022 at 08:56, كمال على طارق said:

لأ طبعاً لا يمكن فهذه الدالة لا وجود لها الا بنسخة 365 وهذه نسخة بمقابل مادى واشتراك سنوى وشكراَ

السلام عليكم

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

السلام عليكم استاذنا القدير اسناذ ضاحى

بارك الله فيكم وجزاكم خيرا

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

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

شكرا استاذ/محمد ايمن على الفورم الجميل لكن لى طلب هل ممكن تطويع فورم التقويم لكتابة التاريخ على اى خلية فى الشيت اختارها بدلا من الكتابة على فورم اخر

14 ساعات مضت, ضاحي الغريب said:

الملف مش محمي الرسالة من مايكروسوفت اضضط كليك يمين علي الملف ...اتبع كما بالصورة 

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

ان شاء الله نحاول نستفيد ونتفاعل معكم فى المناقشات 

شكرا لكم

السلام عليكم استاذنا الفاضل استاذ ضاحى

القالب لا يفتح معى ويعطينى تلك الرسالة المرفقة رغم انى مفعل امان الماكرو (باستخدم اوفيس365)

مالحل؟

حسنت استاذ ضاحى بارك الله فيك وزادك الله من فضله

وهذا ملفك الاساسى

خلفيتين مائيتين مختلفتين في صفحتين.xls

السلام عليكم اخى الكريم 

تفضل الملف بطريقنين (شيت1-شيت2) لعله يفى بالمطلوب

صورتين مائيتين.xlsx

الملف المعدل لا يعمل على نظام 64بت