کپی یک محدوده به انتهای لیست

[nikkhah]

دوستان ببخشید یه سوال :
با کد نویسی و vba ... آشنایی ندارم اگر امکان داره راهنمایی کنید (ان شاءالله من هم راه میوفتم )
محدوده ای را اگر بخواهیم به انتهای لیست در شیت بعد کپی پیست کنیم چگونه عمل کنیم که فقط اطلاعات اون محدوده به انتهای لیست اضافه بشه ؟ ( فایل پیوستی )

[mokaram]

با ضبط یه ماکرو ساده می تونید به خواستتون برسید با تحلیل و بررسی کدها هم می تونید کم کم با vba آشنا بشید و شما هم کد بنویسید
از کد زیر استفاده کنید ( به باتون مورد نظر الصاق کنید )


Sub Macro1()
Sheets("Sheet1").Select
Range("B4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("list").Select
Range("A3").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

[nikkhah]

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

Sub Macro1()
Sheets("Sheet1").Select
Range("B4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("list").Select
Range("A3").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

"Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.End(xlDown).Offset(1, 0).Select

[mokaram]

در واقع دو خط ، محدود مورد نظر را که قراره واسه کپی انتخاب بشن را نشونی میده
خط سوم جهت بازنشانی محدود کپی شده شما تو مقصد هست یعنی آخرین خونه ای که پر هست ( تو ستون ) یکی بعدیش را انتخاب میکنه

[nikkhah]

دو تا خط اولی را متوجه شدم با (Ctrl +Shift ) محدوده مورد نظر را کپی کردم ولی خط آخری به خصوص Offset(1, 0).Select
متوجه نشدم در ضبط ماکرو چطور آورده میشه ؟
ممنون میشم اگر توضیحی در این مورد بدید .
با تشکر

[nikkhah]

ببخشید در ماکرو ضبط شده محدوده کپی مجدد در همان محدوده قبلی پیست میشود به نظر شما اشکال در کجاست ؟

[nikkhah]

با تشکر از همه دوستان و کاربران عزیز
و تشکر فراوان از کاربر محترم " abootorab "
بعد از ضبط ماکرو و در پایان تابع " (0,1) offset " را بصورت دستی وارد کردم و مشکل حل شد .
و چه جالب اساتید توضیحات لازم را بیان نموده اند ممنون از همگی

http://forum.exceliran.com/showthread.php/332-%D8%AF%D8%B3%D8%AA%D9%88%D8%B1-%D8%AD%D8%B1%DA%A9%D8%AA-%D9%85%DA%A9%D8%A7%D9%86-%D9%86%D9%85%D8%A7-%D8%A7%D8%B2-%DB%8C%DA%A9-%D8%B3%D8%AA%D9%88%D9%86-%D8%A8%D9%87-%D8%B3%D8%AA%D9%88%D9%86-%D8%AF%DB%8C%DA%AF%D8%B1/page2

http://forum.exceliran.com/showthread.php/196-%D8%B4%D9%86%D8%A7%D8%B3%D8%A7%DB%8C%DB%8C-%D8%A2%D8%AE%D8%B1%DB%8C%D9%86-%D8%B1%D8%AF%DB%8C%D9%81-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA

[nikkhah]

ببخشید حل نشد ( یه مشکل دیگه ) :
محدوده ای که در فایل پیوست کپی میشود چون سلول ها دارای فرمول هستند همه سلول ها پیست میشوند آیا راه حلی هست که بعد از انتخاب محدوده(در ضبط ماکرو ) فقط سلول های که دارای اطلاعات میباشند پیست شوند ؟

[khakzad]

منظورتون اینه اونایی کهفرمول دارن خالی بمونن یا اینکه فقط نتیجه فرمول کپی بشه؟ و فرمول نیاد

[nikkhah]

فقط اون سلول هایی که دارای داده ای هستند کپی شود یعنی سلول هایی که نتیجه فرمول ندارد کپی نشود (سلول های خالی از اطلاعات آورده نشود )
ممنون ببخشید

[khakzad]

متوجه نمیشم!
خب سلول های خالی از اطلاعات که خالی هستن
چه شما کپی کنید و نکنید اون سل مقصد خالی می مونه
واضح تر توضیح بدید لطفا

[nikkhah]

ببخشید
در فایل پیوستی اگر ملاحظه کنید با هر دفعه کپی پیست یه سری سلول های خالی هم کپی میشه که باعث میشه یه فاصله ای( خالی) بین سلول ها ایجاد بشه
ما فقط میخواهیم بار هر دفعه کپی پیست سلولهایی که در آن محدوده دارای عدد یا هر گونه اطلاعات دیگیری هست کپی شوند

[khakzad]

من با این کد ردیف های خالی رو اک کردم
امیدوارم راه های بعهتری هم وجود داشته باشه