Dante Amor

H o l a: Te anexo las macros actualizadas para generar los archivos 1 y 2 Sub Generar() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("BASE") Set h2 = Sheets("ARCHIVO") Set h3 =...

H o l a: El formato de fecha tiene diagonales "/" y el formato de hora tiene dos puntos ":", ambos caracteres no son permitidos en los nombres de los archivos, es por eso que te envía error. Lo que se hace en estos casos es cambiar la diagonal y los...

H o l a: Pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por.Dante Amor If Not Intersect(Target, Range("A1:Z30")) Is Nothing Then If Not IsNumeric(Target.Value) Then...

H o l a: Te anexo las macros Sub Generar() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("BASE") Set h2 = Sheets("ARCHIVO") Set h3 = Sheets("VARIABLES") Set h4 = Sheets("SALIDA")...

H o l a: Quieres que verifique en estas columnas: K, N, Q, T, W, Z. AC, AF, AI, AL, AO, AR Pero si más de una tiene 7 o menor a siete, qué debe hacer, enviar únicamente un correo o enviar varios correos.

H o l a: Si tienes estas líneas: dam.To = Range("B" & i) 'Destinatarios dam.CC = Range("C" & i) 'Con copia dam.Bcc = Range("D" & i) 'Con copia oculta dam.Subject = Range("E" & i) '"Asunto" dam.body = Range("F" & i) '"Cuerpo del mensaje" ' For j = col...

H o l a: Te anexo la macro actualizada. Según la macro que pusiste, en la celda D11 vas a poner el nombre del archivo, si la celda está vacía te va a enviar un mensaje. Sub Macro() ActiveWindow. SelectedSheets. PrintPreview ExecuteExcel4Macro...

H o l a: Te anexo la macro: Sub EnviarCorreos() 'Por.Dante Amor 'Enviar por GMAIL Dim Email As CDO.Message ' correo = "[email protected]" passwd = "tupassword" ' For i = 11 To Range("K" & Rows.Count).End(xlUp).Row If Not IsError(Cells(i, "K")) Then...

H o l a: Envíame tu archivo en un nuevo correo. En una hoja me pones los filtros aplicados. En otra hoja me pones los mismos filtros aplicados, pero en esta hoja debes ocultar las flechas del filtro y me dices cómo haces para que las flechas del...

H o l a: Te anexo la macro. Cambia el rango "A:B" por el rango donde están los caracteres a sustituir. Nota: El ascii 255 es el carácter 160 Sub Reemplazar() 'Por.Dante Amor r = "A:B" c = Array("Á", "É", "Í", "Ó", "Ú", "á", "é", "í", "ó", "ó", " ",...