การ loop รายชื่อพนักงาน

[Daboynut]

อยากให้ช่วยแนะนำการปรับ code หน่อยครับ จากcode ด้านล่างผมต้องการให้ loopทีละ 1 คนไปเป็น 5 คน ควรปรับตรงไหนบ้างครับ

Code: Select all

Sub Addsheets()
    Dim ws As Worksheet
    Dim worksh As Integer
    Dim worksheetexists As Boolean
    Dim s As String

    s = ActiveSheet.Cells(3, 4).Value
    worksh = Application.Sheets.Count
    worksheetexists = False

    For x = 1 To worksh

        If Worksheets(x).Name = s Then
            worksheetexists = True
            MsgBox s & ", already Exists"
            Exit For
        End If

    Next x
    If worksheetexists = False Then
        Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
                .Name = s
                Sheets("Interface").Activate
      ActiveSheet.Range("D2:F3").Select
      Selection.copy
      Application.Goto Reference:=Worksheets(s).Range("A1")
      Selection.PasteSpecial Paste:=xlPasteValues, Paste:=xlPasteformat
      Selection.NumberFormat = "m/d/yyyy""  ""h\:mm\:ss AM/PM"
      Columns("A:A").ColumnWidth = 26
    End If
End Sub

ไฟล์ตัวอย่างครับ >>>

Timetest.xlsm

module addsheetนะครับ

[snasui]

อ่านแล้วไม่เข้าใจ กรุณาอธิบายเพิ่มว่า Loop ตรงไหน อย่างไร เดิมเป็นอย่างไร ต้องการให้เป็นอย่างไร จะได้สะดวกในการทำความเข้าใจครับ

[Daboynut]

อ่านแล้วไม่เข้าใจ กรุณาอธิบายเพิ่มว่า Loop ตรงไหน อย่างไร เดิมเป็นอย่างไร ต้องการให้เป็นอย่างไร จะได้สะดวกในการทำความเข้าใจครับ
[/q
ขออภัยครับ ของเดิมการทำงานคือ เมื่อกดจะสร้างชื่อชีท พร้อม copy ข้อมูลไปไว้ในชื่อใหม่ , เมื่อกดอีกครั้งถ้าเจอชื่อซ้ำ ก็จะ copy ข้อมูลไปยังชื่อที่ตรงกันครับ ต้องการทำเพิ่มจาก 1 รายชื่อเป็น 5 รายชื่อครับและสามารถ loop ข้อมูลให้ copy ไปยังชื่อชีทที่ตรงกันครับ

Module Add_Data ครับ รบกวนด้วยนะครับ

[snasui]

ช่วยทำตัวอย่างคำตอบที่ต้องการมาด้วยจะได้สะดวกในการทำความเข้าใจครับ