[حل شده] کپی کردن یک ستون به انتهای ستون در یک فایل دیگر

[mfr]

باسلام
راهی وجود داره که با زدن یک دکمه بتوان اطلاعات یک ستون رو به انتهای ( ادامه ) یک ستون در یک فایل دیگه کپی کرد .... ترجیحا با ماکرو

[mokaram]

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

Sub aaaa()
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Book2").Activate
    Range("A1").Select
    If Range("a1") = "" Then
        ActiveSheet.Paste
        Windows("Book1").Activate
    Else
        Range("A1").End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Windows("Book1").Activate
    End If
End Sub 

[mfr]

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

[Amir Ghasemiyan]

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

بفرماييد دوست عزيز

Sub Macro1()
    Range("C1:C8").SpecialCells(xlCellTypeConstants, 23).Copy
    Range("A1").End(xlDown).Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub

اگر نياز به راهنمايي دارين بگين تا توضيح بدم

[mfr]

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

[Amir Ghasemiyan]

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

خب اين كدي كه بهتون دادم به انتهاي ستون a اضافه ميكنه ديگه. متوجه منظورتون نميشم
شما اين كد رو اجرا كردين اصلا؟

[mfr]

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

[Amir Ghasemiyan]

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

پس كد رو اشتباه اجرا كردين دوست عزيز
كدي كه خدمتتون ارائه كردم مياد از رنج c1 تا c8 هر سلولي كه داده اي داره كپي ميكنه و به انتهاي ستون a اضافه ميكنه
چيزي ريپليس نميشه

[mfr]

ممنونم جواب داد .... لطف کردین....
اما یه سئوال دیگه
اگر ستون c1 مقدار داشته باشد میخوام d1 همون سطر رو جای دیگه مثلا ستون e اضافه کنه

[Amir Ghasemiyan]

ممنونم جواب داد .... لطف کردین....
اما یه سئوال دیگه
اگر ستون c1 مقدار داشته باشد میخوام d1 همون سطر رو جای دیگه مثلا ستون e اضافه کنه

خب خدا رو شكر
براي چيزي كه ميگين فقط كافيه يك offset اضافه بشه. به اين صورت:

Sub Macro1()
    Range("C1:C8").SpecialCells(xlCellTypeConstants, 23).Offset(0, 1).Copy
    Range("E1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
End Sub

[mfr]

واقعا دستت درد نکنه ... ممنونم ...
اما چرا وقتی سلول e1 و e2 خالی باشه ارور میده ؟

[Amir Ghasemiyan]

واقعا دستت درد نکنه ... ممنونم ...
اما چرا وقتی سلول e1 و e2 خالی باشه ارور میده ؟

خواهش ميكنم. اين كدي كه من دادم بهتون بيس و اساس كدي هست كه شما لازم دارين. براي رفع خطاهاتون بايد كنترل خطا انجام بدين. و مثلا بگين اگر e1 خالي بود تو e1 پيست كن و يا اگر e2 خالي بود بره اونجا پيست كنه. ديگه اين قسمتاي فسقليش با خودتون

[mfr]

بسیار بسیار ممنونم

[Amir Ghasemiyan]

بسیار بسیار ممنونم

خواهش ميكنم
اگه پاسخ سوالتون رو گرفتين لطف كنيد تاپيك رو حل شده كنيد