اضافة شيت عميل بمجرد كتابة اسم العميل
7.3 هزار بار بازدید -
2 سال پیش
-
اضافة شيت عميل بمجرد كتابة
اضافة شيت عميل بمجرد كتابة اسم العميل
وترحيل بيانات العملاء من الشيت الرئيسى الى شيت كل عميل منفصل
وترحيل رصيد العميل بالمعادلات فى شيت اسماء العملاء
الكود المستخدم فى الفيديو
Sub insert()
Application.ScreenUpdating = False
lr = Sheets(2).Range("b" & Rows.Count).End(xlUp).Rows.Value
If Sheets(2).Range("b" & Rows.Count).End(xlUp).Rows.Value = Sheets(Sheets.Count).Name Then Exit Sub
Sheets("نموذج").Select
Sheets("نموذج").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = lr
Sheets(Sheets.Count).[d1].Value = lr
Sheets(2).Activate
Range("c" & Cells(Rows.Count, "b").End(xlUp).Row).Formula = "='" & Sheets(Sheets.Count).Name & "'!g13"
Application.ScreenUpdating = True
End Sub
وترحيل بيانات العملاء من الشيت الرئيسى الى شيت كل عميل منفصل
وترحيل رصيد العميل بالمعادلات فى شيت اسماء العملاء
الكود المستخدم فى الفيديو
Sub insert()
Application.ScreenUpdating = False
lr = Sheets(2).Range("b" & Rows.Count).End(xlUp).Rows.Value
If Sheets(2).Range("b" & Rows.Count).End(xlUp).Rows.Value = Sheets(Sheets.Count).Name Then Exit Sub
Sheets("نموذج").Select
Sheets("نموذج").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = lr
Sheets(Sheets.Count).[d1].Value = lr
Sheets(2).Activate
Range("c" & Cells(Rows.Count, "b").End(xlUp).Row).Formula = "='" & Sheets(Sheets.Count).Name & "'!g13"
Application.ScreenUpdating = True
End Sub
2 سال پیش
در تاریخ 1400/12/13 منتشر شده
است.
7,312
بـار بازدید شده