انشاء نموذج

[ahmed1987]

السلام عليكم اخواني اريد انشاء نموذج ما مثلا عند اضافة شيت جديد بدل ما يطلع شيت فارغ يعطيني نموذج الذي نريده اتمنى ان وصلت لكم الفكرة وشكرا على المساعدة

[ياسر خليل أبو البراء]

أخي الكريم أحمد ...

أهلاً بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية .....

******************************                                                                                                                                                          .

إليك الملف المرفق التالي فيه ورقة عمل باسم Template تعتبر ورقة عمل كنموذج يمكنك نسخه .. ويتم النسخ إلى أي عدد من الأوراق طبقاُ للقائمة في ورقة عمل باسم List أي أن الماكرو يقوم بإنشاء أوراق عمل لكل القائمة ..                                                                                                      

Sub CopyTemplate()
    Dim LastRow As Long
    Dim Rng As Range
    Dim Ws As Worksheet
    
    Application.ScreenUpdating = False
    
        LastRow = Sheets("List").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        
        For Each Rng In Sheets("List").Range("A2:A" & LastRow)
            Set Ws = Nothing
            
            On Error Resume Next
                Set Ws = Worksheets(CStr(Rng))
            On Error GoTo 0
            
            If Ws Is Nothing Then
                Sheets("Template").Copy After:=Sheets(Sheets.Count)
                ActiveSheet.Name = CStr(Rng)
            End If
        Next Rng
        
    Application.ScreenUpdating = True
End Sub

وإليك الملف المرفق عله يفي بالغرض ..

للتنفيذ قم بالضغط على Alt + F8 لتظهر لك قائمة الإجراءات اختر الإجراء وانقر على Run

تقبل تحياتي

حمل من هنا

 

[ناصرالمصرى]

السلام عليكم

عمل رائع اخى ابو البراء

والاروع ان تجعل مرفقاتك هنا

دون الرجوع لروابط خارجية

شاكر فضلك

[ياسر خليل أبو البراء]

أخي الكريم عبد الوهاب ناصر

بارك الله فيك وجزاك الله كل خير ..

هل سيكون الانتظار لمدة 5 ثواني أمر مرهق بالنسبة لك .. ربما يستغرق مني الحل في كثير من الأحيان أكثر من ربع ساعة أو ربما أكثر في بعض الحالات ..

فهل كثير علي أن تنتظرني لـ 5 ثواني فقط ..

تقبل تحياتي

[ahmed1987]

بارك الله فيك اخي العزيز ابو البراء