Juan Carlos González Chavarría

=SumaProducto((A1:A100=D1)*Max(B:B))

Pon el código que estás utilizando. Yo ayudo a solucionar, no doy soluciones completas.

Pon el código para analizarlo.

Dim MiRango As Range Range("C2").Select Set MiRango = Range(Selection.End(xlDown), Selection.End(xltoRight)).Select For Each Cell In MiRango

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