موضع ترحيل خلية من ملف الى اخر وهي خلية التاريخ

[صالح احمد المريسي]

اتنمنى من حضراتكم مساعدتي ولكم جزيل الشكر وبارك الله فيكم 

 

عندي ملفين احتاج عند كل ترحيل يرحل التاريج على كل سطر  في الملف يوجد توضيح Desktop.rar 

تم تعديل أغسطس 2, 2015 بواسطه sa20109000
تعديل كلمة

[ياسر خليل أبو البراء]

أخي الفاضل

أهلا ومرحباً بك في المنتدى

من المفترض أن يتم شرح المطلوب بشكل أكثر تفصيلاً ولكن لأني عملت على مثل هذا الكود من قبل فقد أدركت المطلوب ....

 

يرجى الإطلاع على موضوع التوجيهات للأعضاء الجدد في الموضوعات المثبتة في المنتدى ويرجى تغيير اسم الظهور للغة العربية

إليك الكود التالي عله يفي بالغرض

Sub TransferDataToClosedWB()
    On Error Resume Next
    Dim WB As Workbook
    Dim LR_A As Long, LR_B As Long
    Dim Answer As Long
    LR_A = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 8, 9, Cells(Rows.Count, 1).End(xlUp).Row)

    Application.ScreenUpdating = False
        ThisWorkbook.Sheets("Sheet1").Range("B9:K" & LR_A).Copy
        Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & "اكسل2.xlsm")
    
        With WB.Sheets("Sheet1")
            LR_B = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 2, 3, Cells(Rows.Count, 1).End(xlUp).Row + 1)
            .Range("A" & LR_B).PasteSpecial xlPasteValues
            .Range("L" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("F6").Value
            .Range("M" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("B4").Value
        End With
    
        On Error GoTo 0
    WB.Close SaveChanges:=True
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "سجل إعجاب بهذا" ..

Desktop V2.rar

[صالح احمد المريسي]

ربنا يحفظك ماقصرت 

[سيد السويسى]

أريد طريقة لجمع عدة مدد مثلاً : من تاريخ 1/1/2000 وحتى 5/2/2002 ثم جمع فترة اخرى عليها مثلا من 5/5/2005 وحتى 2/11/2008 ثم جمع فتره أخرى عليها مثلا من 1/5/2011 وحتى 21/8/2015 أى احتساب المدة التى قضاها الشخص بجمع الفترات بين التواريخ السابقة