مساعدة بكود ترحيل الى عمود المبلغ

[omhamzh]

السلام عليكم اساتذة واهل المنتدى المحترمين

احتاج مساعدة بكود ترحيل بالكتابة المبلغ بالتكست بوكس واضغط ترحيل فيتم الترحيل الى عمود المبلغ

مع خالص دعائى والله العظيم

ترحيل للمبلغ.xlsm

[سليم حاصبيا]

عمود المبلغ يحتوي على اكثر من خلية  اي واحدة تريدين

على كل حال جربي هذا الملف

اذا وجد البرتامج خلية فارغة (قبل احر حلية في اخر صف) يضع البيانات فيها

  مثلاُ :
    الخلية  j4 فارغة  و اخر ضف في  J:J  هو رقم 15

   يقوم البرنامج بوضع الداتا في الخليتين  J4  & I4

Om_hamza_User.xlsm

[omhamzh]

اتقدم بخالص الشكر لحضرتك جدا على كل ما تقدمه والله بميزان حسناتك سيدى المحترم استاذ سليم

ما اريده ابسط من ذلك بكثير اريد الترحيل المبلغ سواء كان هناك اسم او عمود الاسم خالى واريد الترحيل بالترتيب اسفل بعض

يتم الترحيل الى J2ثمj3 وهكذا

بارك الله فيك وحفظك المولى اللهم امين

[ابراهيم الحداد]

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

ضعى هذا الكود فى حدث الفورم

Private Sub CommandButton1_Click()
Dim ws As Worksheet, LR As Long
Set ws = Sheets("æÑÞÉ1")
LR = ws.Range("J" & Rows.Count).End(3).Row + 1
If Not IsEmpty(Me.TextBox1.Value) Then
ws.Cells(LR, "J") = Me.TextBox1.Value
Me.TextBox1.Value = ""
End If
End Sub

 

[omhamzh]

اشكرك استاذ ابراهيم الحداد هذا هو المطلوب كفيت ووفيت زادك الله من فضله

والشكر واصل للاستاذ سليم حفظه الله وبارك الله فيكم اساتذة المنتدى