I am looking for a macro that will help me with my problem.... Im having
problems with asking this question correctly so please bare with
me€¦. In my workbook I have a worksheet titled €œCMG SA Master€� and six other
sheets €œtest1€�,€� test2€�,€� test3€� etc€¦ now on worksheet €œCMG SA Master€� I
have columns 1 to 300 (this may grow) and rows A:P (this will not grow).
What I need is a Macro that will look at A2 and if it has an €œx€� in it past
the information in A2:P2 into worksheet €œtest1€� if not look at B2 if it has
an €œx€� then do the same on worksheet €œtest2€� if not continue on 4 more time
(C2 €“ test3, D2 test4 etc€¦) now it can have an x in A2 and B2 I would need it
to show up on both sheets €œtest 1 and €œTest2€�. Then go down to the next row
and do the same. See example
A B C D E F G H
1
2 x x Processing Joy
3 x x x access Pro


Header row has already been set up on all the sheets row 1.€¦. Thanks in
advance€¦.

Sub test()
Dim i As Integer
Dim SheetArray(6) As String
Dim SheetRowNo(6) As Integer

For i = 1 To 6
SheetArray(i) = "Test" & i
SheetRowNo(i) = 1
Next i


Dim CurrCol(6) As String
CurrCol(1) = "A"
CurrCol(1) = "B"
CurrCol(1) = "C"
CurrCol(1) = "D"
CurrCol(1) = "E"
CurrCol(1) = "F"

Dim j As Integer
j = 1

i = 2
For i = 1 To 11
For j = 1 To 6
ActiveWorkbook.Sheets("CMG SA Master").Activate
If Cells(i, j) = "X" Then
Cells(i, 1).EntireRow.Copy
Sheets(SheetArray(j)).Activate
Cells(SheetRowNo(j), 1).Select
ActiveSheet.Paste
SheetRowNo(j) = SheetRowNo(j) + 1
End If
Next j
Next i

End Sub

Change 11 in
For i = 1 To 11
to the number of rows you have...
or you can use
Range("A65536").End(xlUp).Row

"Sheeloo" wrote:

Sub test()
Dim i As Integer
Dim SheetArray(6) As String
Dim SheetRowNo(6) As Integer

For i = 1 To 6
SheetArray(i) = "Test" & i
SheetRowNo(i) = 1
Next i


Dim CurrCol(6) As String
CurrCol(1) = "A"
CurrCol(1) = "B"
CurrCol(1) = "C"
CurrCol(1) = "D"
CurrCol(1) = "E"
CurrCol(1) = "F"

Dim j As Integer
j = 1

i = 2
For i = 1 To 11
For j = 1 To 6
ActiveWorkbook.Sheets("CMG SA Master").Activate
If Cells(i, j) = "X" Then
Cells(i, 1).EntireRow.Copy
Sheets(SheetArray(j)).Activate
Cells(SheetRowNo(j), 1).Select
ActiveSheet.Paste
SheetRowNo(j) = SheetRowNo(j) + 1
End If
Next j
Next i

End Sub