Macros para convertir fórmulas a valores en rango de columnas

Que tal señor dante quisiera que me ayude tengo esta macros que me cambia la fórmula de mis columnas a Valores .
El problema que tengo es que yo le asigno un rango de celdas y filas hasta donde tiene que convertir a valores pero no me respeta el rango que le doy y parece como si calculara todas las celdas de las columnas. Y mi macros se cuelga

Sub EliminarFórmulas_2()
Dim qCol As Byte, c As Range
Application.ScreenUpdating = False
With [C1:C17:K1:K17].CurrentRegion
qCol = .Columns.Count
For Each c In .Columns(2).SpecialCells(xlCellTypeVisible)
               'si C es verdadero
  c.Resize(, qCol).Copy: c.PasteSpecial xlPasteValues
Next c
Application.ScreenUpdating = False
End With
Application.CutCopyMode = False: [C1:C17:K1:K17].Select
Application.ScreenUpdating = True
End Sub

1 Respuesta

Respuesta
1

Ocupa la siguiente macro, solamente escribe el rango de celdas, desde la celda inicial hasta la celda final que quieres como valores.

Sub Valores()
'Por.Dante Amor
    With [C1:K17]
        .Value = .Value
    End With
End Sub

Si tienes filtrada la información y solamente quieres convertir a valores lo visible, entonces puede ser así:

Sub Valores()
'Por.Dante Amor
    With [C1:K17].SpecialCells(xlCellTypeVisible)
        .Value = .Value
    End With
End Sub

Si no es lo que necesitas, mejor explícame exactamente qué es lo que necesitas y creamos una macro nueva de acuerdo a tus necesidades.

Saludos. Dante Amor

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas

Como dividir un libro en varios a cada 5000 registros

Tengo un archivo con más de 100,000 registros; y quiero dividirlos de 5,000 en 5,000. Pero creando un archivo para cada uno. Por tu interés recibe un cordial saludo
1 respuesta

Error 1004 "Error en el método paste de la clase woorksheet"

Que tal tengo una macro que copia una celda ("H1") y la pega en las celdas vacías dependiendo de si la columna anterior tiene dato o no y luego copia toda la columna y la pega como valores, el problema es que al correr la macro ejecuta todo pero me...
1 respuesta

Concatenar valores de celdas a partir de la aplicación de dos filtros

Actualmente tengo un problema con una macro, luego de aplicar dos filtros y obtener los valores deseados, no se como realizar un concatenado de esas celdas visibles. Actualmente lo hago de la siguiente manera, pero no creo que sea la manera más...
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Copiar fórmula de una celda en todas las celdas vacías de un rango

Tengo la siguiente secuencia que copia "texto" en las celdas vacías de un rango, pero lo que necesito es que me copie la fórmula de la celda X2 a todas las celdas vacías del rango. Gracias de antemano por su ayuda Sub Copiado() For Each Celda In...
1 respuesta

Crear cronometro excel 2010

He estado intentando crear una macro para cronometrar con excel y no lo consigo, lo que necesitaría sería el cronometro en si, que cuando le de a un botón comience, con otro botón pare y con otro resetee a "0". También estoy intentando poner una...
1 respuesta

MACRO para rellenar o copiar datos en filas vacias

Tengo un reporte de ventas que esta detallado por articulo, pero agrupado por FAMILIA, CODIGO Y PRODUCTO, estos datos son los que se necesito sean copiados hacia abajo en las filas vacias, para poder procesar la informacion en el excel. Saludos...
1 respuesta

Error en macro de búsqueda (VLookUp)

Sub CriteriaLookUp()Application.ScreenUpdating = FalseApplication.DisplayAlerts = False 'Definimos las hojas que utilizaremos Set h1 = Workbooks("Priority List.xlsm").Worksheets("FUBT") Set h2 = Workbooks("Priority List.xlsm").Worksheets("IMS-PA")...
2 respuestas

Traspasar ciertos datos de un libro cualquiera a un libro activo

Tengo un libro, que lo tengo considerado como planilla. Denominémoslo "Planilla" La idea que quiero hacer, por vía macros, es que tome ciertas celdas, por ejemplo las que son fijas son B2, C2, D2 y B15. Luego de eso, quiero tomar los datos desde la...
2 respuestas

¿Cómo cargar un combobox con valores únicos y de dos columnas?

Tengo un problema con carga un combobox que muestre 2 columnas y al mismo tiempo cargue sin duplicados, sólo pude cargarlo con las dos columnas lo otro aún no se como porque he tratado de adaptarle códigos que me he encontrado en la web, pero ninguno...
3 respuestas