فورم التنقل عبر الصفحات وترحيل البيانات بطريقة بسيطة

[مجدى يونس]

فورم التنقل عبر الصفحات وترحيل البيانات بطريقة بسيطة

 

الفيديو

 

[Ali Mohamed Ali]

أحسنت استاذ مجدى ..جزاك الله كل خير وأحسن الله اليك

[مجدى يونس]

واحسن الله اليك للمتابعة

[احمد غانم]

بارك الله جهودك استاذ مجدي

[مجدى يونس]

الف شكر اخ احمد غانم

[بحر الحزن]

من الحقائق الثابتة أنّك تستطيع أن تنجح بسرعة وبأفضل طريقة، عندما تساعد الآخرين على النجاح.

أسأل الله العظيم ان يوفقك ويجعل دربك في الحياه درب النجاح والإنجاز و طريقاً مزدهر وجميل ويحوي كل ما هو سعيد لك ولأحبائك ويحقق طموحاتك ويجعل كل  الصعاب يُسْرَا 

[مجدى يونس]

جذاك الله كل خير ولك مثله

[الـعيدروس]

السلام عليكم ورحمة الله وبركاته

استاذ مجدي بارك الله فيك على هذه المواضيع

والاعمال الهادفه التعليمية جعلها الله في ميزان حسناتك

 

[مجدى يونس]

وعليكم السلام ورحمة الله وبركاتة

شكرالك  اخ العيدروس

واهلا بعودتك بين اخوانك

[مجدى يونس]

الكود

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

 

[رشاد احمد]

جزاك الله خير استاذنا الكريم

[مجدى يونس]

الف شكر