Snasui Excel Forum

Sub Copier2()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")

For numtimes = 1 To x
ActiveWorkbook.Sheets("IQ").Copy _
After:=ActiveWorkbook.Sheets("IQ")
ActiveSheet.Name = Worksheets("sheet1").Range("A" & numtimes).Value
Max = ActiveSheet.UsedRange.Rows.Count - 0
Row = 2
Range("B2").Select
Do
If Cells(Row, 9) Like ActiveSheet.Name Then
Row = Row + 1
Else
Cells(Row, 2).EntireRow.Delete
Max = Max - 1
End If

Loop Until Row >= Max
ActiveSheet.Name = Worksheets("sheet1").Range("B" & numtimes).Value
Worksheets("sheet1").Range("C" & numtimes).Value = Range("N" & Row)
Next

End Sub

ช่วยแนบไฟล์เอ็กเซลมาให้เพื่อน ๆ ช่วยกันดูครับ

อ้อ...ช่วยวางโค้ดให้เป็นโค้ดด้วยตามกฎข้อ 5 ด้านบนของเพจนี้ครับ