ثبت آخرین تغییرات

[SIGNAL]

سلام دوستان
اطلاعات من در شیت ذخیره شده
شیت اول اطلاعات را بصورت مرحله ای وارد میکنم
در شیت دوم میخام آخرین تغییرات را مشاهده کنم
طبق فایل پیوست
کسی اگه بتونه کمک کنه ممنون میشم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

سلام دوستان
اطلاعات من در شیت ذخیره شده
شیت اول اطلاعات را بصورت مرحله ای وارد میکنم
در شیت دوم میخام آخرین تغییرات را مشاهده کنم
طبق فایل پیوست
کسی اگه بتونه کمک کنه ممنون میشم

سلام دوست عزیز
اگر درست متوجه سوالتون شده باشم این کد جواب شما رو میده:

Sub Macro1()


For i = 3 To 7


    last = Sheet1.Range("A2").End(xlToRight).Column
    If Cells(i, last) <> "" Then
        q = last - 1
    Else
        q = Sheet1.Cells(i, last).End(xlToLeft).Column - 1
    End If
    w = q / 4
    Sheet1.Range(Cells(i, q - 2), Cells(i, q + 1)).Copy
    Sheet2.Cells(i, 2).PasteSpecial Paste:=xlPasteValues
    Sheet2.Cells(i, 6) = w
Next i
End Sub

فایل نمونه خودتون رو پیوست کردم

[SIGNAL]

با تشکر از اینکه زحمت کشیدید وجواب دادید
منظورم دقیقأ همین بود ولی فایل خطا میده

[Amir Ghasemiyan]

با تشکر از اینکه زحمت کشیدید وجواب دادید
منظورم دقیقأ همین بود ولی فایل خطا میده

چه خطایی میده؟
فایل رو ببندید باز کنید ببینین بازم خطا داره یا نه

[SIGNAL]

خطای زیر مشاهده شد

[Amir Ghasemiyan]

خطای زیر مشاهده شد

دوست عزیز کد زیر رو جایگزین کنید لطفا

Sub Macro1()
Dim z(3) As Variant
For i = 3 To 7
    last = Sheet1.Range("A2").End(xlToRight).Column
    If Cells(i, last) <> "" Then
        q = last - 1
    Else
        q = Sheet1.Cells(i, last).End(xlToLeft).Column - 1
    End If
    w = q / 4
    For j = 0 To 3
        z(j) = Cells(i, q - 2 + j)
        Sheet2.Cells(i, j + 2) = z(j)
    Next
    Sheet2.Cells(i, 6) = w
Next i
End Sub