Copy کردن یک sheet با محدوده معین به انتهای شیت ها

[nikkhah]

با سلام
یک محدوده معین از یک شیت الگو را اگر بخواهیم در شیت جدید کپی کنیم به چه شکل باید عمل کنیم ؟
و اینکه بعد از ایجاد sheet جدید ،نام شیت به فهرست هم اضافه گردد ؟
و آیا با توابع امکان پذیر هست ؟( بدون vba)

[iranweld]

با سلام

برای محدوده مورد نظر که بایستی بصورت یکسان در شیت جدید کپی شود، یک نام تعریف کنید (Define name) در فایل پیوست محدوده مورد نظر به نام jadval تعریف گردیده است سپس کد ذیل را در ماکرو خود قرار دهید که پس از ایجاد شیت این محدوده در سلول مورد نظر کپی گردد

 [jadval].Copy Destination:=.Range("b1") 

ماکرو ایجاد شیت

Private Sub CommandButton1_Click()

With ActiveWorkbook.Worksheets.Add(After:=Sheets(Worksheets.Count)) 'add a sheet'
          ' .Name = range("A2").value ' name of sheet
          
          ActiveSheet.DisplayRightToLeft = True
          
            [jadval].Copy Destination:=.Range("b1")
           
          
        End With
        
        ListSheets
        
        End Sub 

ماکرو لیست کردن نام شیت و ایجاد لینک برای شیت مورد نظر

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("فهرست").Select

Sheets("فهرست").Range("g1:g100").Clear

For Each ws In Worksheets

Sheets("فهرست").Cells(x, 7).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!g1", TextToDisplay:=ws.Name

x = x + 1

Next ws

End Sub