نسخ بيانات من ملف اكسيل الى ملف اخر

أسامة عطاالله · يوليو 30, 2014

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

Private Sub CommandButton1_Click()
Sheets("data").Range("cd9:cd30") = ""
m = ThisWorkbook.Path & "\" & "اغسطس بنوك.xlsm"
 Set wb = Workbooks.Open(m, True, True)
For Each cell In Sheets("كشف بنك 1").Range("dj9:dj30")
If cell <> "" Then
n = cell.Address
If cell.HasFormula Then
m = cell.Formula
Windows("2.xls").Activate
Sheets("data").Range(n) = m
Else
m = cell.Value
Windows("2.xls").Activate
Sheets("data").Range(n) = m
End If
End If
Next
Windows("اغسطس بنوك.xlsm").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

اسف للاطالة وجزاكم الله خيرا

اغسطس 2014.rar

أسامة عطاالله · يوليو 30, 2014

ملف الشهر السابق يوليو

يوليو 2014.rar

أسامة عطاالله · يوليو 30, 2014

اساتذتى الكرام

عملت كود عن طريق التسجيل هل يوجد طريقة لر اسم الملف المراد الاسترداد منة البيانات عن طريق كتابة اسمة في خلية

Sub Macro1()
'
' Macro1 ماكرو
'

'
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("Cd9").Select
    Selection.AutoFill Destination:=Range("Cd9:Cd33")
    Range("Cd9:Cd33").Select
    ActiveWindow.SmallScroll Down:=33
    Range("Cd46").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("Cd46").Select
    Selection.AutoFill Destination:=Range("Cd46:Cd70")
    Range("Cd46:Cd70").Select
    ActiveWindow.SmallScroll Down:=33
    Range("Cd85").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("Cd85").Select
    Selection.AutoFill Destination:=Range("Cd85:Cd109")
    Range("Cd85:Cd109").Select
    ActiveWindow.SmallScroll Down:=33
    Range("Cd125").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("Cd125").Select
    Selection.AutoFill Destination:=Range("cd125:cd149")
    Range("Cd125:Cd149").Select
    ActiveWindow.SmallScroll Down:=36
    Range("Cd166").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("Cd166").Select
    Selection.AutoFill Destination:=Range("cd166:cd190")
    Range("Cd166:Cd190").Select
    ActiveWindow.SmallScroll Down:=33
    Range("Cd207").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("Cd207").Select
    Selection.AutoFill Destination:=Range("cd207:cd231")
    Range("Cd207:Cd231").Select
    ActiveWindow.SmallScroll Down:=39
    Range("Cd247").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("Cd247").Select
    Selection.AutoFill Destination:=Range("cd247:cd271")
    Range("Cd247:Cd271").Select
    ActiveWindow.SmallScroll Down:=36
    Range("Cd286").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd286").Select
    Selection.AutoFill Destination:=Range("cd286:cd310")
    Range("cd286:cd310").Select
    ActiveWindow.SmallScroll Down:=27
    Range("cd325").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd325").Select
    Selection.AutoFill Destination:=Range("cd325:cd349")
    Range("cd325:cd349").Select
    ActiveWindow.SmallScroll Down:=33
    Range("cd364").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd364").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd364").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd364").Select
    Selection.AutoFill Destination:=Range("cd364:cd388")
    Range("cd364:cd388").Select
    Range("cd387").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd386").Select
    ActiveWindow.SmallScroll Down:=6
    Range("cd403").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd403").Select
    Selection.AutoFill Destination:=Range("cd403:cd427")
    Range("cd403:cd427").Select
    ActiveWindow.SmallScroll Down:=33
    Range("cd442").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd442").Select
    Selection.AutoFill Destination:=Range("cd442:cd466")
    Range("cd442:cd466").Select
    ActiveWindow.SmallScroll Down:=36
    Range("cd481").Select
    ActiveCell.FormulaR1C1 = "='[يوليه خزينة.xlsm]كشف خزنة 1'!RC78"
    Range("cd481").Select
    Selection.AutoFill Destination:=Range("cd481:cd505")
    Range("cd481:cd505").Select
    ActiveWindow.SmallScroll Down:=36
