Adriel Ortiz Mangia

Prueba la macro Sub macro1() dato = ComboBox1.Text Select Case dato Case "x": Sheets("Hoja1").Select Case "y": Sheets("Hoja2").Select End Select End Sub

Prueba esto Private Sub MultiPage1_Click(ByVal Index As Long) 'page1 es index = 0 'page2 es index = 1 '... If Index = 1 Then Call macro End Sub

Prueba la macro Sub valida() rango = Array("B13", "D13", "E13", "F13", "B15", "D15", "F15") For i = LBound(rango) To UBound(rango) If Range(rango(i)) = "" Then MsgBox "Celda " & Range(rango(i)).Address(False, False) & " vacía" Exit Sub End If Next i...

Prueba la macro Sub macro() ' For Each r In Range("D2:Q20") If r.Value < 1000 Then r.Value = 0 Next r mgbox "fin" End Sub

No se puede poner una línea de cabecera fuera del rango de la propiedad .RowSource. Solución un Label en la parte superior del ListBox con la propiedad .ColumnHeads = False, problema, el Label es fijo

Prueba la macro Sub generando_word() ruta = "D:\Desktop\Corporativas\Corrrespondecia Determinado.docm" ruta2 = "C:\Documentos\PDFS\" 'ruta donde se va guardar el pdf nombre = "DOC_PDF" Set objWord = CreateObject("Word.Application") objWord.Visible =...

Puedes explicar con otro ejemplo

Antes de ruta pon Sub CrearCarpetas() On Error Resume Next ' '

Prueba la macro, lo pones en el evento initialize el código será en automático Private Sub UserForm_Initialize() Set h = Sheets("Hoja1") ' u = Range("A" & Rows.Count).End(xlUp).Row + 1 cod = WorksheetFunction.Max(h.Range("A2:A" & u - 1)) If Not...

[Hola Selecciona el Rango A1:C5 y empieza a digitar tus datos utilizando enter sin quitar la selección