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

[ali719]

سلام
من می خوام هر شیتی جدیدی ایجاد کردیم در ستون d اضافه گردد. برای اینکار باید در سلولهای ستون D چه فرمولی بنویسم

[iranweld]

با سلام

از کدهای ذیل در قسمت ماکرونویسی شیت مورد نظر استفاده کنید

Private Sub Worksheet_Activate()

Range("d1:d" & Cells(Rows.Count, "d").End(xlUp).Row).ClearContents

For I = 1 To Sheets.Count

Range("d" & I) = Sheets(I).Name

Next

End Sub