carruina

Añade este código de Visual a la Hoja Excel. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D4").Activate End If End Sub En el evento Change; si la celda que has cambiado es la A1 entonces te envía a la celda D4

Añade este código al botón Private Sub CommandButton1_Click() If IsNumeric(Range("A1")) Then CommandButton1.Caption = ((Range("A1")) * 0.512 * 3.78541 * 42 / 1000) Else MsgBox ("La celda A1 no continen un numero") End If End Sub

Para hacer esto añade el siguiente código a tu hoja Excel Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range If Target.Value = "FIRMADO" Then If MsgBox("¿Quieres eliminar los detalles de este...

Tienes toda la razón respecto a la propiedad autosize, estaba mirando un ComboBox. He estado porbando y no he conseguido que se me redujera el tamaño de un ListBox automáticamente. PAra ello me he añadido un botón con el siguiente código...

La función REDONDEAR cumple con lo que necesitas Redondea un número al número de decimales especificado. Sintaxis REDONDEAR(número;núm_decimales) Número es el número que desea redondear. Núm_decimales especifica el número de dígitos al que desea...