tavopz

Pienso que podría ser así: Dim wb As Workbook For Each wb In Workbooks If wb.Name = "Workbook_Trabajo.xls" Then x = "Abierto" End If Next wb Entonces si por = "Abierto", entonces el libro no puede cerrarse. Pueden haber otras formas, pero en el...

¿Y cuál es la razón por la cual la fecha se actualiza? Supongo que es porque estás utilizando una fórmula como =HOY() en la celda de la fecha para agilizar. Pues si es así tienes que convertir esa celda en valor de alguna manera, con una macro por...

Pienso que no, al menos no conozco ninguna función que haga esto. Tendrías que crear una función personal que te devuelva el color de la celda y con ello hacer la evaluación. Algo así: Public Function CellColor(x As Range) As String CellColor =...

Puedes hacer la suma usando el evento Change del Worksheet. Algo así: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = Target + 365 Application.EnableEvents = False Range(Target.Address).Value = x...

Está complicado... Lo que sucede es que si haces el cambio en una hoja y el formato se debe ejecutar en otra, significa que el evento Change se produce cuando haces el cambio y la variable Target lleva el dato del dato cambiado (no de los que cambian...

Sería lo mismo, en VBA cuentas con las funciones Month, Year, Day, a las cuales les dices para que fecha y te devuelven un numero, a ese numero le sumas la cantidad que necesitas y lo puedes convertir en fecha nuevamente concatenándolos en tu TextBox.

Puedes usar validaciones para evitar que esto ocurra. En el menú Datos/Validación, selecciona Personalizada en "Permitir" e incluye una fórmula como esta: =CONTAR.SI($A$1:$A$100;A1)=1 Claro, esta fórmula funcionaria para el rango A1:A100 (haces la...

Pienso que podrías usar el evento BeforeClose de tu Workbook. Allí puedes verificar que se halla completado la información y si no está entonces cancelar la orden, algo así: Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("A1").Value =...

Puedes utilizar la función CONCATENAR en la hoja original para tener las cuatro celdas en una sola, de esa forma, cuando uses la función BUSCARV lo harás también para los cuatro datos concatenados. Espero que te funcione. Si tienes dudas me lo haces...

Creo que te entiendo. No sería hacer algo como: TextBox3.Text = Str((Int(TextBox1.Text) / Int(TextBox2.Text))*100) & "%" Si por ejemplo TB1 = 25 y TB2 = 100, entonces 25/100 *100 = 25% ¿Entendí tu pregunta?