Eduard Caballero

¿Contra quién va a comparar? ¿Con un valor en otra celda? ¿Con el valor superior? Según lo que entiendo supondré que hay una serie de datos iguales en la hoja1 y en misma columna A entonces coloca la siguiente macro. Sub separa() Sheets(1).Select...

Aca tienes informacion http://www.gerencie.com/sumar-en-excel-segun-el-color-de-la-celda.html...

Por ejemplo para ocultar el libro1 y mostrar el userform 1 Windows(libro1.xlsm").Visible = False UserForm1.Show

Prueba esto. Creo que hace lo que quieres Sheets(1).Range("A1").Select If ActiveCell = "" Then MsgBox "No hay datos en A1" Exit Sub End If Selection.Cut linea: For i = 1 To 10 Cells(9 + n, i + 4).Select If Cells(9 + n, i + 4) = "" Then...

Aquí tienes información sobre eso http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/2760481/enviar-libro-diferente-al-de-la-macro-por-outlook

Prueba así a ver =si(c2>hoy();"CONFORME";SI(C2<hoy();"CADUCADO";SI((hoy()-A3)<90;"PLANIFICAR";"")))

¿Qué error te da? Verifica que tu consiguracion regional sea ; y no, (coma). En caso de ser , debes escribir la formula +si(A3=A2,"no","ok")

Si es para un presupuesto yo crearía una lista desplegable para el código del producto. Para agregar los demás datos usaría la función buscarv sobre la base de datos. (El problema quizá seria la imagen) En cada fila de la planilla de presupuesto lo...

Colocalo así Worksheets("Libro de Compra"). Cells(9, 8). Value =UCase(Format(Date, "mmmm yyyy"))

Esta programando allí como si estuvieses en la celda de una hoja Yo te propondría lo siguiente Sub busca() Dim valor As String Dim Rng As Range If Range("o3") = "" Then valor = Range("N3") With Sheets("Hoja1").Range("A:A") Set Rng =...