Jump to content

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy