مجدى يونس

مسابقة دينية للاجابة عليها من اربع خيارات الفيديو

الف شكر

الف شكر اخ على

مسابقة للعمليات الحسابية وفورم الاجابة صحيحة وفورم الاجابة خاطئة الفيديو

الاخ محمد حمادة الكود بسيط ومش محتاج الملف تعلم من الفيديو

الف شكر اخ على

شكرا لك

فورم البحث بثلاث طرق وفى عدد من العواميد الفيديو

الاخ رشراش اعتمد على الفيديو للتعلم

ياعزيزى الفورم موجود بالاكسل والكود لاستدعائة اسفل الفيديو وبالفيديو طريقة استدعائة

عفوا

وبارك فيك اخ على وكل عام وانت بخير

فورم بحث فى جميع بيانات الجدول بطريقة بسيطة الفيديو

وبارك فيك شكرا

الاخوة الاعزاء الاخ / على محمد على والاخ / احمد بدرة والاخ / محمود على شكرا لكم جميعا

فورم جاهز لاضافة البيانات والبحث بثلاث طرق الفيديو

الاخ حمادة عمر ابوسما اخبارك والف شكر الاخ حسين مأمون شكرا لك

وبارك فيك اخ على

فورم ترحيل بيانات للشيت المطلوب عن طريق الMultiPage الفيديو

وبارك فيك اخ على

فورم تغيير لغة الكتابة فى التكست بوكس للغة المطلوبة فورا والبحث باى لغة فيديو 2 الفيديو

الكود Private Sub CommandButton1_Click() Dim erow As Long Worksheets("magdi").Activate rrow = Worksheets("magdi").Cells(1, 1).CurrentRegion.Rows.Count + 1 Sheets(1).Activate lrow = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lrow + 1).Value = TextBox1 Range("a" & lrow + 1).Offset(0, 0).Value = TextBox1.Value Range("a" & lrow + 1).Offset(0, 1).Value = TextBox2.Value Range("a" & lrow + 1).Offset(0, 2).Value = TextBox3.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" End Sub Private Sub CommandButton2_Click() Dim erow As Long Worksheets("yonis").Activate rrow = Worksheets("yonis").Cells(1, 1).CurrentRegion.Rows.Count + 1 Sheets(2).Activate lrow = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lrow + 1).Value = TextBox1 Range("a" & lrow + 1).Offset(0, 0).Value = TextBox1.Value Range("a" & lrow + 1).Offset(0, 1).Value = TextBox2.Value Range("a" & lrow + 1).Offset(0, 2).Value = TextBox3.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" End Sub Private Sub CommandButton3_Click() Unload Me End Sub Private Sub CommandButton4_Click() Dim erow As Long Worksheets("mahmoud").Activate rrow = Worksheets("mahmoud").Cells(1, 1).CurrentRegion.Rows.Count + 1 Sheets(3).Activate lrow = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lrow + 1).Value = TextBox1 Range("a" & lrow + 1).Offset(0, 0).Value = TextBox1.Value Range("a" & lrow + 1).Offset(0, 1).Value = TextBox2.Value Range("a" & lrow + 1).Offset(0, 2).Value = TextBox3.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" End Sub

الف شكر اخ على

تغيير لغة الكتابة فى التكست بوكس للغة المطلوبة فورا فيديو1 الفيديو

شكرا اخ ناصر سعيد