Rafael Vera

Puedes utilizar el siguiente código: Sub IMPRIMECTAPDF() Dim wsDesprendible As Worksheet Dim wsDatos As Worksheet Dim r As Long Dim n As Long Application.ScreenUpdating = False ' Desproteger la hoja Desprendible Set wsDesprendible =...

Private Sub CommandButton1_Click() If TextBox1.Value = "" Then TextBox2.SetFocus Else ActiveSheet.Unprotect Range("AO8") = TextBox1.Value Range("AO5:AP15").PrintOut Copies:=1 Range("AO6") = "" ActiveSheet.Protect End If End Sub

El código lo tengo de la siguiente manera: Sub InsertarUsuario() Dim oSel As Object Dim oDir As Object Dim oHoja As Object Dim lCol As Long Dim uSuario As String ' Obtener el nombre de usuario de Windows uSuario = Environ("USERNAME") ' Cambiar por la...

Aquí tienes el código actualizado Sub macro() Dim sh1 As Worksheet, sh2 As Worksheet Dim celda As Range, lastRow As Range Application.ScreenUpdating = False Set sh1 = Sheets("Valores") Set sh2 = Sheets("Resultados") sh1.Select Set celda = ActiveCell...

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ú...