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

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


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





نقل بيانات ورقة عمل الى ملف اخر مغلق

الساده الافاضل بعد التحيه محتاج اعمل نقل بيانات من الملف الرئيسي test الى ملفين اخريين مغلقيين (يعني مش لازم افتحهم) بمج ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


14-01-2022 11:09 صباحا
روان احمد
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2022
رقم العضوية : 23583
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 1-9-1980
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 23
 offline 

الساده الافاضل
بعد التحيه
محتاج اعمل نقل بيانات من الملف الرئيسي test الى ملفين اخريين مغلقيين (يعني مش لازم افتحهم)
بمجرد  الضغط على زر abk من اليوزر فورم يروح ينقل الجدول من ورقة عمل abk بنفس التنسيق بتاعه فى الملف الرئيسي test الى ملف abk المغلق
وبمجرد الضغط على زر Transfer  Financial من اليوزر فورم يروح ينقل الجدول من ورقة عمل payroll بنفس التنسيق بتاعه فى الملف الرئيسي test ولكن هنا هينقل من الخليه D3 الى الخليه AM3
 مع الشكر
 
 
  test.rar   تحميل rar مرات التحميل :(8)
الحجم :(12.386) KB
  Transfer Financial.rar   تحميل rar مرات التحميل :(5)
الحجم :(6.138) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم
بعد إذن أخي العزيز حسونة

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

عموماً جرب الكود التالي الذي يتعامل مع زر الأمر ABK الموجود في اليوزرفورم حيث بالنقر على هذا الزر سيقوم الكود بفتح الملف المرتبط به وهو في نفس مسار الملف الحالي والمسمى ABK ثم يقوم بنسخ النطاق المطلوب إلى ورقة العمل الهدف في الملف المغلق والمسماة Bank في أول خلية فارغة بنفس التنسيق
ادرس الكود جيداً وطبقه على الطلب الثاني بنفسك لتتعلم لأن الهدف من المنتدى تعليمي وليس خدمي
Private Sub CommandButton2_Click()
    Dim sh As Worksheet, r As Range
    Application.ScreenUpdating = False
        Workbooks.Open ThisWorkbook.Path & "\abk.xlsm"
        Set sh = ActiveWorkbook.Worksheets(1)
        sh.DisplayRightToLeft = False
        With ThisWorkbook.Worksheets("ABK")
            With .Range("B2:E7")
                Set r = sh.Cells(sh.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count)
                r.Value = .Value
                .Copy: r.PasteSpecial Paste:=xlPasteFormats
                Application.CutCopyMode = False
            End With
        End With
        sh.Parent.Close True
    Application.ScreenUpdating = True
    MsgBox "ABK Table Copied Successfully", 64
End Sub
عرض الإجابة




15-01-2022 10:21 صباحا
مشاهدة مشاركة منفردة [1]
روان احمد
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2022
رقم العضوية : 23583
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 1-9-1980
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 23
 offline 
look/images/icons/i1.gif نقل بيانات ورقة عمل الى ملف اخر مغلق
اخى الكريم خالد
اشكرك علي مرورك واعتذر عن الرفع الخطاء
الملف بالمرفق الرئيسي بالمرفق
وشاكر ليك جدا محاولة المساعده
اشكرك اخى الكريم بارك الله فيك وجعله فى ميزان حسناتك
 
 
  test.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(57.867) KB
  Transfer Financial.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(8.332) KB
  abk.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(8.668) KB


15-01-2022 12:40 مساء
مشاهدة مشاركة منفردة [2]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif نقل بيانات ورقة عمل الى ملف اخر مغلق
السلام عليكم ورحمة الله وبركاته وبها نبدأ 
امسح الاكواد في اليوزرفورم
وضع هذه الاكواد مكانها


Option Explicit
Private Sub CommandButton1_Click()
    Dim wb As Workbook, ws As Worksheet, SH As Worksheet, lr As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set SH = ThisWorkbook.Worksheets("payroll")
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "Transfer  Financial.xlsx", , False)
    SH.Copy After:=wb.Worksheets(wb.Worksheets.Count)
    lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
    ActiveSheet.Range("a1:AM" & lr).Value = ActiveSheet.Range("a1:AM" & lr).Value
    wb.Close True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
    Dim wb As Workbook, ws As Worksheet, SH As Worksheet, lr As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Transfer_Non_Adjacent_Columns_Using_Arrays_YasserKhalil_ExcelEgy
    Set SH = ThisWorkbook.Worksheets("abk")
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "abk.xlsm", , False)
    SH.Copy After:=wb.Worksheets(wb.Worksheets.Count)
    lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
    ActiveSheet.Range("a1:AM" & lr).Value = ActiveSheet.Range("a1:AM" & lr).Value
    wb.Close True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton6_Click()
