boothy
05-19-2016, 05:54 AM
Hi All,
Hoping somebody can help with this as ive been tearing my hair out for over a week now:
Im working on two sheets within one workbook, call them "AA" and "RawAA".
Raw data will be put into "RawAA" and if Column K (Heading is "STATUS") does not equal "MATCHED", then i want it to paste the entire row into tab "AA", but I want this data to be pasted in column "I" (Heading is "Name") in tab AA (obviously offset by one for the heading). If this could be set up so that it just lists them in tab "AA" then that would be perfect
This would then also be repeated for "RawBB" and "BB" and also "RawCC" and "CC", but any help for first bit would be great as i will eventually be assigning each an individual macro button, i can navigate around the rest once I have an idea.
Heres a failed previous attempt for you to ponder (/laugh at)
Attempt 1:
Private Sub Workbook_Open()
Dim s1 As Worksheet, s2 As Worksheet
Dim N As Long, i As Long, j As Long
Set s1 = Sheets("RawAA")
Set s2 = Sheets("AA")
N = s1.Cells(Rows.Count, "K").End(xlUp).Row
j = 1
For i = 1 To N
If s1.Cells(i, "K").Value <> "MATCHED" Then
Else
s1.Cells(i, "K").EntireRow.Copy s2.Cells(1, 9)
j = j + 1
End If
Next i
End Sub
Any help would be massively appreciated.
Hoping somebody can help with this as ive been tearing my hair out for over a week now:
Im working on two sheets within one workbook, call them "AA" and "RawAA".
Raw data will be put into "RawAA" and if Column K (Heading is "STATUS") does not equal "MATCHED", then i want it to paste the entire row into tab "AA", but I want this data to be pasted in column "I" (Heading is "Name") in tab AA (obviously offset by one for the heading). If this could be set up so that it just lists them in tab "AA" then that would be perfect
This would then also be repeated for "RawBB" and "BB" and also "RawCC" and "CC", but any help for first bit would be great as i will eventually be assigning each an individual macro button, i can navigate around the rest once I have an idea.
Heres a failed previous attempt for you to ponder (/laugh at)
Attempt 1:
Private Sub Workbook_Open()
Dim s1 As Worksheet, s2 As Worksheet
Dim N As Long, i As Long, j As Long
Set s1 = Sheets("RawAA")
Set s2 = Sheets("AA")
N = s1.Cells(Rows.Count, "K").End(xlUp).Row
j = 1
For i = 1 To N
If s1.Cells(i, "K").Value <> "MATCHED" Then
Else
s1.Cells(i, "K").EntireRow.Copy s2.Cells(1, 9)
j = j + 1
End If
Next i
End Sub
Any help would be massively appreciated.