Auto Copy based on criteria in colum
Thanx.
That would work, however, the sheet from which column B is pulling its
data is subject to change. That's why i need to copy and paste values.
If leave a = formula in C, then when criteria for which the data in B
is no longer avaialbe, it will all dissappear.
I found the following code which bases it on two conditions, i only
need one. (which would be in cell A1). Please advise if i can alter
this code to refer to one condition/cell (A1).
Sub macro1()
Dim ws As Worksheet
Dim iA As Integer
Dim iB As Integer
Dim c As Range
Dim rng As Range
Set ws = Worksheets("Sheet1")
Set rng = ws.Range("C2:C16")
For Each c In rng
If c = "A" Then
iA = iA + 1
ws.Cells(iA, 5) = c.Offset(0, -2)
ws.Cells(iA, 6) = c.Offset(0, -1)
Else
iB = iB + 1
ws.Cells(iB, 8) = c.Offset(0, -2)
ws.Cells(iB, 9) = c.Offset(0, -1)
End If
Next c
End Sub
|