Adriel Ortiz Mangia

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

Prueba la macro Sub Macro1() ' ' AOM Application.ScreenUpdating = False Columns("E:G").ClearContents Range("A1:B100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _ ), Unique:=True Range("G1") = Range("C1") With Range("G2:G" &...

[Hola prueba con esto Sub Macro1() ' ' AOM Application.ScreenUpdating = False Columns("E:G").ClearContents Range("A1:B100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _ ), Unique:=True Range("G1") = Range("C1") With Range("G2:G" &...

[Hola va la macro Sub mostrar() For Each h In Sheets Select Case h.Name Case "Hoja2", "Hoja3 ' para mantener ocultas" Case Else h.Visible = True ' para hacer visible las hojas End Select Next End Sub Puntuar para cerrar la pregunta..