Dante Amor

Con la siguiente macro puedes enviar diferente archivos a diferentes correos. '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam =...

Si vas a enviar los correos, puedes utilizar la aplicación que desarrollé para enviar varios correos, con el mismo asunto y con los mismos archivos, o varios correos, diferentes asuntos y diferentes archivos. En el archivo anexo hay comentarios con...

Envíame tu archivo y en me explicas con colores y comentarios lo siguiente: 1. En dónde está el o los destinatarios. 2. Un ejemplo del asunto, en este ejemplo me explicas lo del rango de fechas. 3. Un ejemplo del cuerpo, en este ejemplo me explicas...

El motivo es porque estás intentando traer una rango de celdas: $S$10:$T$10 Y en una celda solamente puedes poner la referencia de otra celda, puede ser así: ='[Turnos - Lic. Aranda 06-2015.xlsm]Planillas'!$S$10 O así: ='[Turnos - Lic. Aranda...

Sí es posible, pero tengo estas dudas: 1. ¿Y de dónde se va tomando cada una de las 20 empresas? 2. ¿En cuál columna están las empresas? 3. ¿Y cuál es el nombre que va llevar cada archivo? 4. Por lo que veo el nombre lo toma de la celda BB2,...

Te anexo la macro actualizada Si quieres esto 49, 50, 49, 48... 1, 1, 2,... En este caso el número 1 se repite. Utiliza la siguiente macro: Sub CONSECUTIVO() 'x Elsamatilde 'se llena la col A a partir de fila 2. ini = 13 'se llena hasta llegar a la...

Intenta nuevamente abrir el archivo en la pc y apunta el mensaje de error. Sin el mensaje es difícil saber qué está pasando. Serían puras suposiciones: el antivirus, el pendrive no se instaló bien, no está actualizado el windows, etc.

¿Y qué mensaje de error te aparece? Prueba con lo siguiente y me comentas. Sub SeleccionarHoja() 'Por.Dante Amor SucursaABuscar = ActiveCell.Value For Each h In Sheets If h.Name = SucursaABuscar Then existe = True Next If existe Then...

Podemos ir por pasos, ¿qué necesitas? ¿Un formulario o una alerta?

Te anexo la macro para el punto 1. En los eventos de thisworkbook pon lo siguiente: Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor Respaldo End Sub Ahora, en un módulo pon las siguientes macros: Sub Respaldo() 'Por.Dante Amor...