gracias por el video, consulta y pedido, que modificación tengo que hacer en el código si lo que quiero copiar son algunas columnas de la tabla 1 (ejemplo columna A y C únicamente) y no todas las columnas? Gracias.
Prueba con lo siguiente. Selecciona el rango que quieras en la tabla y ejecutas la siguiente macro. Sub CopiarTabla1() With Range("Tabla1") Selection.Copy End With With Range("Tabla2") f = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 Hoja2.Rows(f).PasteSpecial Application.CutCopyMode = False End With End Sub
Buenas muy útil, muchas gracias. Pero la Tabla que pienso copiar tiene fórmulas y en la tabla donde se va a pegar solo necesito los datos sin fórmulas, qué comando le adiciono?. Gracias.
Hola. Utiliza este ejemplo. Sub Copiar() With Range("Tabla1") .Copy End With
With Range("Tabla2") .Range("A1").PasteSpecial Application.CutCopyMode = False End With End Sub Nota: Cambia Tabla1 y Tabla2 por los nombres de tus tablas
Estaba necesitando esto, valdría la pena que hagas una actualización agregando variantes cómo si lo que quiera es determinadas columnas de la tabla 1 y pudieras por favor dejar el fichero para descargar el ejercicio gracias
Parece interesante. Lo tengo en cuenta. En cuanto a la descarga de los archivos, intento resumir el código al máximo, por lo que entiendo que se puede escribir fácilmente. De todos modos, toda persona que me lo pida se lo puedo enviar.
Hola amigo exelente video, me podrias ayudar en mi caso tengo una tabla1 ya con datos historicos y tengo otra tabla2 que con datos mas recientes y quiero agregar los datos de la tabla2 al principio de la tabla1 de manera que la informacion de la tabla1 se mantanga y queden desplazados y de esta manera ir alimentando la tabla1 con informacion mas reciente al principio de la misma, gracia por la ayuda que puedas brindar.
Prueba con esta macro. Suponiendo que los datos empiezan en la fila 2. Sub copiartabla() Dim x as object With Range ("tabla2") .copy End With Hoja1.activate With Range ("tabla1") Rows(2).insert End With End sub
Muchas gracias es justo lo que buscaba. Nuevo subscriptor ⭐⭐⭐⭐⭐
Gracias, saludos.
gracias por el video, consulta y pedido, que modificación tengo que hacer en el código si lo que quiero copiar son algunas columnas de la tabla 1 (ejemplo columna A y C únicamente) y no todas las columnas? Gracias.
Mira el siguiente vídeo: th-cam.com/video/ibb5HcOGNYg/w-d-xo.html
En el Array pones las columnas que quieras.
Buenas excelente video, una pregunta y sin los registros que quiero pasar d euna tabla a otra no son todos si no algunos?
Prueba con lo siguiente.
Selecciona el rango que quieras en la tabla y ejecutas la siguiente macro.
Sub CopiarTabla1()
With Range("Tabla1")
Selection.Copy
End With
With Range("Tabla2")
f = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja2.Rows(f).PasteSpecial
Application.CutCopyMode = False
End With
End Sub
Justo necesitaba este codigo :D Muchas gracias, muy bien explicado
Gracias por comentar.
Excelente el video, muchas gracias!
Gracias por comentar
Buenas muy útil, muchas gracias. Pero la Tabla que pienso copiar tiene fórmulas y en la tabla donde se va a pegar solo necesito los datos sin fórmulas, qué comando le adiciono?. Gracias.
En la condición If, la que termina en xlpasteAll, cambia por xlpasteValues
excelente video. Consulta, como puedo fijar que los datos de la tabla 1 a la tabla 2 siempre se copien en el mismo rango o se sobre escriban. saludos
Hola. Utiliza este ejemplo.
Sub Copiar()
With Range("Tabla1")
.Copy
End With
With Range("Tabla2")
.Range("A1").PasteSpecial
Application.CutCopyMode = False
End With
End Sub
Nota: Cambia Tabla1 y Tabla2 por los nombres de tus tablas
Está genial! También estaría muy bien si lo que queremos es copiar: Columnas, totales, solo datos, etc
Si, estaría bien. Lo tengo en cuenta.
Estaba necesitando esto, valdría la pena que hagas una actualización agregando variantes cómo si lo que quiera es determinadas columnas de la tabla 1 y pudieras por favor dejar el fichero para descargar el ejercicio gracias
Parece interesante. Lo tengo en cuenta.
En cuanto a la descarga de los archivos, intento resumir el código al máximo, por lo que entiendo que se puede escribir fácilmente. De todos modos, toda persona que me lo pida se lo puedo enviar.
muchas gracias por la explicación
Con mucho gusto
Buenísimo, muchas gracias. lo q me faltaría seria borra los datos de la tabla origen, para que quede vacía
para nuevos datos
Al final, después del último End With pon lo siguiente:
Sheets("Hoja1").Range("Tabla1").Clear
Nota. Cambia el nombre de la Tabla y la hoja.
Gracias por el video, excelente, pero que tipo de variables son f1, f2 y col. gracias
Si, es una mala costumbre que tenía en mis primeros vídeos. Puedes poner las variables de tipo long
Hola, buen día. Existe alguna forma de que sólo se capture las filas que contengan datos? o sea, si una fila está en blanco, que no la capture
Ya respondí al correo
Hola amigo exelente video, me podrias ayudar en mi caso tengo una tabla1 ya con datos historicos y tengo otra tabla2 que con datos mas recientes y quiero agregar los datos de la tabla2 al principio de la tabla1 de manera que la informacion de la tabla1 se mantanga y queden desplazados y de esta manera ir alimentando la tabla1 con informacion mas reciente al principio de la misma, gracia por la ayuda que puedas brindar.
Lo miro mañana y te respondo, ahora no puedo.
Prueba con esta macro.
Suponiendo que los datos empiezan en la fila 2.
Sub copiartabla()
Dim x as object
With Range ("tabla2")
.copy
End With
Hoja1.activate
With Range ("tabla1")
Rows(2).insert
End With
End sub
Felicitaciones. Te comento que no me encuentra la tabla destino. Que podrá ser? Tengo excel 2019.
La tabla destino debe estar en el mismo libro. Si es así, intenta poniendo en el segundo with el nombre de la hoja. Ejemplo: With hoja5.range("tabla")
Muchas gracias!!!!!
De nada!