Excel VBA 복사본 템플릿 워크 시트

Question

저는 VBA 놈들이며 과제를 완료해야합니다.

템플릿 워크 시트를 복사하여 자동으로 복사하고 싶습니다.
여기

Sub CopyTemplate() 
    Dim myCell As Range, MyRange As Range, Orange As Range 
    Set MyRange = Sheets("Isolation Section").Range("B24") 
    Set MyRange = Range(MyRange, MyRange.End(xlDown)) 
    Set Orange = Sheets("Isolation Section").Range("D24") 
    Set Orange = Range(MyRange, MyRange.End(xlDown)) 

    Application.ScreenUpdating = False 
    For Each myCell In MyRange 
     Sheets("Template").Copy After:=Sheets(Sheets.Count) 
     With myCell 
      ActiveSheet.Name = .Value 
      ActiveSheet.Range("A13").Value = .Value 
      ActiveSheet.Range("E13").Value = Orange.Value 
      .Parent.Hyperlinks.Add Anchor:=myCell, Address:="", SubAddress:= _ 
       "'" & .Text & "'!B24", TextToDisplay:=.Text 
     End With 
    Next myCell 
    Application.ScreenUpdating = True 
End Sub 

내가 템플릿 시트 템플릿라는이 .. 내가 웹에서 얻을, 나는 지금 붙어있는 무슨이다.
복사본을 만들고 템플릿 시트를 만들고 각 행 다음에 격리 섹션 (반복문)의 이름을 지정합니다.
그런 다음 셀 데이터 행 B24을 셀의 A13 셀에 넣습니다.
하지만 어떻게 E13 새 워크 시트 셀 의 각 시트에 복사 절연 제에서 셀 데이터 행 D24 어떻습니까?

이미지 : 내 영어 나쁜 경우 ..

죄송합니다

이

Answer 1

이 시도 :

For Each mycell In MyRange 
    Sheets("Template").Copy After:=Sheets(Sheets.Count) 
    With ActiveSheet 
     .Name = mycell 
     .Range("A1").Value = mycell.value 
     .Range("E1").Value = mycell.Offset(0, 1).Value 
    End With 
    mycell.Parent.Hyperlinks.Add Anchor:=myCell, Address:="", SubAddress:= _ 
     "'" & mycell.Text & "'!B24", TextToDisplay:=mycell.Text 
Next 

Answer 2

귀하의 설명은 매우 명확하지 않다, 그러나 다만 사용하는 것이 문제를 해결하는 가장 쉬운 방법 매크로 레코더 및 복사하여 코드를 붙여 넣습니다.

여기 만드는 방법에 대한 마이크로 소프트의 사이트/하나를 삭제 : http://office.microsoft.com/en-us/excel-help/create-or-delete-a-macro-HP010342374.aspx

가끔 매크로를 작성하고 당신이 코딩에 대해 뭔가를 알고, 당신은 그냥 같이 매크로 기록을 몇 접착제 및 작업 매크로를 가질 수 있습니다. .. 실제로 표준화되어 있습니다. 행운을 빕니다.