Macro: Abrir libro y/o saltar cuando este abierto

15/11/2006 - 21:36 por CARLOS CARNERO | Informe spam

Muy buenas a todos, una consulta: Les agradecería atender mi
solicitud, porque necesito usar el mismo botón (ej: Botón6) para
ejecutar una macro, tanto cuando esten los dos ó más libros abiertos
para saltar de un libro a otro, ó como en el caso que no estuviera
abierto, este comando ejecutará en ese momento la apertura de este
segundo libro.

Tengo estas dos sintaxis por separado: Necesito unificarla para que sea
condicional como lo expuesto ó como cuando se usa la condicional en
fórmulas (=Si):

1) Este es el caso cuando los dos libros estan abiertos y se realiza el
salto:

Sub Botón6_AlHacerClic()
'
' Botón6_AlHacerClic Macro
' Macro grabada el 4/06/2005 por Departamento de Sistemas
'

'
Windows("SOLICITUD.xls").Activate
End Sub

2) En el caso que el otro libro no este abierto:

ChDir "C:\Carlos\Proyecto POEH\Proyecto Alcanfores\FERROCARRIL"
Workbooks.Open FileName:= _
"C:\Carlos\Proyecto POEH\Proyecto
Alcanfores\FERROCARRIL\DATA.xls" _
, UpdateLinks:=0
End Sub

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#11 CARLOS CARNERO

23/11/2006 - 23:11 | Informe spam

Gracias Hechor por lograr este objetivo, más bien discúlpame por
responder tarde. Finalmente de acuerdo a tu propuesta tengo estas
sintaxis

En el ThisWorkbook de DATA DE FORMULARIO.xls:

Dim VolverA As String
VolverA = ActiveWorkbook.Name
On Error Resume Next
Tmp = Workbooks("Formulario.xls").Name
If Err <> 0 Then
Workbooks.Open "C:\Carlos\Universidad\Excel\Formulario.xls"
Workbooks(VolverA).Activate
End If
On Error GoTo 0

En Módulo1 de DATA DE FORMULARIO.xls:

Dim VolverA As String
VolverA = ActiveWorkbook.Name
On Error Resume Next
Tmp = Workbooks("Formulario.xls").Name
If Err <> 0 Then
Workbooks.Open "C:\Carlos\Universidad\Excel\Formulario.xls"
Workbooks(VolverA).Activate
End If
On Error GoTo 0

En el ThisWorkbook de Formulario.xls:

Dim VolverA As String
VolverA = ActiveWorkbook.Name
On Error Resume Next
Tmp = Workbooks("Formulario.xls").Name
If Err <> 0 Then
Workbooks.Open "C:\Carlos\Universidad\Excel\Formulario.xls"
Workbooks(VolverA).Activate
End If
On Error GoTo 0

Saludos,

Carlos Carnero Gálvez

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida