ابو حمادة قام بنشر مارس 22, 2018 مشاركة قام بنشر مارس 22, 2018 ملف الارشيف : Data.rar ملف العمل : تجربة.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مارس 23, 2018 مشاركة قام بنشر مارس 23, 2018 السلام عليكم ورحمة الله استخدم هذا الكود Sub Date_To_Test() Dim wbDate As Workbook, wbTest As Workbook Dim Pat As String Dim LR As Long, LS As Long Application.ScreenUpdating = False Set wbTest = ThisWorkbook Pat = wbTest.Path & "\" Set wbDate = Workbooks.Open(Pat & "Data" & ".xlsb") Dim ws As Worksheet, Sh As Worksheet Set ws = wbDate.Sheets("add") Set Sh = wbTest.Sheets("add") LR = Sh.Range("B" & Rows.Count).End(xlUp).Row LS = ws.Range("B" & Rows.Count).End(xlUp).Row Sh.Range("B" & LR + 1).Resize(LS - 5, 115).Value = _ ws.Range("B6:DL" & LS).Value wbDate.Close False Application.ScreenUpdating = True End Sub 2 1 رابط هذا التعليق شارك More sharing options...
صقرقريش89 قام بنشر مارس 24, 2018 مشاركة قام بنشر مارس 24, 2018 السلام عليكم من فضلكم اريد نسخ معادلات من ملف 1 الى ملف جديد في الاكسال المشكلة انه عند نسخ المعدلات تظهر لي في الملف الجديد بعنوانها في الملف الاول جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 24, 2018 مشاركة قام بنشر مارس 24, 2018 شكرا جزيلا اخونا الفاضل الكريم زيزو العجوز جزاك الله خيرا و احسن الله اليك رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مارس 24, 2018 مشاركة قام بنشر مارس 24, 2018 السلام عليكم ورحمة الله و فيك بركة اخى الكريم احمد شرفنى مرورك العطر رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر مارس 25, 2018 مشاركة قام بنشر مارس 25, 2018 جزاك الله خيرا استاذ زيزو يحفظك ربنا رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مارس 25, 2018 مشاركة قام بنشر مارس 25, 2018 السلام عليكم ورحمة الله بارك الله فيك اخى الكريم ناصر رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر مارس 25, 2018 الكاتب مشاركة قام بنشر مارس 25, 2018 في ٢٣/٣/٢٠١٨ at 10:47, زيزو العجوز said: السلام عليكم ورحمة الله استخدم هذا الكود Sub Date_To_Test() Dim wbDate As Workbook, wbTest As Workbook Dim Pat As String Dim LR As Long, LS As Long Application.ScreenUpdating = False Set wbTest = ThisWorkbook Pat = wbTest.Path & "\" Set wbDate = Workbooks.Open(Pat & "Data" & ".xlsb") Dim ws As Worksheet, Sh As Worksheet Set ws = wbDate.Sheets("add") Set Sh = wbTest.Sheets("add") LR = Sh.Range("B" & Rows.Count).End(xlUp).Row LS = ws.Range("B" & Rows.Count).End(xlUp).Row Sh.Range("B" & LR + 1).Resize(LS - 5, 115).Value = _ ws.Range("B6:DL" & LS).Value wbDate.Close False Application.ScreenUpdating = True End Sub شكر استاذي الفاضل على هذا العمل وجزاك الله كل خيرا وجعل هذا العمل فى ميزان حسناتك جارى التجربه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.