Dante Amor

Revisa lo siguiente: Enviar correos con condición desde Outlook con Excel Es muy común que tengas que enviar varios correos dependiendo de una condición, por ejemplo, puede ser un estatus. Cuando tu lista de registros a revisar es considerablemente...

Te anexo la macro Cambia en estas líneas los nombres de tus hojas Set h1 = Sheets("Hoja1") 'hoja con todas las casas Set h2 = Sheets("Hoja2") 'hoja con la lista de no. casa a eliminar la macro te pone en la "hoja2" en la columna "D" un mensaje con el...

¿Quieres copiar la línea en la misma hoja o son hojas diferentes? ¿Quieres copiarla o moverla al final?

Revisa el siguiente vídeo para insertar imágenes https://www.youtube.com/watch?v=whowlh7SKKs&feature=youtu.be El vídeo es para la versión excel 2010, pero si tienes 2007, en lugar de insertar la imagen en una celda tienes que insertar la imagen en un...

En lo posible no utilices On Error Resume Next Prueba con lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H9, H16, H24")) Is Nothing Then 'defino la ruta de acceso a las fotos: Ruta =...

Cuando insertas una línea o una columna en Target tienes cientos de celdas, entonces Target se convierte en un objeto, por eso no puedes comparar el objeto con un texto, por eso el error dice : "no coinciden los tipos" Te anexo la macro actualizada...

Envíame tu archivo y con ejemplos marca cuáles registros vas a copiar de "NC" a "Calculo". Luego con otro color me marcas qué datos copiarías de "BBDD" a "BDD" Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Ricardo...

Te anexo la macro Sub Poner_Formato() ' ' Por Dante Amor ' Application.ScreenUpdating = False Set b = Columns("A").Find("Fecha", LookAt:=xlWhole) If Not b Is Nothing Then celda = b.Address Do Rows(4).Copy Range("A" & b.Row).PasteSpecial...

Te anexo la macro actualizada Sub negrita() Dim celdaActual As Object For Each celdaActual In Range("A5:c18") If celdaActual.Value = "BASE DE DATOS ACTUAL" Then celdaActual.Font.Bold = True celdaActual.Font.Size = 14 Else celdaActual.Font.Bold =...

Al inicio de la macro estableces la impresora que vas a ocupar, imprimes y después regresas a la impresora predeterminada Sub macro1() ' 'al inicio de tu módulo 'establecer hoja ' activa = Application.ActivePrinter impresora =...