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

[ali719]

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

[amir_ts]

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

[LEFT]
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:A18")) Is Nothing Or Target.Count > 1 Then Exit Sub
    Dim ws As Worksheet
    With ThisWorkbook
        Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
        ws.Name = Target.Value
    End With
Sheets(1).Select

End Sub
[/LEFT]