Dante Amor

H o l a: En tu ejemplo puedes tener números 333 y también puedes tener letras AAA, en ese caso se le agrega un 0 (cero) antes del valor que tenga la celda, es decir, quedaría así: 0333 0AAA Te preparé la macro para los casos cuando la celda tiene 3...

Envíame un corro nuevo con el archivo. Mejor agrega el archivo en el correo, ya que no lo puedo descargar desde tu enlace. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Motor Mac” y el título de esta pregunta.

H o l a: Te anexo la macro. Cambia en la macro "Hoja1" por el nombre de la hoja que contiene la fórmula. Sub CopiarFormula() 'Por.Dante Amo Set h1 = Sheets("Hoja1") h1.Range("F3").Copy For Each h In Sheets u = h.Range("B" & Rows.Count).End(xlUp).Row...

H o l a: En este punto: " SI es DVENT, que tome el primer registro de columna J, que es el número de Factura y lo vaya a buscar en la columna H de la hoja (Factura), si lo encuentra que no haga nada, pero si no lo encuentra que vaya a la última celda...

H o l a: Pon la siguiente macro en los eventos de la hoja "Boletos". Para que funcione mejor la macro, deberás tener abierto el libro "cuentas por cobrar" en la misma aplicación de excel donde tienes abierto el libro "caja" Private Sub...

H o l a: Te anexo la macro. Pon tus datos en la "Hoja1" en la columna "A". En la "Hoja2" te pondrá los resultados. Sub ExtraerDatos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear col = "A" una = False For i = 1...

H o l a: Reviso el archivo y te envío la respuesta. Sal u dos

H o l a: Envíame tu archivo y me explicas con comentarios y colores lo que está pasando. En una nueva hoja pon la hoja "CDA motos" con el resultado que esperas

H o l a: Te anexo la macro Sub GuardarPdf() 'Por.Dante Amor activa = ActiveSheet.Name For Each h In Sheets If h.[A1] = "Print" Then If una = False Then h.Select una = True Else h.Select False End If End If Next If una Then ruta = ThisWorkbook.Path &...

H o l a: No está la macro completa, pero supongo que al principio tienes está línea: Set Email = New CDO.Message Pasa esa línea abajo de estas líneas: For D = 3 To 58 If Range("L" & D).Value = "" Then Set Email = New CDO.Message Prueba y me comentas....