ربط معادله بتاريخ مع طلب كود ترحيل

[sam_farh]

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

اخواتي الاعزاء في الملف المرفق مرتبات الموظفين في صفحه بيانات المعادلات غير مرتبطه بالشهر واريد ان اربط المعادله بالشهر

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

هل هذا ممكن وجزاكم الله خيرا مقدما

test.xlsb

[sam_farh]

الحمد لله استطتعت حل اول جزء وهو ربط المعادله بالتاريخ ويبقي جزء الترحيل 

فهل اهناك احد يستطيع مساعدتي

 

[lionheart]

Sub Test()
    Dim ws As Worksheet, sh As Worksheet, r As Long, m As Long, n As Long
    Application.ScreenUpdating = False
        Set ws = Sheet1: Set sh = Sheet4
        m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
        n = m
        For r = 5 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            If ws.Cells(r, 1).Value <> "" And ws.Cells(r, 1).Value <> ws.Range("A4").Value Then
                sh.Cells(m, 1).Resize(, 12).Value = ws.Cells(r, 1).Resize(, 12).Value
                m = m + 1
            End If
        Next r
        sh.Range("A" & n - 2 & ":L" & n - 1).Copy
        sh.Range("A" & n & ":L" & m - 1).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[sam_farh]

السلام عليكم استاذ lionheart لوحبيت اخلي الكود يسيب سطر بين كل ترحيل وترحيل اغير ايه في الكود

[lionheart]

Try to increase the variable m by two instead of 1 to be like that

m = m + 2

 

[sam_farh]

جزاك الله خيرا الف شكر

[sam_farh]

 m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 2

lionheart 

This code is correct