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

[Amk]

سلام
بنده یک فایل اکسل برنامه دارم که در آن دو شیت با نام برنامه اصلی و برنامه آنکال دارد و در سلول های c2 تا q2 و c26 تا r26 تاریخ های ماه با رنگ مشخص تعطیلات قید شده است می خواهم عدد و رنگ سلول های c2 تا q2 و c26 تا r26 شیت برنامه اصلی در سلول های c2 تا q2 و c26 تا r26 شیت برنامه آنکال بشیند . لطفا اگر امکان دارد بدون کد vba باشد چون شرط مهم نیست و سلول ها ثابت هستند اگر نشد با همان کد vba راهنمایی کنید با تشکر

[sabzanik]

برای منم سوال هست همین

[kazamie]

سلام این سوال مشابه سوالی است که در تاپیک دیگر جواب داده بودم
به این تاپیک بروید

[Amk]

نه دکتر جان اون دارای شرط بود و یک ردیف در یک شیت بود اما این دو ردیف مجزا و بدون شرط هست فقط می خوام رنگ هاش مثل هم بشه چون vba بلد نیستم نمی تونم طلق اون تایپیک اصلاحش کنم کمکم می کنید لطفا

[kazamie]

فایل پیوست را ببینید

[Amk]

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

Option Explicit


Private Sub Worksheet_Activate()
Dim i As Integer
For i = 3 To 33
Cells(2, i).Interior.Color = Sheets(2).Cells(2, i).Interior.Color
Cells(2, i).Value = Sheets(2).Cells(2, i).Value
Cells(26, i).Interior.Color = Sheets(2).Cells(26, i).Interior.Color
Cells(26, i).Value = Sheets(2).Cells(26, i).Value
Next i
End Sub

[kazamie]

i شماره ستون ها هستند چون روز های ماه ها حداکثر تا ۳۱ روز هستند و روز یک در ستون سوم است بنابراین i از ۳ شروع و تا ۳۳ ادامه دارد for یک حلقه است که متغیر i را تکرار می کند در کد cells عدد اول ردیف و عدد دوم ستون سلول را نشان می دهدvalue مقدار سلول و interior.color رنگ پس زمینه سلول را نشان می دهد next هم مربوط به حلقه است کد های که قبل از آن هستند در این حلقه تکرار می شوند

[Amk]

مثل همیشه عالی دکتر جان خداخیرت بده تشکر از زحماتت