Macro que copiar y pegar valores según formula
Hola, por favor me pueden ayudar con una macro que recorra una columna, por ejemplo la L y que las celdas que se vaya encontrando que tengan empiecen por la fórmula =REDONDEAR(
;copie y pegue el valor de dicha celda, siga bajando y si se encuentra otra que tenga esa formula haga lo mismo y así sucesivamente. Todas las celdas tienen esa fórmula, hay otras que tienen formulas de sumas, etc
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución. Utilizamos como ejemplo la columna L desde L1 hacia abajo
Sub ejemplo()
'por luismondelo
Range("l1").Select
Do While ActiveCell.Value <> ""
If InStr(ActiveCell.Formula, "ROU") > 0 Then
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.CutCopyMode = False
End Sub
Hola, no funciona. enlazo un ejemplo
Claro, faltaba explicarlo con detalle diciendo que en la columna habría celdas vacías.
Esta es tu nueva macro para el ejemplo de la columna L
Sub ejemplo()
'por luismondelo
range("l65000").end(xlup).offset(1,0).value ="end"
Range("l1").Select
Do While ActiveCell.Value <> "end"
If InStr(ActiveCell.Formula, "ROU") > 0 Then
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues
End If
ActiveCell.Offset(1, 0).Select
Loop
activecell.clearcontents
Application.CutCopyMode = False
End Sub
