Rafael Vera

Le puedes utilizar la siguiente fórmula para calcular los días de vacaciones disfrutados: =SI(DIASEM(B2;2)<=5; SI(DIASEM(A2;2)<=5; B2-A2+1; B2-A2); SI(DIASEM(A2;2)<=5; B2-A2-2; B2-A2-1))

Corregido Dim TestWkbk As Workbook Dim obj As Object If Val(Application.Version) >= 12 Then Set TestWkbk = Nothing On Error Resume Next Set TestWkbk = Workbooks("WinDatePicker.xlam") On Error GoTo 0 If TestWkbk Is Nothing Then MsgBox "Lo siento, el...

No es posible borrar automáticamente el contenido de una celda cuando cambia el valor de otra sin utilizar código o macros. Utilizar la siguiente fórmula en la celda B1: =SI(A1="", "", [fórmula actual de B1])

Private Sub CommandButton5_Click() Sheets("IMPRESIONES").Range("C6").Value = CDbl(TextBox5.Value) Sheets("IMPRESIONES").Range("C3:D48").PrintOut Copies:=1 Unload Me End Sub Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)...

Hay que corregir ActiveCell. Row para obtener el número de fila del rango activo en el evento cmdCargar_Click 'variables a emplear entre los diferentes procedimientos más abajo Dim NumItems As Long Public Sub cmdCargar_Click() ' al hacer doble click...

Puedes usar con Word 2021 Haz clic en el ícono de "Reemplazar" En la pestaña "Reemplazar", deja el campo "Buscar" vacío. Haz clic en el botón "Más >>" para mostrar opciones adicionales. Haz clic en el botón "Formato" y selecciona "Fuente" en el menú...

Necesito tu código y los imágenes para poder solucionar

Aquí tienes tú código corregido: Nombres = Worksheets("Hoja1").Range("E9:F9").Value

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = "u$s " & Format(TextBox1.Value, "#,##0") End Sub No estoy seguro intentalo

¿De dónde es? Debería cambiar configuración regional (ubicación)