Buscarv abriendo archivo (Macro Excel)
Hola lo que pasa es que estoy haciendo una macro donde utilizo buscarv, sin embargo el archivo donde busca los datos no es constante, siempre va cambiar. Aquí te envío el código que llevo, sin embargo no me actualiza los datos cuando abro un archivo. Muchas Gracias
Sub AbrirArchivoPuc()
Dim stArchivoElegido As Variant
'Continua la macro aún si un error ocurre
On Error Resume Next
'Abre la ventana para buscar el archivo
stArchivoElegido = Application.GetOpenFilename("Hoja Excel , *.xls*", _
, "INGRESE SU ARCHIVO DEL PUC PARA INICIAR")
'Prueba si la variable es válida para abrir el archivo
If stArchivoElegido = False Then
MsgBox "Por Favor elija su archivo del PUC para continuar"
Else
'Abre el archivo y copia los datos en la hoja PUC
Workbooks.Open stArchivoElegido
Windows("Indicadores Avicola Tila Macro Final.xlsm").Activate
Sheets("PUC").Visible = True
Sheets("PUC").Activate
Range("C6").Select
ActiveCell.FormulaR1C1 = "=+VLOOKUP(PUC!R[0]C[-2],[stArchivoElegido]Hoja1!R1C1:R1378C3,3,0)"
Range("C8:C10").Select
ActiveCell.FormulaR1C1 = "=+VLOOKUP(PUC!R[0]C[-2],[stArchivoElegido]Hoja1!R1C1:R1378C3,3,0)"
End if
Sub AbrirArchivoPuc()
Dim stArchivoElegido As Variant
'Continua la macro aún si un error ocurre
On Error Resume Next
'Abre la ventana para buscar el archivo
stArchivoElegido = Application.GetOpenFilename("Hoja Excel , *.xls*", _
, "INGRESE SU ARCHIVO DEL PUC PARA INICIAR")
'Prueba si la variable es válida para abrir el archivo
If stArchivoElegido = False Then
MsgBox "Por Favor elija su archivo del PUC para continuar"
Else
'Abre el archivo y copia los datos en la hoja PUC
Workbooks.Open stArchivoElegido
Windows("Indicadores Avicola Tila Macro Final.xlsm").Activate
Sheets("PUC").Visible = True
Sheets("PUC").Activate
Range("C6").Select
ActiveCell.FormulaR1C1 = "=+VLOOKUP(PUC!R[0]C[-2],[stArchivoElegido]Hoja1!R1C1:R1378C3,3,0)"
Range("C8:C10").Select
ActiveCell.FormulaR1C1 = "=+VLOOKUP(PUC!R[0]C[-2],[stArchivoElegido]Hoja1!R1C1:R1378C3,3,0)"
End if
1 respuesta
Respuesta de deathwatch