انتقال اطلاعات از یک شیت به شیت دیگر

[sshamedk]

با سلام خدمت دوستان گلم
من میخوام در شیت 1 در دو سلول(مثلاA2و B2)عدد وارد کنم بعد با کلیک روی ماکرو این اعداد به شیت دوم انتقال داده شوند با این وجود که بعد از اینکه اطلاعات انتقال داده شد با پاک کردن اطلاعات شیت 1 اطلاعات شیت دوم تغییر نکند. ممنون میشم از راهنمایی تون

[مجید]

RE: انتقال اطلاعات از یک شیت به شیت دیگر

با سلام خدمت دوستان گلم
من میخوام در شیت 1 در دو سلول(مثلاA2و B2)عدد وارد کنم بعد با کلیک روی ماکرو این اعداد به شیت دوم انتقال داده شوند با این وجود که بعد از اینکه اطلاعات انتقال داده شد با پاک کردن اطلاعات شیت 1 اطلاعات شیت دوم تغییر نکند. ممنون میشم از راهنمایی تون

سلام
با اجازه اساتید

در ظبط ماکرو میتونید از Copy و Paste اطلاعات استفاده کنید

درج عدد

[sshamedk]

RE: انتقال اطلاعات از یک شیت به شیت دیگر

دوست عزیز مجددا سلام
ممنون از راهنماییتون. فرض کنید ما در شیت1 اطلاعات وارد کردیم و با ماکرو آن را به شیت دوم انتقال دادیم. حالا امکانش هست که مجددا در شیت 1 اطلاعات وارد کنیم و با زدن دکمه ماکرو آن را به شیت دوم انتقال داده ولی به جای سلول a1 و b1 آن را به سلول a2 وb2 انتقال دهد(چون سل a1 و b1 پر شده). به طور خلاصه کار ماکرو میخوام اینجور باشه که به سلهای a1وb1k'نگاه کنه اگه پر نبود که اعداد شیت 1 رو اونجا بذار ولی اگه پر بود اونو تو سلهای a2وb2 بذاره
میخوام یه سند حسابداری درست کنم که اطلاعات رو با زدن ماکرو به دفتر روزنامه انتقال بده. کسی میتونه کمکم کنه
بسیار ممنون.

[مجید]

RE: انتقال اطلاعات از یک شیت به شیت دیگر

دوست عزیز مجددا سلام
ممنون از راهنماییتون. فرض کنید ما در شیت1 اطلاعات وارد کردیم و با ماکرو آن را به شیت دوم ....

سلام
اتفاقآ برای من هم یک همچین سوالی پیش اومده اگه به جواب رسیدم حتماً اطلاع میدم

[khakzad]

RE: انتقال اطلاعات از یک شیت به شیت دیگر

بله دوست عزیز
از دستور range("a1").end(xldown) استفاده کنید
با این کد اخرین سلول پر شده رو برای شما پیدا می کنه
بعد از اینکه پیدا کرد میتوونید با OFFSET یک خط پایین تر برید و پیست کنید

[مجید]

RE: انتقال اطلاعات از یک شیت به شیت دیگر

بله دوست عزیز
از دستور range("a1").end(xldown) استفاده کنید
با این کد ا---ین سلول پر شده رو برای شما پیدا می کنه
بعد از اینکه پیدا کرد میتوونید با OFFSET یک خط پایین تر برید و پیست کنید

سلام
میشه راجع به کدی که فرمودید و همینطور OFFSET توضیحی بدید
ممنون

[khakzad]

RE: انتقال اطلاعات از یک شیت به شیت دیگر

سلام
این فایل خدمت شما

[ali.b]

چرا فایلش کار نمیکنه؟

[Ali Parsaei]

چرا فایلش کار نمیکنه؟

چون اين يک موضوع قديمي است، به اخطاري که زير اولين نوشته اين موضوع درج شده دقت کنيد.

[ali.b]

حالا چطور باید به این فایل دسترسی پیدا کرد؟ کلا از سرور پاک شده؟

[~M*E*H*D*I~]

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

جامـــعه اکســــل ایرانــیـــان

[نیلوفر66]

من هم چنین سوالی دارم و چون تکراری میشد تاپیک ایجاد نکردم
فایل من دو شیت داره و یک شیت باید very hidden بشه و اطلاعات از آن خونده بشه و در شیت دیگر ذخیره بشه
خیلی فوری لازم دارم ممنون میشم سریع پاسخ دهید
شیت data مخفی شده

حل شد

[ACE]

با سلام:
لطفا یک فایل نمونه بذارید...که اطلاعات رو از شیت 2 بگیره و در شیت یک نشان بده ولی با تغییر شیت 2 سلول متانظر آن در شیت 1 تغییر نکنه
من یک شیت دارم که اطلاعات یک سلولش رو از شیت 2 با تابع vlookup میگیره...و یک ماکرو هم دارم که پس از چند فرایند اجرا میشه و شیت 2 رو پاک می کنه این باعث میشه سلول من در شیت یک پاک بشه...چکار کنم چه کد یا تابعی استفاده کنم که سلول شیت یک پس از اجرای ماکرو در شیت دو (حذف داده ها در این شیت) همچنان باقی بمونه...در واقع می خوام سلول شیت یک فقط در صورت پر بودن سلول شیت 2 تحت تاثیر آن باشد و در صورت خالی بودن بصورت مستقا عمل کند و پاک نشود...
دانلود فایل
وقتی دکمه بروزرسانی در شیت حسابداری رو بزنیم در شیت بدهکاری میاد بدهکارها رو می نویسه...و حالا اگر عدد وارد شده در سلول A2 شیت بدهکار ها رو در سلول D2 شیت وضعیت شهریه وارد کنیم می بایست عدد بدهکاری رو از شیت بدهکارها کپی کنه و در شیت وضعیت شهریه در سلول g2 کپی کنه...امتحان کنید و ماکرو رو ببینید چی میشه...
...ممنون

[abootorab]

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

[ACE]

سلام مجدد:
من یک کد دارم توی شیت وضعیت بدهکارها به شرح زیر:

Sub Worksheet_Change(ByVal Target As Range)


On Error Resume Next  'skip all run-time errors


 If Not Application.Intersect(Target, Range("d:d")) Is Nothing Then


Application.EnableEvents = False


X = Sheet3.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
y = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row


For i = 1 To X
For J = 1 To y


If Sheet3.Range("d" & i).Value = Sheet2.Range("A" & J).Value Then


Sheet2.Range("e" & J).Value = ""


Sheet2.Range("A" & J).Value = ""


End If
Next J
Next i




 End If
 
Application.EnableEvents = True


On Error GoTo 0


End Sub

دوستان توی کد زیر می خوام بعد از دستور

If Sheet3.Range("d" & i).Value = Sheet2.Range("A" & J).Value Then

از شیت بدهکارها از ستون E فایل متناظر فرمان بالا رو در ستون G شیت وضعیت شهریه کپی کنه بعد طبق دستورات زیر

Sheet2.Range("e" & J).Value = ""

Sheet2.Range("A" & J).Value = ""


End If
Next J
Next i




 End If
 
Application.EnableEvents = True


On Error GoTo 0


End Sub

بیاد دیگه مراحل رو انجام بده...هدفم اینه که ستون G از شیت وضعیت شهریه بعد از کپی شدن و دیگه از شیت بدهکارها فرمان نگیرد ...ممنون