اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Recommended Posts

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

استخدم هذا الكود

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

 

  • Like 2
  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم 

من فضلكم اريد نسخ معادلات من ملف 1 الى ملف جديد في الاكسال 

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

جزاكم الله خيرا 

 

شارك هذه المشاركه


رابط المشاركه
شارك

شكرا جزيلا اخونا الفاضل الكريم زيزو العجوز

جزاك الله خيرا و احسن الله اليك

 

شارك هذه المشاركه


رابط المشاركه
شارك
في ٢٣‏/٣‏/٢٠١٨ 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

 

شكر استاذي الفاضل على هذا العمل

وجزاك الله كل خيرا وجعل هذا العمل فى ميزان حسناتك

جارى التجربه 

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

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

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان


  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×