I want to ask vba code to copy paste value the data into multiple worksheets with sheet name.
Thank you
Try it but not work
I want to ask vba code to copy paste value the data into multiple worksheets with sheet name.
Thank you
Try it but not work
Last edited by hacke.r; 01-29-2015 at 11:15 AM.
58 views and no responce.
That will indicate that the question is not clear enough to the foummembers.
Notice my main language is not English.
I appreciate it, if you reply on my solution.
If you are satisfied with the solution, please mark the question solved.
You can add reputation by clicking on the star * add reputation.
I'm sorry, my main language is not English.
Copy sheet "form" from data sheet "data" but copy paste value. => sheet Richards, sheet Jill, Sheet Mary....
Code:PHP Code:
Sub CopyForm()
Dim Arr(), SheetName As String, i As Long
Arr = Sheet2.Range("A1:G12").Value
For i = 1 To UBound(Arr, 1)
If Arr(i, 2) = "" Then Exit Sub
SheetName = Arr(i, 1) 'cot B
If isValidSheetName(SheetName) Then
If Not SheetExists(SheetName) Then
With ActiveWorkbook.Worksheets("Form")
.Copy After:=Sheets(Sheets.Count)
End With
With ActiveSheet
.Name = SheetName
.Range("RowIndex") = i 'C3 sheet Form
End With
End If
End If
Next
Erase Arr
End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks