ترحيل بشرط عدم ترحيل التيكست بوكس الفارغ

[أبو چيداء]

المطلوب بالمرفقات

وشكرا

ترحيل بشرط.rar

[عبدالله باقشير]

السلام عليكم

كل عام وانتم بخير

 

جرب الكود التالي

Private Sub CommandButton1_Click()
LR1 = [A1000].End(xlUp).Row + 1
If Len(Trim(Me.TextBox1)) Then Cells(LR1, 1) = Me.TextBox1
LR1 = [A1000].End(xlUp).Row + 1
If Len(Trim(Me.TextBox2)) Then Cells(LR1, 1) = Me.TextBox2
LR1 = [A1000].End(xlUp).Row + 1
If Len(Trim(Me.TextBox3)) Then Cells(LR1, 1) = Me.TextBox3
End Sub

تحياتي

[الـعيدروس]

السلام عليكم

 

وهذا كود اخر

الى حل العلامه خبور خير

Private Sub CommandButton1_Click()
For Each Tn In Controls
If TypeOf Tn Is MSForms.TextBox _
  And Not IsEmpty(Tn) Then
   Lr = [A1000].End(xlUp).Row + 1
  Cells(Lr, 1) = CStr(Tn)
End If
Next
End Sub

[أبو چيداء]

شكرا لكم

وممكن ايضا ان لا تظهر التيكست بوكس حتى اكتب فى التكسيت بوكس السابقة لها

[إبراهيم ابوليله]

الاخ والاستاذ

عبدالله

العيدروس

كل عام وانت بخير

تمكن فى العمل

بارك الله فيكما