Unload Me
End Sub
Sub Transfer_Non_Adjacent_Columns_Using_Arrays_YasserKhalil_ExcelEgy()
    Dim ws As Worksheet, SH As Worksheet
    Dim arr As Variant, i As Variant, cr As Variant, j As Long, lr As Long
    Set SH = ThisWorkbook.Worksheets("payroll")
    Set ws = ThisWorkbook.Worksheets("abk")
    arr = SH.Range("b3:am" & SH.Cells(Rows.Count, 1).End(xlUp).Row).Value2
    cr = Array(2, 3, 4)
    '    lr = ws.Cells(Rows.Count, 2).End(xlUp).Row + 1
    For Each i In Array(2, 1, 38)
'        ws.Cells(lr, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i)
        ws.Cells(3, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i)
        j = j + 1
    Next i
End Sub

15-01-2022 03:00 مساء
مشاهدة مشاركة منفردة [3]
روان احمد
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2022
رقم العضوية : 23583
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 1-9-1980
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 23
 offline 
look/images/icons/i1.gif نقل بيانات ورقة عمل الى ملف اخر مغلق
استاذ حسونه
بارك الله في حضرتك وتسلم ايدك ربنا يجعله في ميزان حسناتك احسنت العمل
ولكن استاذن حضرتك الكود اشتغل معايا تمام 
بس نقل ورقة عمل ال Payroll بتنقل الورقه كامله وانا محتاج اعدل الكود انه ينقل  الجدول من D1:Am ودة موجود فعلا بالكود لكن عند التنفيذ بيتم نقل الجدول كامل
وبخصوص نقل جدول ال ABK بيتم النقل تمام ولكن بيضرب كل المعدلات اللى فى ورقة العمل الاصليه وبينقل الاسماء من ورقة عمل Payroll
لو استاذن حضرتك
بالنظر مره اخرى على الكود لانى بصراحه مش عارفه افهمه 
علي اساس انه 
1- يقوم بنسخ الجدول من Payroll وتصديره الى ملف  Transfer Financial المغلق بداية من ("D1:AM") بنفس تنسيق الجدول في الشيت الاساسي وبدون التاثير علي المعادلات
2- يقوم بنسخ الجدول من  ABK وتصديره الى ملف ABK المغلق بداية من ("B1:E") بنفس تنسيق الجدول فى الشيت الاساسي وبدون التاثير على المعادلات
واشكرك على اهتمامك وبارك الله في حضرتك وتسلم ايدك

16-01-2022 07:15 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نقل بيانات ورقة عمل الى ملف اخر مغلق
السلام عليكم
بعد إذن أخي العزيز حسونة

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

عموماً جرب الكود التالي الذي يتعامل مع زر الأمر ABK الموجود في اليوزرفورم حيث بالنقر على هذا الزر سيقوم الكود بفتح الملف المرتبط به وهو في نفس مسار الملف الحالي والمسمى ABK ثم يقوم بنسخ النطاق المطلوب إلى ورقة العمل الهدف في الملف المغلق والمسماة Bank في أول خلية فارغة بنفس التنسيق
ادرس الكود جيداً وطبقه على الطلب الثاني بنفسك لتتعلم لأن الهدف من المنتدى تعليمي وليس خدمي
Private Sub CommandButton2_Click()
    Dim sh As Worksheet, r As Range
    Application.ScreenUpdating = False
        Workbooks.Open ThisWorkbook.Path & "\abk.xlsm"
        Set sh = ActiveWorkbook.Worksheets(1)
        sh.DisplayRightToLeft = False
        With ThisWorkbook.Worksheets("ABK")
            With .Range("B2:E7")
                Set r = sh.Cells(sh.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count)
                r.Value = .Value
                .Copy: r.PasteSpecial Paste:=xlPasteFormats
                Application.CutCopyMode = False
            End With
        End With
        sh.Parent.Close True
    Application.ScreenUpdating = True
    MsgBox "ABK Table Copied Successfully", 64
End Sub

16-01-2022 09:09 صباحا
مشاهدة مشاركة منفردة [5]
روان احمد
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2022
رقم العضوية : 23583
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 1-9-1980
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 23
 offline 
look/images/icons/i1.gif نقل بيانات ورقة عمل الى ملف اخر مغلق
استاذى الفاضل ياسر خليل 
بارك الله فى عمرك وتسلم ايدك الحمد لله اشتغل معايا بشكل جيد وكل ده بفضل الله ثم حضرتك ثم الاستاذ حسونه
كامل الشكر والاحترام والتقدير لحضراتكم وربنا يجعله فى ميزان حسانتكم وديما بنتعلم من حضرتك
واسف على الاطاله ولكن الكود ده هيساعدنى بشكل كبير جدا فى عملى
اشكركم 
وجزاكم الله عنا خيرا

16-01-2022 11:00 صباحا
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif نقل بيانات ورقة عمل الى ملف اخر مغلق
وعليكم السلام ورحمة الله وبركاته 
استاذنا الغالى ابو البراء 
لا تحتاج الى اي استئذان ربنا يبارك فيك ويسعدك 


الصفحة 1 من 2 < 1 2 > الأخيرة »


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


 










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

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