Dudas sobre el uso de macros para copiar valores de las columnas en un rango en Microsoft Excel

Hola Valedor, hace unos días te pregunte como podía hacer una macro para copiar solo las celdas que contengan texto del rango A1:A20 y me colocara el resultado en el rango A30:A50 ordenados uno debajo de otro, sin que me copie las celdas vacías, teniendo en cuenta que el rango de la columna A son celdas vinculadas (osea que las celdas vacías tienen asignada una fórmula que las vincula desde otras hojas y solo se rellenan si hay algún dato que consignar y me respondiste con la siguiente macro.
Sub Macro2()
Range("A1:A20").Select
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.Copy
Range("A30").Select
ActiveSheet.Paste
End Sub
La cual funciona perfectamente, pero lo que necesito ahora es que me copie además de los rangos mencionados los dos rangos de las columnas situadas a la derecha (B1:B20 y C1:C20)pero en este caso son números que también tienen incluida una fórmula que las vincula desde otras celdas, y las pegue en el rango B30 y C30 respectivamente, he leído mucho e intentado aplicar lo que he podido sobre SpecialCells y xlCellTypeFormulas, xlCellTypeNumbers, y otros argumentos para poder aplicarlos por tratarse de números pero no soy capaz de conseguirlo, te agradecería que me ayudaras, espero haberme explicado bien...

1 respuesta

Respuesta
1
El código es el mismo, el secreto esta en la selección especial, en este caso, tu quieres seleccionar solo números de las fórmulas, la macro quedaría así...
Sub Macro3()
Range("B1:B20").Select
Selection.SpecialCells(xlCellTypeFormulas, 1).SelectSelection.Copy
Range("B30").Select
ActiveSheet.Paste
End Sub
La macro que copie de la columna C te queda de tarea, esta regalado...
He probado la macro y me da error "438" (el objeto no admite esta propiedad o método...
¿A qué se puede deber ese error?, ¿Me podías explicar que misión tiene el número 1 en la linea:
Selection.SpecialCells(xlCellTypeFormulas,1).SelectSelection.Copy?
Y he conseguido que me funcione, el error era mío y ya está solucionado, pero si me puedes contestar a la esta pregunta te lo agradecería...
¿Me podías explicar que misión tiene el número 1 en la linea:
Selection.SpecialCells(xlCellTypeFormulas,1).SelectSelection.Copy?
Persona por no aclararme...
Lo único que me hace es que me pega la selección donde yo necesito pero no me elimina los huecos en blanco...
Esta explicación viene en la ayuda...
Con esta linea estamos seleccionando las celdas que tengas fórmulas cuyo resultado sea un numero
Selection. SpecialCells(xlCellTypeFormulas, 1).Select
es lo mismo que esta linea
Selection.SpecialCells(xlCellTypeFormulas, xlNumbers).Select
o sea xlNumbers = 1 y esta es una constante de VBA
para los restantes tipos es
xlErrors = 16 para errores
xlLogical = 4 para valores logicos
xlTextValues = 2 para texto
Respecto a tu segunda pregunta, cierto, la macro solo copia, te falta, si así lo quieres eliminar las celdas, graba estas acciones ve el código, consulta la ayuda y ya lo tienes, te anexo una forma de hacerlo, tu tarea es adaptarlo a tus necesidades...
Public Sub CopiarEliminar()
Range("A1:A20").Select
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.Copy
Range("A30").Select
ActiveSheet.Paste
Range("A1:A20").Select
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo crear una tabla resumen clasificada de acuerdo a valor de una celda?

Tengo un archivo de excel conformado por varias hojas, en cada una de las hojas un resumen de gastos mensual que esta ordenado por fecha y esta compuesto de varios datos En la primera columna esta un código de clasificación (importante) y en las...
1 respuesta

Cómo copiar diferentes rangos d celdas d una hoja y pegarlas en distintas columnas d un nuevo libro

Bueno encontré un código el cual me permite copiar celdas y pegarlas pero en la siguiente fila, lo que quiero hacer es abrir un nuevo documento y que de mi hoja4 me copie los rangos a1:c57 en la columna a, e1:57 en la columna d, i1:k57en la columna...
1 respuesta

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Copiar a otra hoja, en la ultima fila, solo valores

Tengo una macro que la encontré en la web, y me sera de utilidad, lo que hace la macro es copiar la información incluyendo formulas y formatos de las celdas "D7" y "E7" de la hoja llamada "DATOS" a la primeras celdas vacías de la la columna "A" de...
1 respuesta

Autocompletar columna

Tengo una macro asociada a un Botón, para que me autocomplete las columnas: Sub Macro2() Range("B1").Select Selection.AutoFill Destination:=Range("B1:B20") Range("B1:B20").Select End Sub Esta macro la he grabado haciendo el ejemplo en una tabla que...
1 respuesta

Copiar rango de celdas según condición VBA

Necesito de su ayuda en lo siguiente, quiero copiar un rango de celdas y pegarlas en otra ubicación solo si cumple una condición, por ejemplo tengo una columna digamos B:B la cual tiene valores como nombres de personas en cada celda por ejemplo b1 =...
2 respuestas

Mondelo modificación de macro para que me copie datos filtrado y los copie a un nuevo libro.

Acudo a usted luis mondelo por la gran ayuda y colaboración tan oportuna que me ha brindado. Gracias sos el mejor. Hace unos días buscaba copiar datos filtrados y pegarlos a otra hoja del mismo libro, es posible que con el código siguiente se haga...
1 respuesta

Macro para copiar una columna a otra sin celdas vacías

Tengo una columna con varios datos unos 30 celdas llenas, pero le elimino unas 10 celdas,(no seguidas, si no entre medio de la columna). Y me quedan celdas vacías entre medio de las 30 datos de la columna, ahora lo que quiero hacer con una macro es...
1 respuesta