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

[~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 از شیت وضعیت شهریه بعد از کپی شدن و دیگه از شیت بدهکارها فرمان نگیرد ...ممنون

[ACE]

این کد رو جایگزین می کنم ....باز هم صفر میشه!!!!!!!چرا؟/؟؟؟؟؟

Sheet2.Range("e2").Select    Selection.Copy
    Sheet3.Range("g2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
        :=False, Transpose:=False

[ACE]

من هنوز منتظزم....