Juan Carlos González Chavarría

ElseIf u = o Or u <= 75 Then Con esto ya tienes la guía.

Podrías utilizar la función =SUMAPRODUCTO(($A$1:A1<=C1)*$B$1:B1) en la celda D1 y la arrastras hacia abajo y te llevará el saldo que deseas.

ActiveCell.Value = "Quedan " & distancia & " días por transcurrir"

Está un poco difícil por esa forma de guardar datos. La rutina se llevaría rato programarla porque tendría que identificar la forma de distinguir en qué momento es un nombre y cuál un código. Deberías tratar de organizar de otra forma la hoja.

Puedes poner el consecutivo en una variable, pero tendría que ver el código que estás utilizando. El problema es que no se cómo estás guardando tus datos. Dim MiNumero As Long

Puedes usar una celda en la que pongas =Max(B:B)+1, esto te pondrá un tipo consecutivo. TextBox1. Value = Range(TuCelda). Value (es la celda donde pusiste la fórmula anterior). Con esto se evita de paso los repetidos ya que el usuario no tiene que...

Muchas gracias.

Para eso no es necesario ninguna macro, con una Tabla Dinámica puedes hacer eso y mucho más. Datos-Tablas Dinámicas.

Para la primera parte tienes que hacerlos con Formato-Formato Condicional. Aquí escoges el colo que deseas y pones =A1=1. Lo haces tres veces, por ejemplo: =A1=1 Tu color Amarillo =A1=2 Tu color Rojo =A1 = 3 Tu color Azul Para la otra parte pones en...

Tiene que decirle al usuario que en lugar de pegar, se vaya al menú Edición-Pegado Especial y ahí escoge Pegar Valores, con esto no te borra los bordes.