مجدى يونس قام بنشر أكتوبر 28, 2019 مشاركة قام بنشر أكتوبر 28, 2019 فورم التنقل عبر الصفحات وترحيل البيانات بطريقة بسيطة الفيديو 3 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 28, 2019 مشاركة قام بنشر أكتوبر 28, 2019 أحسنت استاذ مجدى ..جزاك الله كل خير وأحسن الله اليك 3 رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر أكتوبر 28, 2019 الكاتب مشاركة قام بنشر أكتوبر 28, 2019 واحسن الله اليك للمتابعة 1 رابط هذا التعليق شارك More sharing options...
احمد غانم قام بنشر أكتوبر 29, 2019 مشاركة قام بنشر أكتوبر 29, 2019 بارك الله جهودك استاذ مجدي رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر أكتوبر 29, 2019 الكاتب مشاركة قام بنشر أكتوبر 29, 2019 الف شكر اخ احمد غانم 1 رابط هذا التعليق شارك More sharing options...
بحر الحزن قام بنشر أكتوبر 29, 2019 مشاركة قام بنشر أكتوبر 29, 2019 من الحقائق الثابتة أنّك تستطيع أن تنجح بسرعة وبأفضل طريقة، عندما تساعد الآخرين على النجاح. أسأل الله العظيم ان يوفقك ويجعل دربك في الحياه درب النجاح والإنجاز و طريقاً مزدهر وجميل ويحوي كل ما هو سعيد لك ولأحبائك ويحقق طموحاتك ويجعل كل الصعاب يُسْرَا رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر أكتوبر 29, 2019 الكاتب مشاركة قام بنشر أكتوبر 29, 2019 جذاك الله كل خير ولك مثله 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 1, 2019 مشاركة قام بنشر نوفمبر 1, 2019 السلام عليكم ورحمة الله وبركاته استاذ مجدي بارك الله فيك على هذه المواضيع والاعمال الهادفه التعليمية جعلها الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 2, 2019 الكاتب مشاركة قام بنشر نوفمبر 2, 2019 وعليكم السلام ورحمة الله وبركاتة شكرالك اخ العيدروس واهلا بعودتك بين اخوانك 1 رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 3, 2019 الكاتب مشاركة قام بنشر نوفمبر 3, 2019 الكود 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 رابط هذا التعليق شارك More sharing options...
رشاد احمد قام بنشر نوفمبر 20, 2019 مشاركة قام بنشر نوفمبر 20, 2019 جزاك الله خير استاذنا الكريم رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 20, 2019 الكاتب مشاركة قام بنشر نوفمبر 20, 2019 الف شكر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.