Victor Perdomo

ActiveCell.FormulaLocal = "=si(d10>e10;""pendiente"";""vencido"")"

Sub InsertaImagen() Dim miFoto On Error Resume Next ActiveSheet.Unprotect "tu_clave" ' busca en el directorio el archivo de imagen a cargar miFoto = Application.GetOpenFilename 'se selecciona la celda donde deba ser ubicada la imagen...

Este código te puede servir, solo tienes que cambiar un par de cosas 1. Busca la linea donde esta password y pon el pass de tu cuenta hotmail. 2.En la linea To. Pon el destinatario 3.En la linea from puedes poner cualquier dirección 3. En .textbody...

Prueba de esta manera =SI(O(Y(L5>=D2;K5<>"NP");Y(G5="FP";K5="OK"));"Aprobado";"suspenso")

Pon así: .To=Range("K12").value

Hay varias soluciones, por ejemplo define a tabla1 como string en vez de range Dim tabla1 as string Y en vez de Set tabla1=Range("I47") pones tabla1 = Application.WorksheetFunction.Text(Range("I47"), "00%")

Es bastante extraño, quizás es cuestión de referencias, ve a herramientas-referencias, y verifica que estén cargadas as estándar que son: visual Basic for Applications, Microsoft excel 11.0 Object Library, OLE Automation, Mcrosoft Office 11.0 Object...

Tienes que consultar este vinculo http://www.cpearson.com/Excel/vbe.aspx Si tienes alguna duda comentame.

En mi opinión, no te lies con la idea de resaltar celdas, de todos modos te tocaría ponerte a buscar las celdas de colores. Es mejor realizar un filtro avanzado, pero para esto quita la columna c y ponla en otra hoja y ponle como encabezado el mismo...

Me pareció bastante interesante tu pregunta, realmente no me había percatado de ello, investigue y encontré que esto en la ayuda de MSEXCEL "Para devolver a los elementos su orden original, haga clic en Orden del origen de datos. Esta opción sólo...