Hola Amigos.
Estoy haciendo un archivo de Excel que me sirva para
facturar. En ella hay un cuadro combinado que me recoge
los datos del cliente de una base de datos de Access. Los
resultados se guerdan en una hoja oculta del mismo archivo.
La pregunta es la siguiente. Como veis por el código que
mando, desde el archivo 34VinIn hago que se abra el
archivo 105VinIn, me copie los datos de ese archivo, lo
pegue en el nuevo y cierre el archivo 1º. Y lo hace todo
bien, solo que no se actualiza desde la base de datos.
Si abro el archivo 105VinIn directamente, los datos se
actualizan perfectamente bien.
¿Que me falta en el código?. Gracias y un saludo.
Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)
If Range("B56") <> "" Then
Range("B20:L55").Select
Selection.Copy
MsgBox "Como te has quedado sin líneas para poder
seguir facturando, se va a proceder a insertar una nueva
hoja para que puedas continuar.", vbInformation +
vbOKOnly, "información ..."
Application.Workbooks.Open ("C:\Ofg\105VinIn.xls")
ActiveSheet.Range("B20").Select
ActiveSheet.Paste
ActiveSheet.Range("B56").Select
Application.DisplayAlerts = False
Workbooks("34VinIn.xls").Close (False)
End If
End Sub
Leer las respuestas