Macro para copiar celdas visibles

Tengo un libro con 10 hojas, y necesito copiar de cada hoja, la filas que haya a otra hoja común (las celdas visibles, creo) pero que no cogiera la fila 1 (cabeceras), y en caso de que no tuviera nada que copiar que no me de error. Comencé así pero me da error:
Dim UnaCelda
    UnaCelda = "A2"
    Range(UnaCelda). CurrentRegion. SpecialCells(xlCellTypeVisible). Copy
pero no me funciona, porque me copia la primera fila (las cabeceras).
Respuesta
1
Con este macro pude copiar todos los datos visibles desde la celda A2 de la hoja1 a la Hoja4
Private Sub CommandButton1_Click()
   Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(Hoja4.Name).Select
    Hoja4.Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets(Hoja1.Name).Select
    Range("A2").Select
End Sub
Esta implementado en un CommandButton en su evento click
tal vez te de una idea que te acerque a lo que buscas
suerte
Puede funcionar si hay datos pero, el problema está cuando no hay datos a copiar, falla!.
Leo.-
Es cierto, prueba:
Private Sub CommandButton1_Click()
   Range("A2").Select
   If Range("A2").Value = "" Then Exit Sub
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(Hoja4.Name).Select
    Hoja4.Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets(Hoja1.Name).Select
    Range("A2").Select
End Sub
Ahora si no hay datos (al menos en Rango A2 ), se saldrá del sub, seguro esto te dará alguna idea para concretar tu proyecto. Suerte

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

Cortar fila de una hoja y pegar en otra hoja en la siguiente libre

Y feliz año! Tengo un excel con 2 hojas, una con datos de pedidos antiguos y otro con datos de pedidos actualizados. Quiero hacer una macro que automáticamente copie la fila de los pedidos nuevos de la hoja 2 en la hoja 1 (al final), es decir...
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 celdas cuando cumpla condición

Taqrdes mi pregunta es la siguiente hay una macro queme ayude a los siguiente en una hoja tengo los sgiuientes datos de la columna a a la e carlos amado 1000.00 500.00 500.00 1000. Oo pedro hdz 0 500.00 500.00 0 necesito que busque en la columna e...
1 respuesta

Seleccionar filtro tabla dinámica vba

La situación en la que me encuentro, por medio de vba selecciono un filtro mediante una tabla dinámica. Mi problemas es que no puedo copiar automáticamente los datos filtrados, me selecciona todos los datos a pesar de que los demás estén filtrados.
1 respuesta

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

¿Cómo puedo cambiar celdas a formato de numero, por formato de celdas no me permite?

Solicito de su valiosa ayuda ya que no he podido crear una macro para Excel 2003 que me convierta un rango de celdas a numero, lo he intentado por formato de celdas y no pasa nada, la única forma es realizar el cambio manualmente para lo cual tengo...
1 respuesta

Macro para copiar celdas en otro libro en la primera fila vacía

Estoy haciendo mis primeras macros y tengo una duda. Querría preparar una macro que copie un conjunto de filas de una hoja llamada "CAUSAS" del libro de origen y las pegue en otra, llamada "Hoja1" del libro de destino, "PruebaMacro.xlsx", en la...
1 respuesta