Por favor hermano me estoy volviendo loco
Desearía que me ayudes por favor
Esta es mi macro
Private Sub CommandButton1_Click()
nombrearchivo = "LI.xls"
If Dir(ThisWorkbook.Path & "\" & nombrearchivo) = nombrearchivo Then
'Esto se ejecuta si lo encuentra
MsgBox "Este es el punto donde se ejecuta la macro 1"
'Esto se ejecuta si no lo encuentra
Else
MsgBox "Este es el punto donde se ejecuta la macro 2"
End If
End Sub
Pero solo busca el archivo en mi pc
Esta esta dirección del archivo pero no lo busca ayuda por favor
\\Nicol1\D\mis documentos\BASE\LI.xls
no funciona le falta algo que es
Private Sub CommandButton1_Click()
nombrearchivo = "\\Nicol1\D\mis documentos\BASE\LI.xls"
If Dir(ThisWorkbook.Path & "\" & nombrearchivo) = nombrearchivo Then
'Esto se ejecuta si lo encuentra
MsgBox "Este es el punto donde se ejecuta la macro 1"
'Esto se ejecuta si no lo encuentra
Else
MsgBox "Este es el punto donde se ejecuta la macro 2"
End If
End Sub
Hay otra forma de hacerlo desde ya muchas gracias
Esta es mi macro
Private Sub CommandButton1_Click()
nombrearchivo = "LI.xls"
If Dir(ThisWorkbook.Path & "\" & nombrearchivo) = nombrearchivo Then
'Esto se ejecuta si lo encuentra
MsgBox "Este es el punto donde se ejecuta la macro 1"
'Esto se ejecuta si no lo encuentra
Else
MsgBox "Este es el punto donde se ejecuta la macro 2"
End If
End Sub
Pero solo busca el archivo en mi pc
Esta esta dirección del archivo pero no lo busca ayuda por favor
\\Nicol1\D\mis documentos\BASE\LI.xls
no funciona le falta algo que es
Private Sub CommandButton1_Click()
nombrearchivo = "\\Nicol1\D\mis documentos\BASE\LI.xls"
If Dir(ThisWorkbook.Path & "\" & nombrearchivo) = nombrearchivo Then
'Esto se ejecuta si lo encuentra
MsgBox "Este es el punto donde se ejecuta la macro 1"
'Esto se ejecuta si no lo encuentra
Else
MsgBox "Este es el punto donde se ejecuta la macro 2"
End If
End Sub
Hay otra forma de hacerlo desde ya muchas gracias
1 Respuesta
Respuesta de macros_excel
1
Esto es igual que si vos me preguntarías que significa una palabra y yo te respondiera búscalo en el diccionario
Lo que necesito es
Con vos arriar estando en la maquina 2 una macro que verifique si el archivo existe en la maquina 1
Y luego ejecutar call macro1 para copiarlo en tu pc
y en el caso que no se encuentre o la maquina este apaga ejecute call macro2
Dos acciones dependiendo de que si el archivo esta o no
Macro 1 "el archivo existe" copiando
macro 2 "el archivo especificado no fu encontrado" end
Es todo
Lo que necesito es
Con vos arriar estando en la maquina 2 una macro que verifique si el archivo existe en la maquina 1
Y luego ejecutar call macro1 para copiarlo en tu pc
y en el caso que no se encuentre o la maquina este apaga ejecute call macro2
Dos acciones dependiendo de que si el archivo esta o no
Macro 1 "el archivo existe" copiando
macro 2 "el archivo especificado no fu encontrado" end
Es todo
Esta instrucción te verifica si esxite el libro1.xls en la carpeta c:\system32
If Dir$("c:\windows\system32\libro1.xlsx") = "" Then
Macro1
Else
macro2
End If
Más tutoriales en el sitio..
Si necesitas más ayuda mandameunmensaje de textoen el sitio y me realizar unapregunta personalizada por el mismo..
If Dir$("c:\windows\system32\libro1.xlsx") = "" Then
Macro1
Else
macro2
End If
Más tutoriales en el sitio..
Si necesitas más ayuda mandameunmensaje de textoen el sitio y me realizar unapregunta personalizada por el mismo..
Excelente sabia que el macro era corto y no tan largo es lo que estaba buscando cualquier cosa te pregunto en tu página la verdad no se cuanto hay que pagar por mensaje en argentino $ en esa tu página pero espero que no sea mucho y muchas gracias
