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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


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



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





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

السلام عليكم ورحمة الله تعالى وبركاته تحية طيبة لكل الإخوان في المنتدى جزاكم الله كل خير المرجو المساعة في إضافة كود 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 مرات التحميل :(25)
الحجم :(153.408) KB







28-02-2019 02:40 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 153
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 26
قوة السمعة : 1300
الاعجاب : 33
 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
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 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
المشاركات : 1377
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 56
قوة السمعة : 6256
الاعجاب : 928
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
بارك الله فيكم جميعا وجزاكم الله كل خير



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


01-03-2019 09:44 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 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
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
بارك الله فيك أخي الكريم
والحمد لله أن تم المطلوب على خير





01-05-2019 05:38 صباحا
مشاهدة مشاركة منفردة [7]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 571
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 8
قوة السمعة : 930
الاعجاب : 137
 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
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif كود ترحيل البيانات مع تغيير إسم الورقة
بارك الله فيك أخي الكريم رشاد ومشكور على مرورك العطر وكلماتك الطيبة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل البيانات من ملف اكسل الى ملف اخر ياحبيبي يامحمد
0 8 ياحبيبي يامحمد
فورم التنقل عبر الصفحات وترحيل البيانات بطريقة بسيطة مجدى يونس
2 87 مجدى يونس
فورم ترحيل بيانات الى الشيت المختار وطباعة البيانات مجدى يونس
5 139 مجدى يونس
فورم اظهار البيانات وترحيل وحذف البيان والبحث من خلال الكمبو بوكس فيديو2 مجدى يونس
6 176 مجدى يونس
فورم اظهار البيانات وترحيل وحذف البيان والبحث فيديو1 مجدى يونس
4 145 مجدى يونس

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


 







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



الساعة الآن 08:43 صباحا

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