Dante Amor

Prueba esto: Sub GuardarPdf() ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\trabajo\" & Range("D5"), 0, True, False, , , False End Sub

Si quieres saber cuáles nombres están repetidos, entonces: Sub Mostrar_Repetidos() Dim c As Range, dic As Object Set dic = CreateObject("Scripting.Dictionary") dic.comparemode = vbTextCompare For Each c In Range("A2", Range("A" & Rows.Count).End(3))...

Me ruta cada vez es distinta. Porque esos ficheros se crean desde ese excel ¿Tienes una macro para crear el archivo excel? ¿En ese momento quieres enviar el archivo por correo? ¿Puedes poner ejemplos de los nombres de carpetas? También escribe aquí...

Quiero que me borre de la hoja1 todos los registros que en mi columna 1 coincidan con los datos de la columna 1 de hoja2. La siguiente macro supone que, en ambas hojas, los registros empiezan en A2 y tienes los encabezados en la fila 1. Realiza una...

¿Y para qué la quieres en un módulo? Está diseñada para funcionar en un formulario con sus controles: If txtFiltro1 = "" Or cmbEncabezado = "" Then Exit Sub j = cmbEncabezado.ListIndex + 1 If IsNumeric(txtFiltro1) Then crit = txtFiltro1 Else crit =...

Prueba la siguiente macro: Sub Generar_Pdfs() Dim c As Range, n As Long, sRuta As String, sArch As String sRuta = "C:\Horarios\PDFOut\" With Sheets("Horario-Cursos") For Each c In Sheets("BASE").Range("V2:V19") .Range("D9").Value = c.Value n = n + 1...

Prueba la siguiente macro. Pon los archivos txt en una carpeta. Los archivos modificados quedarán en otra carpeta. Cambia en el nombre de las carpetas en estas líneas: sPathIn = "C:\trabajo\Folder1\" 'Ruta con archivos origen sPathOu =...

Mi código me da un fallo al rato de estar usando la aplicación, ¿Qué mensaje de error te aparece? ¿Y en cuál fila del código se detiene?

Prueba esto: Range("AA3:AA" & uf).Value = Range("AA2").Value

Prueba lo siguiente, cambia "macro" por el nombre de tu macro que quieres ejecutar cada 30 minutos Sub repetir() If Time >= TimeValue("10:00:00") And Time <= TimeValue("17:00:00") Then Call macro End If Application.OnTime Now + TimeValue("00:30:00"),...