sam_farh قام بنشر فبراير 7, 2022 مشاركة قام بنشر فبراير 7, 2022 السلام عليكم ورحمه الله وبركاته اخواتي الاعزاء في الملف المرفق مرتبات الموظفين في صفحه بيانات المعادلات غير مرتبطه بالشهر واريد ان اربط المعادله بالشهر واريد كود ترحيل البيانات من صفحه بيانات الي صفحه الترحيل بدون نقل المعادلات الشهر اسفل الاخر هل هذا ممكن وجزاكم الله خيرا مقدما test.xlsb رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر فبراير 8, 2022 الكاتب مشاركة قام بنشر فبراير 8, 2022 الحمد لله استطتعت حل اول جزء وهو ربط المعادله بالتاريخ ويبقي جزء الترحيل فهل اهناك احد يستطيع مساعدتي رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر فبراير 8, 2022 أفضل إجابة مشاركة قام بنشر فبراير 8, 2022 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 3 1 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر فبراير 9, 2022 الكاتب مشاركة قام بنشر فبراير 9, 2022 السلام عليكم استاذ lionheart لوحبيت اخلي الكود يسيب سطر بين كل ترحيل وترحيل اغير ايه في الكود رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 9, 2022 مشاركة قام بنشر فبراير 9, 2022 Try to increase the variable m by two instead of 1 to be like that m = m + 2 1 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر فبراير 9, 2022 الكاتب مشاركة قام بنشر فبراير 9, 2022 جزاك الله خيرا الف شكر 1 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر فبراير 9, 2022 الكاتب مشاركة قام بنشر فبراير 9, 2022 m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 2 lionheart This code is correct 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان