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

[alieddy0]

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

[kazamie]

سلام آقای دکتر
ممنونم بابت پاسخ گویی تون
امکانش هست نحوه اجرای این ماکرو رو برای بنده توضیح دهید البته اگه براتون مقدور هست.با تشکر

I متغیری است که خودمان تعریف کرده ایم و نوع آن را long از نوع عدد بزرگ قرار داده ایم target سلولی است که فعال است و row ردیف سلول فعال را بدست می آورد
Worksheetfunction برای نوشتن تابع ها استفاده می شود بعد از آن نام تابع می آید که در اینجا counta است range برای آدرس دهی به محدوده سلول ها استفاده می شود وقتی بین دو رنج علامت کاما می گذاریم یعنی محدود بین دو رنج را مشخص کرده ایم از if هم برای شرط استفاده می شود با call و بعد از آن نام ماکرویی که نوشته این اجرا می کنیم

[ayoub.]

سلام آقای دکتر
ممنونم بابت پاسخ گویی تون
امکانش هست نحوه اجرای این ماکرو رو برای بنده توضیح دهید البته اگه براتون مقدور هست.با تشکر

[kazamie]

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

این کد را در فایل پیوست اضافه کردم

[ayoub.]

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

[kazamie]

سلام و عرض ادب
از جواب تون ممنونم
تونستم اجراش کنم
ولی نکته ای که هست اینه که با زدن پرسنلی و فراخوانی مابقی سطر ها به کمک تابع 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

[ayoub.]

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

[kazamie]

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

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

[ayoub.]

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

[generalsamad]

با سلام

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

[ayoub.]

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

[generalsamad]

با سلام
باید به این قسمت بروید
File>Option>Trust Center>Trust Center Setting>Macro Setting
سپس میتوان ماکرو ها را فعال یا با پیغام در نوتیفیکیشن آن را فعال کرد
سپس فایل را بسته و دوباره باز کنید در صورتی که تنظیم روی نوتیفیکیشن بود enable را انتخاب کنید

[ayoub.]

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

[iranweld]

با سلام

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

[ayoub.]

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

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