Dante Amor

H o l a : Tengo algunas dudas, me las respondes en el siguiente orden: 1. ¿Quieres combinar los textos de la columna K y dejar todos los textos en una celda de la columna L? 2. ¿Los textos siempre empiezan con el color rojo? 3. O se puede tomar como...

Te anexo la macro actualizada Sub Imprimir_Click() 'Act.Por.Dante Amor num = InputBox("Escribe el número de folios a imprimir", "IMPRIME FOLIOS") If num = "" Or num = False Or num = 0 Or Not IsNumeric(num) Then MsgBox "Impresión cancelda",...

H o l a : No necesitas ningún botón, se puede realizar el filtro se utilizas los eventos change de los combobox. Te anexo el código: Private Sub cmbMomento_Change() Call filtrar End Sub Private Sub cmbTipo_Change() Call filtrar End Sub Private Sub...

La macro que pusiste tiene algunos errores. Por ejemplo, tienes esta línea: For Each Sheets La palabra "Sheets" está reservada para los objetos de las hojas, entonces no la puedes utilizar como variable. Puedes poner algo como esto: For Each hoja In...

Te anexo el código. Nota: Los nombres de los checkbox "checkboxtodos", "checkboxvideo", "checkboxadjunto", los puse en minúsculas, ya que también estoy poniendo en minúsculas el nombre: LCase(ctrl. Name), de esa forma puede coincidir el nombre. Es...

H o la: El primer caso no existe; estás poniendo 31 de noviembre y esa fecha no existe. ¿Es necesario poner el formato condicional con macro? La otra forma es que pongas el formato condicional desde del menú de formato condicional. ¿O puedes poner el...

H o l a : Tengo una aplicación para enviar correos masivos, pero tendrías que adaptar tu información a la aplicación, o bien, tendría que crear una aplicación nueva para tu archivo. Envíame tu archivo con ejemplos completos de lo que tienes y de lo...

H o l a: Te anexo la macro, te copia la hoja y te pone el nombre en la nueva hoja. Cambia en la macro "distribución" por el nombre de la hoja que quieras copiar. "D1" por la celda que contiene el nombre de la hoja. La macro además te guarda el...

Te anexo la macro Sub ocultar() 'Por.Dante Amor For i = Range("E" & Rows.Count).End(xlUp).Row To 4 Step -1 If LCase(Cells(i, "E")) = "no" Then Rows(i).Hidden = True End If Next End Sub Si el caso es más complejo como lo indicas, entonces podrías...

Te anexo la macro. Valida si existe la carpeta, si tienes datos en la ruta y el nombre. Si todo está bien, el archivo pdf se envía por outlook Sub exportarPDF2() 'Act.Por.Dante Amor ruta = Cells(48, 5).Value nombre = Cells(47, 5).Value destinatario =...