Luis_P

Si es por formato condicional, no te va a reconocer el color por que ese color "no esta en la celda" Prueba asi: ActiveCell.FormatConditions(1).interior.color=vbyellow Esta linea solo funciona para celdas con color dado por formato condicional

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

El rango que evalúa es For Each r In Range("a1:z100"), asi si en la coluimna Z existe la condicion entonces debe poner el texto 5 celdas a la derecha

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

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

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, _...

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

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...