Adriel Ortiz Mangia

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 Private Sub Workbook_Open() Dim usuario, Clave As String Set P = Sheets("USUARIOS") usuario = InputBox("POR FAVOR INGRESE SU NOMBRE DE USUARIO", "USUARIO") Clave = InputBox("POR FAVOR INGRESE SU CONTRASEÑA", "CONTRASEÑA") If usuario =...

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 Sub macro() For i = 11 To 27 If WorksheetFunction.IsText(Cells(i, "A")) Then Cells(i, "H").FormulaR1C1 = _ "=IFERROR(VLOOKUP(R[14]C[-5],Hoja2!C[-5]:C,6,FALSE),"""")" End If Next i MsgBox "Terminado" End Sub

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

H o l a va la macro Sub duplicar() 'AOM Set h1 = Sheets("Hoja1") 'nombre de hoja modelo Set h2 = Sheets("Hoja2") 'nombre de hoja listado ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row ' h1.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)...