Saltar al contenido

Extraer datos de una hoja a otra pero vinculados.


Recommended Posts

Hola a todos, mi consulta es la siguiente.

Tengo un libro y transfiero datos de la tabla_1 a la tabla_2dentro del mismo libro, tengo dos macros para poder hacerlo, las pego masabajo, pero claro, cuando se transfieren los datos se transfiere su valor absoluto, perocundo modifico el valor en la tabla:1 lógicamente no se modifica en la tabla_2,o sea, que quiero transferir los datos pero vinculados, a modo de Id en unabase de datos, lo he intentado pasando el número de la fila y luegoel resto del código del vinculo ponerlo en la hoja_2 y utilizando posteriormenteconcatenar, pero no funciona, hay forma de hacerlo?

( aqui paso la celda A1 de la Hoja_1 )

SubINGRESAR_PPKK_2()
r =[IE22].Value
Sheets(r).Select
ul =Range("C1000").End(xlUp).Row + 1
Cells(ul,3) = Hoja_1.Range("A1")
End Sub

( aqui tambien pero verificando antes si ya existe )
Sub PPKK()
Dim resp As Variant
uf =Sheets("PPKK").Range("C" &Cells.Rows.Count).End(xlUp).Row + 1
On Error Resume Next
FIL =Application.WorksheetFunction.Match(Range("HZ3"),Sheets("PPKK").Columns("C:C"), 0)
If FIL = "" Then
Sheets("PPKK").Range("C" & uf) =Range("A1")
Else
resp =MsgBox("YA SE ENCUENTRA INSERTADA", vbYesNo, "Atencion!")
If resp = vbYes Then
Sheets("PPKK").Range("C" & FIL) =Range("A1")
Else
Exit Sub
End If
End If
End Sub[/CODE]

[font=Times New Roman][size=3][color=#000000]

Para finalizar, saludos a todos y gracias.[/color][/size][/font]

Enlace a comentario
Compartir con otras webs

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.