Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Copiar primera columna de varias hojas en otro libro excel

publicado

Buenos días,

Tengo dos libros excel

1.- Copia de localizar_duplicados_hoja1_en_hoja2_a_4

2.- Archivo_A

ambos comparten 4 hojas con el mismo nombre

MAYO_15

Devolucion_MAYO_15

Anulacion cobros_MAYO_15

Anulacion_devolución_MAYO_15

Querría conseguir que la primera columna de estas hojas del libro MAYO_2015 se copiaran en la primera columna de las respectivas hojas del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4.

Adjunto una macro para copiar varias columnas de un libro de excel a otro, pero no sé adaptarla para que sólo me copie la primera columna.

Además, en la última hoja del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4 hay una hoja denominada "duplicados" pero al ejecutar esa macro me va sumando los valores, en vez de borrar y actualizar de nuevo cada vez que se aprieta el botón.

En resumen:

-Necesitaria adaptar la macro asociada a la hoja "duplicados" del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4 para que no repitiese datos sino que actualizar nuevamente lo que hay.

Y necesitaria ajustar la macro que detallo a continuación para que me copie solo la primera columna de cada una de las 4 hojas citadas del libro ARCHIVO_A y las pegue en las respectivas hojas del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4

End Sub Ahi va la macro:

Sub CopiarCeldas()

'Definir objetos a utilizar

Dim wbDestino As Workbook, _

wsOrigen As Excel.Worksheet, _

wsDestino As Excel.Worksheet, _

rngOrigen As Excel.Range, _

rngDestino As Excel.Range

'Indicar el libro de Excel destino

Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Copia de localizar_duplicados_hoja1_en_hoja2_a_4.xlsx")

'Activar este libro

ThisWorkbook.Activate

'Indicar las hojas de origen y destino

Set wsOrigen = Worksheets("MAYO_2015")

Set wsDestino = wbDestino.Worksheets("MAYO_2015")

'Indicar la celda de origen y destino

Const celdaOrigen = "A1"

Const celdaDestino = "A1"

'Inicializar los rangos de origen y destino

Set rngOrigen = wsOrigen.Range(celdaOrigen)

Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen

rngOrigen.Select

Range(Selection, Selection.End(xlDown)).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy

'Pegar datos en celda destino

rngDestino.PasteSpecial xlPasteValues

Application.CutCopyMode = False

'Guardar y cerrar el libro de Excel destino

wbDestino.Save

wbDestino.Close

End Sub

ARCHIVO_A.zip

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.