إنشاء صفحات متعددة لكل عميل من العملاء أو أصناف المخزن بضغطة زر واحدة

تصميم شيت مخزن وعمل شيتات لكل أصناف المخزن بضغطة زر واحدة عمل صفحات متعددة لكل العملاء بضغطة زر واحدة كود بسيط لإنشاء عدد كبير من أوراق العمل فى خطوة واحدة رابط شرح المعادلات الدوال المستخدمة فى تصميم شيت النموذج    • الترحيل من شيت الى شيت آخر حسب اسم العميل ...   رابط فيديو إضافة شيت عميل بمجرد كتابة اسم العميل    • اضافة شيت عميل بمجرد كتابة اسم العميل   رابط فيديو تنبيه تلقائي بانتهاء تاريخ مستندات مع فتح الكمبيوتر    • تنبيه تلقائي بانتهاء تاريخ مستندات بمجرد ف...   الكود المستخدم فى الشرح Sub copy() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If Sheets("الاصناف").Range("b" & Rows.Count).End(xlUp).Value لاتساوى Sheets(Sheets.Count).Name Then For x = Range("b4").Row To Range("b" & Rows.Count).End(xlUp).Row Sheets("نموذج").Select Sheets("نموذج").copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).[e2].Value = Sheets("الاصناف").Range("b" & x).Value Sheets(Sheets.Count).Name = Sheets("الاصناف").Range("b" & x).Value Sheets("الاصناف").Range("c" & x).Formula = "=" & "'" & Sheets(Sheets.Count).Name & "'" & "!g23" Sheets("الاصناف").Range("d" & x).Formula = "=" & "'" & Sheets(Sheets.Count).Name & "'" & "!h23" Next x Sheets("الاصناف").Select Else MsgBox ("راجع البينات") Application.ScreenUpdating = True End If Application.Calculation = xlCalculationAutomatic End Sub