چرا بعد از کپی یا کات و پیست، وقتی مبدأ را پاک میکنم، رنج کپی شده هم پاک می شود؟

[karbar]

با سلام
چرا بعد از کپی یا کات و پیست، با کد زیر

Set rng = Sheet_hazer.Range(Cells(2, 10), Cells(3, 12))
            rng.Select
            rng.Copy
            Cells(2, 13).Select
            Sheet_hazer.PasteSpecial
            Sheet_hazer.Range(Cells(2, 10), Cells(3, 10)).Value = ""

وقتی در خط آخر، مبدأ را پاک میکنم، رنج کپی شده هم پاک می شود؟
با تشکر قبلی

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[M_ExceL]

با سلام
چرا بعد از کپی یا کات و پیست، با کد زیر

Set rng = Sheet_hazer.Range(Cells(2, 10), Cells(3, 12))
            rng.Select
            rng.Copy
            Cells(2, 13).Select
            Sheet_hazer.PasteSpecial
            Sheet_hazer.Range(Cells(2, 10), Cells(3, 10)).Value = ""

وقتی در خط آخر، مبدأ را پاک میکنم، رنج کپی شده هم پاک می شود؟
با تشکر قبلی

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

[karbar]

سلام،
ضمن تشکر از توجه و پاسخ شما
سوال اینجاست که حتی اگر به فرمایش شما، من مقصد را هم پاک می کنم، پس چرا همزمان، مبدأ هم پاک می شود؟

[Amir Ghasemiyan]

سلام دوست عزيز
من كد شما رو تست كردم. بدون مشكل داره كار ميكنه. شايد كد ديگه اي داريد كه همزمان با اين كد كار ميكنه. اگر فايلتون رو بذاريد بهتر ميشه بررسي كرد