Victor Rodriguez

Ten en cuenta que excel puede tardar 5 segundos en abrir un libro, copiar informacion, guardar y cerrar, con lo cual es bastante improbable que un trabajador intente abrir el libro cuando este ya esté abierto. De todos modos puedes introducir este...

Prueba con esto: Sub macro1apdf() Filepath = thisworkbook.address Filename = thisworkbook.name ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Filepath & filename _ , Quality:=xlQualityStandard, IncludeDocProperties:=True,...

No es muy elegante, pero funciona: Sub copiar() Worksheets("Formulas").Range("C3").Select Range("C3").FormulaLocal = "=SI($B$3="""";"""";val_padron!$B$2)" Selection.AutoFill Destination:=Range("C3:C1000") Worksheets("Formulas").Range("F3").Select...

Esta pregunta ya se ha hecho en http://www.todoexpertos.com/preguntas/7ikk55v5wj7r3got/como-hacer-que-una-celda-se-ponga-roja-al-pasar-por-ej-90-dias?selectedanswerid=7imfyax4orhke5fb&nid=fws9dsuihcnm3f4j93rmngct9wnpvrenf8kp7rua9ruqdsugi3w63 Israel,...

Puedes proteger con contraseña la apertura del libro. Si lo que quieres es proteger solo el código VBA, aquí te dicen como hacerlo https://exceltotal.com/restringir-el-acceso-al-proyecto-vba/ Los programas que corren por internet utilizan la fuerza...

Mediante fórmula y formato condicional podrás obtener el resultado, quedaría así

Prueba con esto: Sub formula() Range("A1").FormulaLocal = "=SI([@[F_FIN]]="","ESTADO 1",SI(HOY()>[@[F_FIN]],"ESTADO 2","ESTADO 3"))" Selection.AutoFill Destination:=Range("A1:A100") End sub Deberás cambiar la celda A1 y modificar el rango A1:A100...

¿Puede ser que tengas el proyecto VBA oculto? Si lo desproteges podrás ver donde se produce el error

Para hacer lo que quieres te servirá: Sub guardar() ruta = "C:\Users\vrodriguez\Desktop\" nombre = Range("A1").Value & " " & Range("B1").Value & ".xlsm" ActiveWorkbook.SaveAs Filename:=ruta & nombre End Sub En donde en ruta debes poner la ruta que...

Creo que un autofiltro seria lo más adecuado para tu caso, pero de todos modos te paso un código que ocultará todas las filas que tengan "n" en la columna A Sub ocultar() Range("A1").Select Do If ActiveCell.Value = "n" Then...