Macro to copy/paste special values if cel contains

[hstef]

Hi,

I need a macro to copy cells B, C, D, H, I, K, L, M, N, and paste special values if cel contains "success" in column "M".

If I have "success" in M3, then macro to copy B3, C3, D3, H3, I3, K3, L3, M3, N3 and paste special values over the same cells.
If I have "success" in M10, then I need copy paste special values over the same cells (B, C, D, H, I, K, L, M, N) in row 10.

I have formulas in these cells and the result can be changed upon excel cube refresh, which I do not want. Copy/paste special values over the formulas will keep the result I need when "success" occurs.

Can this be done?

Thank you kindly,
Stefan.

 

[hstef]

Hi,

If it is easier, the macro to copy entire row.
I "success" is in M3, then the macro to copy paste special values row 3.

Thanks

 

[hstef]

I found a macro, which, after a little adjustment, works:

Sub InStockMacro()

ActiveSheet.Select
Dim rngA As Range
Dim cell As Range
Set rngA = Range("I1", Range("I10"))
For Each cell In rngA
If cell.Value = "InStock" Then
cell.EntireRow.Select
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

  Application.CutCopyMode = False
  Range("A1").Select
End If
Next cell

End Sub

 

[Peter_SSs]

I have fixed it for you this time but please use the available code tags when posting vba code. My signature block below has more details.

 

[hstef]

I have fixed it for you this time but please use the available code tags when posting vba code. My signature block below has more details.

Ok. Thank you.