Copiar celdas de un libro a otro dependiendo del valor
Tengo dos libros de excel y necesito copiar de uno a otro una lista de direcciones pero siempre y cuando coincidan los codigos de tienda en las dos tablas, las que no coincidan no deben copiarse.
¿Tendría qué validar los datos de la celda origen y destino para que luego se copien en otra celda del libro destino? ¿Alguien sabe como hacerlo?
1 Respuesta
Puedes poner nombre de todos tus datos.
¿Cómo se llama el libro1?
¿Cómo se llama el libro2?
¿En cuál libro va a estar la macro?
¿De cuál libro a cuál libro se va a copiar?
¿De cuál hoja a cuál hoja?
En dónde tienes los códigos.
¿Etc?
Ayudaría si pones un par de imágenes de dónde tienes tu información origen y cómo quieres el resultado en la hoja destino.
O describe paso a paso con un ejemplo real
Bien, tengo el libro origen (CUENTAS Y DIRECCIONES SUCURSALES Vallarta) que tiene los datos clave de tienda y dirección de tienda. En el libro destino que se llama Formato, tengo las claves de las tiendas, y lo que necesito es que se copie la dirección desde el libro origen. La macro estaría en el libro destino, allí estan todas las macros que he ocupado y las que me has ayudado a realizar.
Faltaron varios datos.
Vamos con el libro "Formato" (destino)
- ¿Cómo se llama la hoja donde están las claves?
- ¿En qué columna del libro "Formato" están las claves?
- ¿En qué fila empiezan las claves?
- ¿En qué columna del libro "formato" se va a pegar la dirección?
- ¿Las claves son numéricas o alfanuméricas o son el resultado de una fórmula?
Ahora, vamos con el libro "Cuentas y direcciones"
- ¿El libro va a estar abierto o lo vas a abrir con la macro?
- ¿Cómo se llama la hoja del libro "Cuentas y direcciones" donde están las claves?
- ¿En qué columna del libro "Cuentas y direcciones" están las claves?
- ¿Las claves son numéricas o alfanuméricas o son el resultado de una fórmula?
- ¿En qué columna del libro "Cuentas y direcciones" están las direcciones?
s a l u d o s
libro "Formato" (destino)
- ¿Cómo se llama la hoja donde están las claves?: KROMA
- ¿En qué columna del libro "Formato" están las claves?: F
- ¿En qué fila empiezan las claves? : 3
- ¿En qué columna del libro "formato" se va a pegar la dirección?: H
- ¿Las claves son numéricas o alfanuméricas o son el resultado de una fórmula?: alfanuméricas
"Cuentas y direcciones"
- ¿El libro va a estar abierto o lo vas a abrir con la macro?: con la macro
- ¿Cómo se llama la hoja del libro "Cuentas y direcciones" donde están las claves?: Hoja1
- ¿En qué columna del libro "Cuentas y direcciones" están las claves? A
- ¿Las claves son numéricas o alfanuméricas o son el resultado de una fórmula? alfanuméricas
- ¿En qué columna del libro "Cuentas y direcciones" están las direcciones?: B
Gracias <3
Pon la siguiente macro en tu libro "formato"
Sub Copiar_Direcciones()
'---
' Por.Dante Amor
'---
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("KROMA")
'
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Add "Archivos de Excel", "*.xls*"
.AllowMultiSelect = False
.InitialFileName = l1.Path & "\"
If Not .Show Then Exit Sub
archivo = .SelectedItems.Item(1)
End With
Set l2 = Workbooks.Open(archivo)
Set h2 = l2.Sheets(1)
'
For i = 3 To h1.Range("F" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("A").Find(h1.Cells(i, "F"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(i, "H") = h2.Cells(b.Row, "B")
End If
Next
l2.Close False
Application.ScreenUpdating = True
MsgBox "Proceso terminado"
End Subsal u dos
