excelnoobhere
Board Regular
- Joined
- Mar 11, 2019
- Messages
- 61
the code below basically takes information from the main page creates new sheets and pastes them into separate sheets depending on the content of A.
it starts pasting them on row 6. it pastes them in the following order
A into A
B into B
O into C
how can I get it to go into the following order on the new sheets?
A into B
B into D
O into C
it starts pasting them on row 6. it pastes them in the following order
A into A
B into B
O into C
how can I get it to go into the following order on the new sheets?
A into B
B into D
O into C
Code:
[/COLOR]Sub CopyToNewTempSheet()
'define varibales
Dim Cl As Range
Dim Uniq As String
Dim Ky As Variant
Dim Ws As Worksheet
Set Ws = Sheets("Master")
Ws.AutoFilterMode = False
With CreateObject("scripting.dictionary")
For Each Cl In Ws.Range("A3", Ws.Range("A" & Rows.Count).End(xlUp))
If IsNumeric(Left(Cl, 5)) Then
Uniq = Mid(Cl, 6, 4)
If Uniq <> "" Then .Item(Uniq) = Empty
End If
Next Cl
For Each Ky In .Keys
Ws.Range("A2:O2").AutoFilter 1, "*" & Ky & "*"
'use template and copy it
Sheets("Template").Select
Sheets("Template").copy After:=Sheets(Sheets.Count) 'before:=Sheets(3)
Sheets("Template (2)").Name = Ky
Intersect(Ws.AutoFilter.Range.EntireRow, Ws.Range("A:A,B:B,O:O")).copy Range("A6")
Next Ky
Ws.AutoFilterMode = False
End With [COLOR=#333333]End Sub[/COLOR][COLOR=#333333]