Crear base de datos a partir de 2 criterios

Estoy agradecido con el macro (adjunto).

- Como realizaría, tomando el contenido de una celda (esta celda seria como un código que va a ser diferente de todos), busque en otro libro (libro que esta en red) (besuque en columnas), si no existe que me añade (el resultado y la fecha a celdas especificas), y si existe que me actulize a las celdas que correspondan o si esta vació, que lo añade a la celda.

Esa es la planilla que quiero ir generando, el macro que usted me paso tallves se puede adecuar, colocando la opción de buscar...

Saludos...

Espero sus comentarios.

Sub CopiarCeldas()

'Por.Dante Amor
cs1 = Array("A3", "A5", "A4", "A1") 'celdas origen
cs2 = Array("E", "L", "M", "N") 'columnas destino
lib = "respaldos.xlsx" 'libro destino
hoja = "12" 'hoja destino
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
ruta = "F:\000. PLANIFICACION\"
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
If Dir(ruta & lib) = "" Then
MsgBox "Libro destino no existe", vbCritical, "ERROR"
Exit Sub
End If
'
If h1.Range(cs1(0)) = "" Then
MsgBox "Está vacía la celda : " & cs1(0), vbCritical, "ERROR"
Exit Sub
End If
'
Set l2 = Workbooks.Open(ruta & lib)
Set h2 = l2.Sheets(hoja)
u = h2.Range(cs2(0) & h2.Rows.Count).End(xlUp).Row + 1
If u < 22 Then u = 22
For c = LBound(cs1) To UBound(cs2)
h2.Cells(u, cs2(c)) = h1.Range(cs1(c))
Next
l2.Close True
MsgBox "Celdas copiadas", vbInformation, "COPIAR"
End Sub

0

Añade tu respuesta

Haz clic para o