اضافة شيت عميل بمجرد كتابة اسم العميل

اضافة شيت عميل بمجرد كتابة اسم العميل
وترحيل بيانات العملاء من الشيت الرئيسى الى شيت كل عميل منفصل
وترحيل رصيد العميل بالمعادلات فى شيت اسماء العملاء
الكود المستخدم فى الفيديو
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

• #education
• #اضافة_شيت_عميل_بمجرد_كتابة_اسم_العميل
• #ترحيل_بيانات_العملاء_من_الشيت_الرئيس_ال_شيت_كل_عميل_منفصل
• #ترحيل_رصيد_العميل_بامعادلات_ف_شيت_اسماء_العملاء