Victor Perdomo

Prueba cambiando la linea M = Date * Month(Date) * Day(Date) 'Clave que deseo '

Te cuento que el control textbox no tiene evento para un click, solo para dobleclick, es mejor que uses un botón de alternar (togglebutton). Con este código puedes alternar el valor caption del togglebutton Private Sub ToggleButton1_Click() If...

Prueba así If Range("ENTRADAS!hh1").Value <= date Then Macro2 Exit Sub End If

Prueba esto, cambia la celda A1 por la primera de tu columna, asígnale una letra a la macro (ctrl+f8-opciones). Buscara las repeticiones de la celda que tengas actualmente seleccionada y mostrara las repeticiones en un msgbox. Sub buscarx()...

Selecciona a celda o filas en la que quieres inserta y le das ctrl +, ctrl - te sirve para eliminar. Para repetir la ultima acción es con f4.

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

Prueba lo siguiente, selecciona una parte con la varita mágica, luego dale click derecho y le das similar. Puedes ajustar que tan parecido sera las otras zonas a seleccionar, cambiando el valor de la tolerancia.

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")