Dante Amor

Para borrar una celda y para que sea en automático debe ser con un código VBA en los eventos de la hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Set r = Intersect(Range("Q:Q"), Target) If Not r Is Nothing Then Dim c As...

1. Pon aquí tu fórmula. 2. Pon una imagen con los datos, procura que se vean las filas y las columnas de excel, si son datos confidenciales, reemplaza con datos genéricos. 3. Explica qué hace tu fórmula 4. Pon el resultado. Es importante que pongas...

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

Observa como puse los rangos empezando en la fila 2, terminan en la última fila con datos de la hoja1. Por supuesto, puedes ejecutar la macro en cualquier otra hoja. Sub Extraer_No_Repetidos() Dim sh As Worksheet Dim dic As Object, ky As Variant,...

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 lo siguiente. - Cambia en la macro la carpeta donde tienes tu adobe acrobar "C:\Program Files\Adobe\Reader 11.0\Reader\" - Cambia en la macro en nombre del programa Acrobat Reader "AcroRd32.exe Sub ImprimirPdfs() 'Por.Dante Amor Dim ruta As...