looking for a macro
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€¦. |
looking for a macro
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 |
looking for a macro
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 |
All times are GMT +1. The time now is 01:02 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com