أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره اكسيل اسئله واجابات


اعلان هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله

السلام عليكم الشيت ده فى كود VBA عبارة عن بمجرد الضغط على الزر يظهر مربع حوارى اضع فيه رقم الشيت الجديد ...... انا عاي ..



28-02-2019 04:05 مساء
بودى مورا
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2017
رقم العضوية : 1111
المشاركات : 58
الجنس : ذكر
تاريخ الميلاد : 20-12-1977
يتابعهم : 12
يتابعونه : 2
قوة السمعة : 69
الاعجاب : 0
 offline 

السلام عليكم الشيت ده فى كود VBA  عبارة عن بمجرد الضغط على الزر يظهر مربع حوارى اضع فيه رقم الشيت الجديد ......  انا عايز لما اضغط عل الزر يفتح لى شيت جديد بحيث يكون نسخه طبق الاصل من الشيت اللى قبله يعنى زى ( MOVE AND COPY)    ..... اشكركم
 
 
  اضافة شيت جديد - Copy.rar   تحميل rar مرات التحميل :(9)
الحجم :(16.139) KB








28-02-2019 06:40 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Option Explicit

Sub NewSheets()
    Dim sheetNumber As String

    sheetNumber = InputBox("برجاء إدخال رقم للشيت الجديد")
    If sheetNumber = "" Then Exit Sub

    With Sheets.Add(After:=Sheets(Sheets.Count))
        .Name = sheetNumber
        Sheets(.Index - 1).Cells.Copy .Cells(1)
    End With
End Sub






28-02-2019 08:32 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 909
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 46
قوة السمعة : 4110
الاعجاب : 58
 Online 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
أحسنت استاذ ياسر بارك الله فيك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



01-03-2019 09:43 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
تسلم أخي العزيز علي ومشكور على مرورك العطر
وما زلت في انتظار موضوعاتك في قسم شروحات الإكسيل (أتظنني نسيت؟؟!)






04-03-2019 04:58 مساء
مشاهدة مشاركة منفردة [4]
بودى مورا
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2017
رقم العضوية : 1111
المشاركات : 58
الجنس : ذكر
تاريخ الميلاد : 20-12-1977
يتابعهم : 12
يتابعونه : 2
قوة السمعة : 69
الاعجاب : 0
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
جزاكم الله خيرا كثيرا وغفر لوالديكم  .. ممكن لو حضرتك تضيف انه فى حالة المستخدم يضع رقم شيت موجود بالفعل يظهر له رسالة رفض لانه الرقم ده موجود مسبقا بمعنى (انا مثلا عندى اخر شيت وليكن رقم10 فعند اضافة شيت جديد وعند وضع رقم الشيت10بالخطاء يظهر تحذير بان رقم شيت ده موجود بالفعل..............وجزاكم الله خيرا وزادكم الله علما وجلعة فى ميزان حسناتكم ...






05-03-2019 07:07 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
وجزيت خيراً أخي الكريم
جرب التعديل التالي عله يفي بالغرض إن شاء الله
Sub NewSheets()
    Dim sheetNumber As String

    sheetNumber = InputBox("برجاء إدخال رقم للشيت الجديد")
    If sheetNumber = "" Then Exit Sub

    If Evaluate("ISREF('" & sheetNumber & "'!A1)") Then MsgBox "Sheet Exists", vbExclamation: Exit Sub
    
    With Sheets.Add(After:=Sheets(Sheets.Count))
        .Name = sheetNumber
        Sheets(.Index - 1).Cells.Copy .Cells(1)
    End With
End Sub






07-03-2019 10:09 صباحا
مشاهدة مشاركة منفردة [6]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 122
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 71
الاعجاب : 10
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
بارك الله فيك يا ابو خليل
جزاك الله خيرا






08-03-2019 08:33 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
وجزيت خيراً أخي الكريم صلاح ومشكور على المرور






17-03-2019 02:34 مساء
مشاهدة مشاركة منفردة [8]
بودى مورا
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2017
رقم العضوية : 1111
المشاركات : 58
الجنس : ذكر
تاريخ الميلاد : 20-12-1977
يتابعهم : 12
يتابعونه : 2
قوة السمعة : 69
الاعجاب : 0
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
اشكر كم  شكر ا جزيلا .... وغفر لكم ولوالديكم ...امين امين امين






17-03-2019 05:33 مساء
مشاهدة مشاركة منفردة [9]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 491
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 701
الاعجاب : 29
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
تسلم ايديك اخى الحبيب واستاذى العزيز ياسر وجزاكم الله خير






18-03-2019 06:39 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif فتح شيت اكسل جديد يكون نسخة طبق الاصل من الشيت اللى قبله
بارك الله فيكم إخواني الكرام وجزيتم خيراً على دعواتكم الطيبة
والحمد لله أن تم المطلوب على خير






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره jjebril
16 105 jjebril
الترحيل من الفورم الي الاكسل في عدة شروط بليغ البتول
3 40 YasserKhalil
فورم اكسل لاستدعاء ملفات pdf مجدى يونس
5 80 khaled alborene
صور بداخل الرسم البيانى بالاكسل مجدى يونس
3 44 YasserKhalil
تعديل ملف اكسل lahbib
6 429 YasserKhalil

الكلمات الدلالية
اكسل ، قبله ، اللى ، الشيت ، الاصل ، نسخة ، يكون ، جديد ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:30 مساء

أعلن هنا
أعلن هنا
أعلن هنا