تغییرات در یک workbookو اعمال این تغییرات هم زمان در یک workbook دیگر

**حسام بحرانی** · 2019/02/13, 03:01

سلام
این سؤال رو قبلاً هم پرسیده بودید و تاپیک قبلی حذف شد.

اگر بیشتر توضیح بدید بهتر میشه راهنمایی تون کرد. بعنوان مثال آیا قصد دارید قسمتی از اطلاعات یک فایل را به فایلی دیگر انتقال بدید و یا

منظور شما اینه که دقیقاً دو Workbook رو به یکدیگر متصل کنید.

**ayoub.** · 2019/02/13, 20:31

سلام و خسته نباشید
بله مورد دوم مد نظر هست یعنی اگه مثلا در اولی بالفرض علی به لیست اعضا اضافه بشه در دومی هم علی اضافه بشه!هر تغییر در سلول workbook اولی در دومی هم همون تغییر ایجاد بشه...

**ayoub.** · 2021/12/14, 13:02

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

فايل هاي پيوست شده

فایل های پیوست شده

**iranweld** · 2021/12/14, 14:46

با سلام

فعلا در یک وروک بوک بررسی کنید

فایل های پیوست شده

اطلاعات.xls (60.0 کیلو بایت, مشاهدات 13)

**ayoub.** · 2021/12/19, 10:42

سلام برادر خطا میده!
ممنون می شم بیشتر توضیح بدید ه کاری که زحمتشو کشید دقیقا چه کار می کنه

فایل های پیوست شده

**ayoub.** · 2021/12/20, 13:27

سلام متاسفانه نتونستم استفاده کنم بازم همون خطا رو میده!
ممنون می شم در صورت امکان توضیح بدهید. با تشکر

**generalsamad** · 2021/12/20, 22:11

با سلام

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

**ayoub.** · 2022/01/10, 12:47

سلام و عرض خدا قوت
متاسفانه تغییرات اعمال نمیشه!
ممنون می شم راهنمایی بفرمایید. با تشکر

فایل های پیوست شده

**kazamie** · 2022/01/10, 13:03

نوشته اصلی توسط ayoub.

سلام و عرض خدا قوت
متاسفانه تغییرات اعمال نمیشه!
ممنون می شم راهنمایی بفرمایید. با تشکر

سلام من پست های بالا را دیدم چرا پسوند فایل xls است باید xlsm یا xlsb باشد تا بتواند ماکرو ها را اجرا کند ALT+F11 را بزنید اگر فایل تان داری کد هست یکبار دیگر آن را با پسوند xlsmذخیره کنید

**ayoub.** · 2022/01/11, 10:15

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

**kazamie** · 2022/01/11, 11:08

نوشته اصلی توسط ayoub.

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

سلام من فایل را ندیدم اما اگر می خواهید ماکرو بدون دکمه و با ایجاد هر تغییر اجرا شود در رویداد change همین صفحه ماکرو نوشته شده را call کنید و برای اینکه با تغییر هر سلولی ماکرو اجرا نشود می توانید شرط بگذارید که وقتی سطر کامل شد ماکرو اجرا شود

- - - Updated - - -

کد:

Private Sub Worksheet_Change(ByVal Target As Range)Dim i As Long
i = Target.Row
If WorksheetFunction.CountA(Range(Range("A" & i), Range("E" & i))) = 5 Then
Call macro1


End If
End Sub