تعديل كود ترحيل من خمسة اسطر ليناسب المطلوب

[Hassan Hammoud]

مساعده من الاخوه وأساتذة  VBA تعديل كود   المطلوب موضح في  " شيت 1 "

 ونحن لاهل الخير نكون من الشاكرين ....

 

 

والسلام عليكم

terhil55.rar

[ابراهيم الحداد]

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

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

Sub TTarhil()
Dim ws As Worksheet, sh As Worksheet
Dim LR As Long, LQ As Long
Set ws = Sheets("TD")
Set sh = Sheets("DB1")
LR = ws.Range("H" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
ws.Range("C11:H" & LR).Copy
With sh
LQ = .Range("I" & Rows.Count).End(xlUp).Row + 1
     .Range("D" & LQ).PasteSpecial xlPasteValues
     .Range("B" & LQ) = ws.Range("G3")
     .Range("A" & LQ) = ws.Range("E3")
     .Range("C" & LQ) = ws.Range("E25")
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[Hassan Hammoud]

الأخ الغالي زيزو، انزلت الكود  وجربته وعمل %/ 100 سلمت يداك وزادك الله علماً وجزاك  كل خير. 

اشكرك من كل قلبي انت وكل الأخوه اللذين يساهمون في اثراء هذا المنتدى القيم

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