[حل شده] جابجایی اطلاعات شیت ها

[exceliran]

سلام. وقت بخیر.
در فایل پیوست در شیت 1 اپراتور در سلول های سبز رنگ دیتا میده و در سلول های زرد رنگ ( هاید شده است ) یک سری محاسبات برروی دیتاها اعمال میشه و سپس اطلاعات زرد رنگ به شیت 2 انتقال پیدا میکنه. مشکلی که هست اینه که ممکنه اپراتور فقط 2 یا 3 ردیف اطلاعات رو پرکنه. ماکرویی که در فایل وجود داره چون محدوده زرد رنگ فرمول هس کل محدوده رو انتقال میده. چطور میشه هوشمند کرد که تاجایی که دیتا وجود داره این کار صورت بگیره؟
سپاس

[iranweld]

فایل پیوست نشده است
چون فایل شما دارای ماکرو میباشد بصورت زیپ شده ضمیمه پست کنید

از کد ذیل نیز میتوانید الگو بگیرید چنانچه دیتای مورد نظر زرد رنگ در ستون A باشد کدهای ذیل آخرین ردیف سلول پر را برای شما بدست میاورد

Sub test()

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

For i = Z To 1 Step -1

If Range("A" & i) <> "" Then

MsgBox i

Exit For

End If

Next

End Sub 

[exceliran]

فایل پیوست شد

[Amir Ghasemiyan]

از این کد استفاده کنید دوست عزیز

Sub Macro1()
For Each c In Range("M5:M11")
    If c.Value = "" Then
        lastrow = c.Row - 1
        Exit For
    End If
Next c
If lastrow > 4 Then
    Range("M5:R" & lastrow).Copy
    Sheets("Sheet2").Range("B1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Sheets("Sheet1").Range("C5:H11").ClearContents
End If
End Sub