Carlos Arrocha

[Hola Jaime. Revisa que en la celda P2 tienes formato número o general, puede que lo tengas en porcentaje.

Te paso es código. Ponlo en un módulo, seleccionas las celdas en la hoja activa y ejecutas la macro. Recuerda valorar la respuesta, Graciass. Sub Reemplazar() Selection.Replace What:="1=", Replacement:="=" End Sub

Coloca el código aquí para ayudarte mejor.

Prueba con este código. Está dentro del evento click del botón y solo tienes que cambiar los nombres de las cajas de texto. Private Sub CommandButton1_Click() Dim Last As Object Set Last = Hoja1.Range("a65536").End(xlUp) Last.Offset(1, 0).Value =...

Coloca el código dentro de la hoja donde quieras que actué. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then If Target.Row = 3 Then MsgBox "Celda bloqueada" End If End If End Sub

Prueba así a ver Sub OCULTAR() Sheets("hoja3").Activate '<-- Cambia el nombre de la hoja Columns("F:R").Select Selection.EntireColumn.Hidden = True End Sub

Prueba con esta a ver si es lo que necesitas. Sub Limpiar() With Sheets("Hoja1") If Sheets("hoja1").Range("K1") = 0 Then .Range("A1:J50").ClearContents End If End With End Sub

Por ejemplo algo así. Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox2.Value = True CheckBox3.Value = True CheckBox4.Value = True Else CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False End If End Sub

¿Entiendo qué los hipervínculos los tienes en la hoja principal y quieres que se oculten todas menos la hoja principal y con la que estés trabajando en ese momento?

Coloca esta línea dentro de un botón para filtrar en la columna H el texto Si Está. Range("H1").AutoFilter , Field:=1, Criteria1:="S*"