با توجه به مشکلات تغییر سایت فایل های پیوست قدیمی غیر قابل استفاده شدند برای آشنایی با کاربرد های تابع آفست به لینک زیر مراجعه کنید
جامـــعه اکســــل ایرانــیـــان
با توجه به مشکلات تغییر سایت فایل های پیوست قدیمی غیر قابل استفاده شدند برای آشنایی با کاربرد های تابع آفست به لینک زیر مراجعه کنید
جامـــعه اکســــل ایرانــیـــان
من هم چنین سوالی دارم و چون تکراری میشد تاپیک ایجاد نکردم
فایل من دو شیت داره و یک شیت باید very hidden بشه و اطلاعات از آن خونده بشه و در شیت دیگر ذخیره بشه
خیلی فوری لازم دارم ممنون میشم سریع پاسخ دهید
شیت data مخفی شده
حل شد
ویرایش توسط نیلوفر66 : 2014/12/26 در ساعت 12:54
با سلام:
لطفا یک فایل نمونه بذارید...که اطلاعات رو از شیت 2 بگیره و در شیت یک نشان بده ولی با تغییر شیت 2 سلول متانظر آن در شیت 1 تغییر نکنه
من یک شیت دارم که اطلاعات یک سلولش رو از شیت 2 با تابع vlookup میگیره...و یک ماکرو هم دارم که پس از چند فرایند اجرا میشه و شیت 2 رو پاک می کنه این باعث میشه سلول من در شیت یک پاک بشه...چکار کنم چه کد یا تابعی استفاده کنم که سلول شیت یک پس از اجرای ماکرو در شیت دو (حذف داده ها در این شیت) همچنان باقی بمونه...در واقع می خوام سلول شیت یک فقط در صورت پر بودن سلول شیت 2 تحت تاثیر آن باشد و در صورت خالی بودن بصورت مستقا عمل کند و پاک نشود...
دانلود فایل
وقتی دکمه بروزرسانی در شیت حسابداری رو بزنیم در شیت بدهکاری میاد بدهکارها رو می نویسه...و حالا اگر عدد وارد شده در سلول A2 شیت بدهکار ها رو در سلول D2 شیت وضعیت شهریه وارد کنیم می بایست عدد بدهکاری رو از شیت بدهکارها کپی کنه و در شیت وضعیت شهریه در سلول g2 کپی کنه...امتحان کنید و ماکرو رو ببینید چی میشه...
...ممنون
ویرایش توسط ACE : 2015/10/02 در ساعت 17:25
با درود
دوست عزیز فایلتون رو دیدم، متاسفانه توضیحاتتون خیلی کلی نوشتین یا حداقل من متوجه هدف و منظورتون نشدم. مثلا اصلا من چیزی به نام عدد بدهکاری پیدا نکردم......!!!!
سلام مجدد:
من یک کد دارم توی شیت وضعیت بدهکارها به شرح زیر:
دوستان توی کد زیر می خوام بعد از دستورکد: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
از شیت بدهکارها از ستون E فایل متناظر فرمان بالا رو در ستون G شیت وضعیت شهریه کپی کنه بعد طبق دستورات زیرکد:If Sheet3.Range("d" & i).Value = Sheet2.Range("A" & J).Value Then
بیاد دیگه مراحل رو انجام بده...هدفم اینه که ستون 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
این کد رو جایگزین می کنم ....باز هم صفر میشه!!!!!!!چرا؟/؟؟؟؟؟
کد:Sheet2.Range("e2").Select Selection.Copy Sheet3.Range("g2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _ :=False, Transpose:=False
من هنوز منتظزم....
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)