Tor Cheer

Inicie de nuevo el formateo y elimine las particiones de su disco y lo crea de nuevo para borrar todas las instalaciones, cuando se va a reiniciar por primera vez quia la USB para que no se reinicia la instalación.

Con esta macro elimina el archivo activo, evalúa el valor de la celda A1 si es igual a 1 no hace nada, si tiene otro valor elimina el archivo. Puede adaptarlo a sus necesidades en su macro Sub Eliminar_archivo() If Range("A1").Value = 1 Then Else...

Comparta una imagen de sus datos para intentar ayudarle

Puede compartir los formularios donde tiene sus listbox para intentar ayudarle

Con esta macro que es parecida a su anterior pregunta. Considere lo siguiente: Si el valor de la celda tiene diferente al numero 1 la forma la dejará transparente, si quiere que unicamente sea el numero 1 la macro le funcionara, en caso de que se...

Lo que se me ocurre es que al principio del proceso guarde en una celda la fecha y hora en una celda y al final del proceso guarde en otra celda la fecha y hora en una celda, de esta manera tendrá almacenado el momento en que empezó y el momento en...

Puede compartir una imagen de sus datos, su formulario y la macro que ya tiene para intentar completar lo que le hace falta

Con esta macro guarda la hoja1 con el nombre de la hoja1 en la misma ubicación del archivo con formato .xls como esta en el código Sub GuardarHoja() Dim Nombre As String Nombre = ThisWorkbook.Path & "\" & Sheets("Hoja1").Name & ".xlsx"...

EM se te extrañara muchísimo porque aportas mucho a la comunidad, pero si es necesario deseo que todo este bien con los tuyos, un saludo fraterno para ti. A tu regreso seras bienvenida!

Intente con esta macro Sub CambiaColor() With Range("E5").Interior clr = Range("E5").Interior.Color If .ColorIndex <> xlColorIndexNone Then ActiveSheet.Shapes(1).Select Selection.Interior.Color = clr End If End With End Sub