اذهب الي المحتوي
أوفيسنا

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


omhamzh
إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

Om_hamza_User.xlsm

  • Like 1
رابط هذا التعليق
شارك

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

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

يتم الترحيل الى 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

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information