Luis_P

Usa Activesheet. Name en ves del nombre "literal" de la hoja Activesheet. Name te devuelve el nombre de la hoja activa

Pon esta linea en el evento open del objeto ThisWorkbook ( abres el editor de vb con alt+f11) application.DisplayAlerts=False Y ya esta

Sub color() Selection.Interior.color = vbWhite Selection.Offset(0, 1).Interior.color = 0 End Sub

Bien, utilizaremos el api ShellExecute '4c7569735f50 En un modulo ( no de clase) pegas esto: Option Explicit ' Declaración del api ShellExecute Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _...

Bueno lo que pasa es que estas utilizando ucase() y comparando esa cadena con una cadena en minuscula! UCase(Range("h6")) = "Vehículos" deberia ser : UCase(Range("h6")) = "VEHICULOS" Lo mismo para todos, trata tambien de no utilizar acentos

Cierra esta

Pues no se que tendra tu excel pero puedes probar lo sgte: Antes de application. Quit Pon: xlDialogSaveWorkbook(145).show Te mostrara el cuadro de guardar

Hice la prueba y señala "el libro contiene macros grabadas o escritas en vbasic. No se pueden ver o modificar maros en libros compartidos". Asi que nada que hacer

Sub extrae() '4c7569735f50 Dim trama As String Dim v As String trama = ("7E00128356782E0005040002FB81") V = Mid(trama, 23, 4) ' extraemos la parte que te interesa y se la pasamos a la variable v End Sub

Declara una variable publica tipo integer en algun modulo Option Explicit Public i As Integer Sub macro() i = (i + 1) ' tu macro End Sub Sub cero() ' reinicia el contador i = 0 End Sub Asi cada vez que llames la macro en donde esta i=i+1 estas...