Dante Amor

H o l a: Pon lo siguiente en los eventos de tu libro Private Sub Workbook_BeforePrint(Cancel As Boolean) Call macro1 End Sub Cambia macro1 por el nombre de la macro que deseas ejecutar, la macro1 se ejecutará y después se enviará a la impresión....

H o l a: Puedes explicar con ejemplos o con imágenes lo que tienes y lo que esperas de resultado.

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

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: 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 &...

Puedes poner el ejemplo completo con los resultados para cuando son 3 días.

H o l a: Te anexo la macro para pegar la imagen. Antes de ejecutar la macro, primero copia la imagen de internet, regresa a excel, selecciona la celda en dónde quieres la imagen, ejecuta la macro. Sub PegaImagen() 'Por.Dante Amor dire =...

H o l a: Te anexo la macro actualizada. El resultado te lo pone en la fila 2, empieza en la columna A, el siguiente resultado en la misma 2 pero en la columna B, luego la C, etc. Sub Macro1() 'Act.Por.Dante Amor Set h1 = Sheets("TxvsFunct") Set h2 =...

H o l a: Te anexo la macro Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor Set r = Range("C5:E10") i = r.Cells(1, 1).Row f = r.Rows.Count + i - 1 With r.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With If...