أكاديمية الصقر للتدريب
(نسخة قابلة للطباعة من الموضوع)
https://excel-egy.com/forum/t6108
أنقر هنا لمشاهدة الموضوع بهيئته الأصلية

تجميع العمود بعد آخر صف
ashraf_hertlion 14-09-2021 04:34 مساء
السلام عليكم ورحمة الله وبركاته
اريد من سيادتكم تجميع الأعمده I & H  من الملف المرفق بعد ترحيل آخر صنف لآخر صف
وهذا هو كود الترحيل المستخدم
Private Sub CommandButton1_Click()
Sheets("items_out").Activate
If TextBox1.Value <> "" And TextBox2.Value <> "" Then
lrow = WorksheetFunction.CountIf(Range("b6:b1000"), TextBox1.Value)
lrow = Range("a" & Rows.Count).End(xlUp).Row
Range("A" & lrow + 1).Value = "=ROW()-5"
Range("b" & lrow + 1).Offset(0, 0).Value = TextBox1.Value
Range("b" & lrow + 1).Offset(0, 1).Value = TextBox8.Value
Range("b" & lrow + 1).Offset(0, 6).Value = TextBox2.Value
Range("b" & lrow + 1).Offset(0, 4).Value = TextBox37.Value
Range("b" & lrow + 1).Offset(0, 5).Value = TextBox30.Value
Range("b" & lrow + 1).Offset(0, 7).Value = TextBox38.Value
Range("b" & lrow + 1).Offset(0, 8).Value = TextBox6.Value
Range("b" & lrow + 1).Offset(0, 2).Value = Format(TextBox7.Value, "yyyy/mm/dd")
Range("b" & lrow + 1).Offset(0, 3).Value = TextBox40.Value
Range("c4").Value = Format(TextBox7.Value, "yyyy/mm/dd  ddd")
Range("J4").Value = TextBox40.Value
End If
End Sub
أرجوا أن أكون قد اوضحت المطلوب ... شاكر جداً لحضارتكم على كل ما تقدموه لنا من معاونه ومساعادات
الموضوع مدموج من مواضيع متعدّدة
 
Combined:
 
أكاديمية الصقر للتدريب

Powered by PBBoard ©Version 3.0.3