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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





كود ترحيل البيانات مع تغيير إسم الورقة

السلام عليكم ورحمة الله تعالى وبركاته تحية طيبة لكل الإخوان في المنتدى جزاكم الله كل خير المرجو المساعة في إضافة كود vba ..



28-02-2019 01:06 مساء
nakira
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-02-2019
رقم العضوية : 11581
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 0
 offline 

السلام عليكم ورحمة الله تعالى وبركاته
تحية طيبة لكل الإخوان في المنتدى جزاكم الله كل خير
المرجو المساعة في إضافة كود vba في الملف المرفق من أجل إعادة تسمية الأوراق التي يتم تحويلها بالاسم الموجود في الخلية K7
مع تحياتي الخالصة
 
 
  ملفات.rar   تحميل rar مرات التحميل :(24)
الحجم :(153.408) KB







28-02-2019 02:40 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 151
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 25
قوة السمعة : 1285
الاعجاب : 27
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub RenamSheets()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Range("K7") <> "" Then
ws.Name = ws.Range("K7").Value
End If
Next ws
End Sub





28-02-2019 06:50 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
بارك الله فيك أخي الحبيب إبراهيم 
أعتقد أن الأخ صاحب الموضوع يريد التعديل على الكود الموجود بالفعل والذي يقوم بعملية استيراد البيانات ، وكان يجب عليه التوضيح لأي كود يريد التعديل أو العمل عليه
Option Explicit

Sub Test()
    Dim wb          As Workbook
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim myPath      As String
    Dim myFile      As String

    myPath = ThisWorkbook.Path & "\"
    myFile = Dir(myPath & "*.xls*")

    Application.ScreenUpdating = False
        Do While myFile <> ""
            If UCase(myFile) <> UCase(ThisWorkbook.Name) Then
                Set wb = Workbooks.Open(myPath & myFile, False)
    
                For Each ws In wb.Worksheets
                    If IsError(Evaluate("ISREF('[" & ThisWorkbook.Name & "]" & ws.Name & "'!A1)")) Then
                        ws.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
                    End If
                Next ws
                wb.Close SaveChanges:=True
            End If
            myFile = Dir
        Loop
    
        Sheets("Feuil1").Activate
    
        For Each sh In Worksheets
            If sh.Name <> "Feuil1" Then
                sh.Visible = xlSheetHidden
                sh.Name = sh.Range("K7").Value
            End If
        Next sh
    Application.ScreenUpdating = True

    MsgBox "تم تحميل " & ThisWorkbook.Worksheets.Count - 2 & " قسماً"
End Sub





28-02-2019 08:26 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1210
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5709
الاعجاب : 711
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
بارك الله فيكم جميعا وجزاكم الله كل خير



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


01-03-2019 09:44 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
وجزيت خيراً أخي علي بمثل ما دعوت لي وزيادة





02-03-2019 08:35 مساء
مشاهدة مشاركة منفردة [5]
nakira
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-02-2019
رقم العضوية : 11581
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
شكرا جزيلا لكل الإخوة 





03-03-2019 07:35 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
بارك الله فيك أخي الكريم
والحمد لله أن تم المطلوب على خير





01-05-2019 05:38 صباحا
مشاهدة مشاركة منفردة [7]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 551
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 8
قوة السمعة : 867
الاعجاب : 107
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
جزاكم الله خير استاذ ابراهيم واستاذ ياسر على هذا العطاء المستمر

أثارت هذه المشاركة إعجاب: YasserKhalil،




08-06-2019 10:43 صباحا
مشاهدة مشاركة منفردة [8]
رشاد احمد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-01-2019
رقم العضوية : 10992
المشاركات : 20
الجنس : ذكر
تاريخ الميلاد : 13-8-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 3
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
الاستاذ ياسر خليل اينما حل ستجد الابداع , تحيه طيبه وتمنياتى له بتوفيق من الله وصحه وعافيه له ورضا من المولى عز جل 

أثارت هذه المشاركة إعجاب: YasserKhalil،




08-06-2019 09:12 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
بارك الله فيك أخي الكريم رشاد ومشكور على مرورك العطر وكلماتك الطيبة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم لترحيل اى عدد معين من البيانات الى صفحة الترحيلات مجدى يونس
4 63 مجدى يونس
بعض طرق ترحيل البيانات Yasser Elaraby
40 4740 hassona229
ترحيل البيانات الى اى عدد من اوراق العمل من خلال اليوزرفورم DATA ENTRY USERFORM emad ghazi
13 1832 bumraif
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
144 3859 مالك ماريه
طلب المساعدة في ادراج كود لترحيل واستدعاء البيانات foular
2 274 YasserKhalil

الكلمات الدلالية
تغيير ، الورقة ، البيانات ، ترحيل ،


 







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



الساعة الآن 03:41 صباحا

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