End Sub

اسم الملف يوليه خزينة. هذا يختلف عن شهر لشهر اى بمعنى ان في الملف القادم تكون اغسطس خزينة

وهكذا لباقى الشهور هل يوجد حل لهذة المشكلة

لكم جزيل الشكر والتقدير

تم تعديل يوليو 30, 2014 بواسطه أسامة عطاالله

**احمدزمان** · يوليو 30, 2014

السلام عليكم

كل عام و انتم بخير

اخي الفاضل

لتعديل الكود السابق لنقل القيم و ليس الدوال

Private Sub CommandButton1_Click()
Sheets("data").Range("cd9:cd30") = ""
m = ThisWorkbook.Path & "\" & "????? ????.xlsm"
 Set wb = Workbooks.Open(m, True, True)
For Each cell In Sheets("??? ??? 1").Range("dj9:dj30")
If cell <> "" Then
n = cell.Address
m = cell.Value
Windows("2.xls").Activate
Sheets("data").Range(n) = m
End If
Next
Windows("????? ????.xlsm").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

**احمدزمان** · يوليو 30, 2014

لاحظ

تعديل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ الى اللغة العربية بالكوووود

أسامة عطاالله · يوليو 31, 2014

اشكرك استاذى الفاضل

تم نقل بيانات الملف بنجاح

لو سمحت ممكن شرح هذا الكود

واطمع في كرمك لو تلقى نظرة على الكود الذى تم تسجيلة من قبلى لان الملف كبير وبه عدد الترحيلات الموجودة في الكود المسجل

شكرا جزيلا لتعب حضرتك

أسامة عطاالله · يوليو 31, 2014

استاذى الفاضل / احمدزمان

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

اريد شرح للكود لكى افهمة واعرف اطبق على الملف الخاص بى

هذا هو رابط الكود

http://www.officena.net/ib/?showtopic=39478

تم تعديل يوليو 31, 2014 بواسطه أسامة عطاالله

**احمدزمان** · يوليو 31, 2014

السلام عليكم و رحمة الله وبركاته

اخي الفاضل

شاهد الموضوع على الرابط التالي

http://www.officena.net/ib/index.php?showtopic=38355

وهو احد ابداعات مدير الموقع الأستاذ الفاضل محمد طاهر

وهو نموذج لتجميع البيانات من ملفات اكسل

قد تجد به ما تريد

ومن ناحية اخرى

وحول الملف الرابط الذي ارفقته يمكننا عمل ملف خاص لنقل ماتريد مباشرة

أسامة عطاالله · يوليو 31, 2014

شكرا لردك اخى الفاضل واستاذى العزيز

بالنسبة للبرنامج الخاص بالاستاذ محمد قيم فعلا

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

مثل الملف الذى تكرمت بة في مشاركة لك والتى في المشاركة التالية

http://www.officena....showtopic=39478

ولكن حاولت اطبق الكود على ملفى وفشلت لو تكرمت مساعدتى في هذا او شرح كيفية تطبيق هذا الكود على ملفى

ولك جزيل الشكر والتقدير

تسجيل الدخول

نسخ بيانات من ملف اكسيل الى ملف اخر

الردود الموصى بها

أسامة عطاالله

رابط هذا التعليق

شارك

أسامة عطاالله

رابط هذا التعليق

شارك

أسامة عطاالله

رابط هذا التعليق

شارك

احمدزمان

رابط هذا التعليق

شارك

احمدزمان

رابط هذا التعليق

شارك

أسامة عطاالله

رابط هذا التعليق

شارك

أسامة عطاالله

رابط هذا التعليق

شارك

احمدزمان

رابط هذا التعليق

شارك

أسامة عطاالله

رابط هذا التعليق

شارك

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information