Estoy trabajando en el libro de "Desing Mode Error Rev1.xlsb", y cuando uso el siguiente código para abrir el otro libro..., ya no me ejecuta la linea de "Range("C5").Select"...

Lo que he visto es porque se activa la opción de "Design Mode", en el "Desing Mode Error Rev2.xlsb" ..., ya que si no estuviera activada esa opción si se sigue ejecutando el código...

Así que pienso que posiblemente esa sea la causa para que no siga ejecutándose el código..., pero sino fuera esa..., les agradecería me indicaran donde tengo el error.

a = Application.ActiveWorkbook.Path
e = Left(Application.ActiveWorkbook.Name, 21)
Workbooks.Open (a & "\" & e & "2.xlsb")
Range("C5").Select
End Sub[/PHP]

Hola:

A mi la macro me funciona perfectamente con los archivos que has suministrado.

Saludos

Que raro ese es mi problema...., pero entonces..., podrías decirme como quitar la selección de Design Mode..., para ver si con eso me funciona...

[ATTACH=CONFIG]39022[/ATTACH]

- - - - - Mensaje combinado - - - - -

Este codigo debe escribir Design Mode en C5

Sub Open2file()   
a = Application.ActiveWorkbook.Path    
e = Left(Application.ActiveWorkbook.Name, 21)        
Workbooks.Open (a & "\" & e & "2.xlsb")        
Range("C5").Select    
ActiveCell.FormulaR1C1 = "Design Mode"        
End Sub[/PHP]

y nada..., solo se activa la opción de "Design Mode"

Lo siento amigo, he vuelto a probar y funciona de acuerdo a lo que debe ser.

Incluso he guardado el libro2 con "Design mode" activado y sigue funcionando.

A ver si a alguno de los gurús se le ocurre alguna cosa.

Alguien a ejecutado esta macro con error...?