View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
usmc-r70 usmc-r70 is offline
external usenet poster
 
Posts: 24
Default Special Copy, Paste Special macro


Your code did exactly what I needed, thanks.

"Á÷À˵ÄË«Óã" wrote:

Try the code as following.

Dim rng As Range
For Each rng In Range("A39:A79 ")
If rng.Value = "Not Locked" Then
Range("B" & rng.Row & ":I" & rng.Row).Value = Range("B" &
rng.Row & ":I" & rng.Row).Value
End If
Next rng


"usmc-r70" ...
I need a macro button that will, on selection, evaluate if a cell from
A39:A79 contains the text "Not Locked" and then will change all the
corresponding formulas in those rows for columns B:I (B39:I79) into text
(i.e. Their formula values: Copy Paste Special Paste Values).