اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مجدى يونس

أوفيسنا
  • Posts

    3,379
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    13

كل منشورات العضو مجدى يونس

  1. الاخوة الاعزاء الاخ / على محمد على والاخ / احمد بدرة والاخ / محمود على شكرا لكم جميعا
  2. فورم جاهز لاضافة البيانات والبحث بثلاث طرق الفيديو
  3. الاخ حمادة عمر ابوسما اخبارك والف شكر الاخ حسين مأمون شكرا لك
  4. فورم ترحيل بيانات للشيت المطلوب عن طريق الMultiPage الفيديو
  5. فورم تغيير لغة الكتابة فى التكست بوكس للغة المطلوبة فورا والبحث باى لغة فيديو 2 الفيديو
  6. الكود 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
  7. تغيير لغة الكتابة فى التكست بوكس للغة المطلوبة فورا فيديو1 الفيديو
  8. وعليكم السلام ورحمة الله وبركاتة شكرالك اخ العيدروس واهلا بعودتك بين اخوانك
  9. فورم ادخال البيانات والتأكد منها للادخال الفيديو
  10. فورم اختيار الصف وترحيل الى شيت اخر الفيديو
×
×
  • اضف...

Important Information