[حل شده] ایجاد سطر و ستون مشترک در تمام شیت ها

[saboori007a]

با سلام خدمت اساتید گرامی

ما یک فایل اکسل داریم که میخوایم هر وقت در یکی از شیت ها یک ستون مابین جداول یا هرجایی ایجاد کردیم در بقیه شیتها هم اون ستون یا سطر به صورت خودکار در همون منطقه ای که در شیت اول اضافه کردیم اضافه بشه. مثلاً در شیت یک ستونm2 میخوایم یک زیرستون بنام m2b ایجاد کنیم و میخوایم در بقیه شیت ها هم درست در همون منطقه ی ایجاد شده در شیت 1 ایجاد بشه.
یا میخوایم یک ستون و زیرستون جدید در شین یک ایجاد کنیم و در بقیه ی شیت ها هم درست در جای خودش ایجاد بشه.


ممنون میشیم راهنمایی بفرمایید .

[saboori007a]

کسی از اساتید نمیتونه راهنمایی بکنه ؟

[saboori007a]

یعنی هیچکس بلد نیست ؟

[kazamie]

سلام فعلا کدی نوشتم که روی یک صفحه کار می کند اگر کسی می تواند آن را ادامه دهد برای همه صفحات خودم هم روی آن فکر می کنم

[saboori007a]

با تشکر از جناب دکتر کاظمی گرامی

از پاسخ حضرتعالی خیلی ممنون هستیم .
اگر امکانش هست ، سعی مجدد بفرمایید تا مشکل ما حل شود .

[saboori007a]

یعنی تا حالا کسی به این مشکل بر نخورده ؟

[kazamie]

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

- - - Updated - - -

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

سلام در شیت اول هر تعداد ستون یا سطر ایجاد کنید در شیت های دیگر هم ایجاد می شود ولی اگر میخواهید در همه شیت ها وقتی ستون یا سطر ایجاد می شود در بقیه هم ایجاد شود کدی که در شیت اول است را به ThisWorkbook انتقال دهید

[kazamie]

این کد را در thisworkbook کپی کنید و کدی که در شیت 1 هست را حذف کنید

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1048576 Then


If MsgBox("Add columns", vbYesNo) = vbYes Then
Call Macro1
End If
ElseIf Target.Count = 16384 Then
If MsgBox("Add rows", vbYesNo) = vbYes Then
Call Macro2
End If
End If
End Sub

[kazamie]

یعنی تا حالا کسی به این مشکل بر نخورده ؟

ما راه آسان تر را انتخاب میکنیم، همه شیت ها را انتخاب میکنیم و بعد ستون یا ردیف یا داده اضافه و حذف می کنیم در همه شیت ها اعمال میشود

[saboori007a]

سلام و عرض ادب خدمت جناب دکتر کاظمی عزیز

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


ممنون