JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

الاكسيل VBA | كود خطير جدا | ترحيل البيانات من اليوزرفورم الى شيت الاكسيل اتوماتيكيا بدون ازرار ترحيل

 

بسم الله الرحمن الرحيم 

اهلا بكم منابعى موقع عالم الاوفيس

كود مهم جدا من اكواد الاكسيل VBA 



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

فى هذا المقال سوف نقوم بحل مشكلة احد الاصدقاء الذى يطلب ان يتم ترحيل البيانات من خلال التكست بوكس بدون ازرار ترحيل 

سوف يتم عمل هذا الكود كالاتى:-

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

lr = Cells(Rows.Count, 1).End(xlUp).Row + 1

a = 8

If Len(Me.TextBox3) = a Then

Range("a" & lr).Value = Me.TextBox1.Value

Range("b" & lr).Value = Me.TextBox2.Value

Range("c" & lr).Value = Me.TextBox3.Value

MsgBox "Done"

Me.TextBox1 = ""

Me.TextBox2 = ""

Me.TextBox3 = ""

Exit Sub

Else

MsgBox "Number Mustbe 8 number"

End If

 

End Sub

 

 وبهذا نكون قد انتهينا من كتابة كود اليوم لو استفدت من الكود اعمل لايك وشير على وسائل التواصل الاجتماعى 

لتحميل ملف العمل 

 


الاسمبريد إلكترونيرسالة