خرید بک لینک

copy data sheet mabda to sheet maghsad dar row 3 column 2

blank
not blank

LastCount = Sheets("sheet maghsad").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("sheet mabda").Range("savabegh_print").Copy
Sheets("sheet maghsad").Range("B" & LastCount + 1 & ":" & "I" & LastCount + 1).PasteSpecial xlPasteValues
With Sheets("sheet maghsad").Range("B" & LastCount + 1 & ":" & "I" & LastCount + 1).Interior
End With

برچسب: نویسنده: زهرا فلاح تاريخ: پنجشنبه 9 اسفند 1397 ساعت: 0:22

صفحه بندی