Luis Mondelo

Te mando mi solución. Vamos a suponer que esas columnas las tenemos en la hoja1. Lo que tienes que hacer es seleccionar con el ratón todas las celdas de esas columnas y después ejecutar esta macro. Te pintará en la hoja2 una lista de todos los...

En la celda donde tienes el uno tienes que poner esta fórmula: ="Faltan: "&B2-hoy()&" días para el vencimiento" (B2 es la celda de la fecha límite) Después tienes que dar de alta un formato condicional en esa misma celda. Posiciónate encima de esa...

Si lo que quieres es ver los días que quedan hasta la fecha límite en tiempo real, deberás poner la siguiente fórmula en la celda donde está el 1: =B2-hoy() (La celda B2 corresponde a la fecha límite) Si esto soluciona tu problema, recuerda finalizar...

Debido a que estás utilizando un control IMAGE insertado en la hoja debes anteponer el objeto hoja delate de image1. La línea correcta sería así: activesheet.Image1.Picture = LoadPicture("C:\Documents and Settings\alejandro\Mis documentos\Mis...

Te mando mi solución y sigue mi ejemplo: tenemos la tabla de datos en las columnas A, B y C desde la fila 1 hacia abajo, siendo la fila1 el encabezado. Queremos saber la suma de incidencias del operario azul entre las fechas 4/11/2009 y 1/4/2010. En...

Te mando mi solución. Copia la siguiente macro en el objeto hoja que estamos trabajando, no en un módulo. Supongo que la hoja se llamará bloques... Private Sub Worksheet_Change(ByVal Target As Range) 'macro creada por luismondelo On Error Resume Next...

Te mando mi solución. Posiciónate en la primera celda de esa columna y ejecuta esta macro: Sub partir() Do While ActiveCell.Value <> "" valor = ActiveCell.Value fila = ActiveCell.Row tope = Len(valor) For x = 1 To tope extrae = Mid(valor, x, 1) If...

Te mando mi solución, sigue mis pasos: En este ejemplo los datos están en la hoja1 ocupando el rango A1:B30 (siendo la primera fila el encabezado). La siguiente macro se recorrerá la columna A fla por fila examinando su contenido y cuando encuentre...

Te mando mi solución. Posiciónate en el primer valor de esa columna y ejecuta esta macro: Sub listado() Do While ActiveCell.Value <> "" If ActiveCell.Value < 0 Then ActiveCell.Offset(0, 1).Value = ActiveCell.Value * -1 End If ActiveCell.Offset(1,...

Juan los textbox, como su nombre indica, solo admiten texto. Si queremos escribir otras cosas debemos "explicarle" a excel de qué dato se trata. En nuestro caso tenemos que vigilar la introducción de la barra /. Te adjunto la macro que deberás...