بردن خودکار چند سطر از یک شیت به انتهای شیت دیگر

[md14511]

سلام

من یک فایل دارم که دارای 2شیت است،

شیت 1 شامل مثلا 300 سطر است

شیت 2 شامل 4 سطر ثابت

میخوام هردفعه تو شیت 2 توی اون 4 سطر یک سری اطلاعات بریزم و با زدن یک

دکمه خود به خود به آخرین سطر شیت 1 برود...(شیت 1 بشود304 سطر) و به همین ترتیب هر دفعه از شیت 2 در آخرین سطر شیت 1 بریزد

ممنون

[khakzad]

فرستدن ردیف های از یک شیت به شیت دیگر در همان ورکبوک
انتقال اطلاعات به شیت دلخواه

شناسایی آخرین ردیف اطلاعات

به این لینک ها مراجعه کنید.
از مجموعشون میتونید مشکلتون رو حل کنید.
مهم ترین کار پیدا کردن سطر اخر هست. بقیش کپی پیست

موفق باشید

[iranweld]

با سلام

ماکرو ذیل را تست کنید

برای شناسایی آخرین ردیف پر در شیت یک و ستون B از دستور زیر استفاده کنید

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

ماکرو کپی دیتا

Sub TEST()

Z = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row + 1

Sheet2.Select
Range("B2:P5").Select
    Selection.Copy
    Range("B2").Select
    Sheets("Sheet1").Select
    Range("B" & Z & ":P" & Z).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    
    
    Z = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
    For I = 2 To Z
    Range("A" & I).Value = I - 1
    Next I
    
    
    Sheet2.Select
    Range("B2:P5").Select
    Selection.ClearContents
    Range("B2").Select
End Sub 

[md14511]

با سلام

ماکرو ذیل را تست کنید

برای شناسایی آخرین ردیف پر در شیت یک و ستون B از دستور زیر استفاده کنید

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

ماکرو کپی دیتا

Sub TEST()

Z = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row + 1

Sheet2.Select
Range("B2:P5").Select
    Selection.Copy
    Range("B2").Select
    Sheets("Sheet1").Select
    Range("B" & Z & ":P" & Z).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    
    
    Z = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
    For I = 2 To Z
    Range("A" & I).Value = I - 1
    Next I
    
    
    Sheet2.Select
    Range("B2:P5").Select
    Selection.ClearContents
    Range("B2").Select
End Sub 

خیلی ممنون
ولی من نتونستم اجراش کنم
بی زحمت میشه برام فایل بزارید....
واقعا معذرت

[iranweld]

خیلی ممنون
ولی من نتونستم اجراش کنم
بی زحمت میشه برام فایل بزارید....
واقعا معذرت

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

[md14511]

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

خیلی خیلی ممنون
عااالی بود
مرسی