حواديت قام بنشر نوفمبر 19, 2018 مشاركة قام بنشر نوفمبر 19, 2018 عندى شيت اسمها العملاء مجمع فيها اسماء العملاء كلها بنسب خصمهم ينفع لما اضيف عميل جديد الاكسيل يعمل ادراج لصفحه جديد ببيانات العميل رابط هذا التعليق شارك More sharing options...
حواديت قام بنشر نوفمبر 19, 2018 الكاتب مشاركة قام بنشر نوفمبر 19, 2018 16 دقائق مضت, حواديت said: عندى شيت اسمها العملاء مجمع فيها اسماء العملاء كلها بنسب خصمهم ينفع لما اضيف عميل جديد الاكسيل يعمل ادراج لصفحه جديد ببيانات العميل مستنى ردكم درورى رابط هذا التعليق شارك More sharing options...
حواديت قام بنشر نوفمبر 19, 2018 الكاتب مشاركة قام بنشر نوفمبر 19, 2018 22 دقائق مضت, حواديت said: عندى شيت اسمها العملاء مجمع فيها اسماء العملاء كلها بنسب خصمهم ينفع لما اضيف عميل جديد الاكسيل يعمل ادراج لصفحه جديد ببيانات العميل مستنى ردكم درورى مسحوبات.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 19, 2018 مشاركة قام بنشر نوفمبر 19, 2018 جرب هذا الكود Option Explicit Sub creat_shett() Dim i%, t, m% Dim x%: x = Application.CountA(Sheets("Principal").Range("A:A")) + 1 For i = 3 To x t = Sheets("Principal").Range("a" & i) On Error Resume Next m = Len(Sheets(t).Name) On Error GoTo 0 If m = 0 Then '===========================================================' Sheets("Main").Copy After:=Sheets(Sheets.Count) With ActiveSheet .Name = Sheets("Principal").Range("a" & i) .Range("a1") = .Name End With '===========================================================' End If m = 0 Next Sheets("Principal").Select End Sub الملف مرفق مسحوبات.xlsm 1 رابط هذا التعليق شارك More sharing options...
حواديت قام بنشر نوفمبر 19, 2018 الكاتب مشاركة قام بنشر نوفمبر 19, 2018 20 دقائق مضت, سليم حاصبيا said: جرب هذا الكود Option Explicit Sub creat_shett() Dim i%, t, m% Dim x%: x = Application.CountA(Sheets("Principal").Range("A:A")) + 1 For i = 3 To x t = Sheets("Principal").Range("a" & i) On Error Resume Next m = Len(Sheets(t).Name) On Error GoTo 0 If m = 0 Then '===========================================================' Sheets("Main").Copy After:=Sheets(Sheets.Count) With ActiveSheet .Name = Sheets("Principal").Range("a" & i) .Range("a1") = .Name End With '===========================================================' End If m = 0 Next Sheets("Principal").Select End Sub الملف مرفق مسحوبات.xlsm متشكر لزوقك تمام يا باشا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.