Antoni

Añade esto a tu código: Private Sub ComboBox1_Change(): CalcularVencimiento: End Sub Private Sub TextBox1_Change(): CalcularVencimiento: End Sub '-- Private Sub CalcularVencimiento() If IsDate(TextBox1) And Not ComboBox1.ListIndex = -1 Then TextBox2 = CDate(TextBox1) + Val(LTrim(ComboBox1)) End If End Sub

De eso se trataba ¿No?

No se si e he entendido, pero prueba así a ver que tal: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 17 Then If Not IsDate(Cells(Target.Row, 16383)) Then Cells(Target.Row, 16383) = Now End If If Target.Column = 18 Then If Not IsDate(Cells(Target.Row, 16384)) Then Cells(Target.Row, 16384) = Now End If End Sub

Ya deberías saber que sin archivo es difícil que alguien te conteste. Además debes indicar a que textxboxes se debe cambiar el color y en que circunstancias.

Private Sub CommandButton2_Click() Dim i As Integer, Rango As Range, Rango2 As Range For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then If Rango Is Nothing Then Set Rango = H2.Rows(i + 2) Set Rango2 = H1.Rows(H2.Range("H" & (i + 2))) Else Set Rango = Union(Rango, H2.Rows(i + 2)) Set Rango2 = Union(Rango2, H1.Rows(H2.Range("H" & (i + 2)))) End If End If Next If Not Rango Is Nothing Then Rango.Delete Rango2.Delete If Not H2.Range("A2") = "" Then ListBox1.RowSource = H2.Name & "!A2:H" & H2.Range("A" & Rows.Count).End(xlUp).Row End If End If End Sub

Es esto a algo parecido. determinar horario de horas xD.xlsm

El formulario está hecho en VBA, te dejo un pequeño tutorial: Tutorial VBA En cuanto al calendario, revisa el adjunto. Gastos Mensuales.xlsm

Para ver el formulario, doble-click en C1:E1 en cualquier hoja. Gastos Mensuales.xlsm

No va a poder ser hoy, a ver si tengo un hueco mañana.

Prueba así: Sub EliminarTodosLosRepetidos() Application.ScreenUpdating = False For x = Range("C" & Rows.Count).End(xlUp).Row To 4 Step -1 Set celda = Columns("C").Find(Range("C" & x), , , xlWhole) If Not celda.Address = Range("C" & x).Address Then Range(celda.Row & ":" & Range("C" & x).Row).EntireRow.Delete x = Range("C" & Rows.Count).End(xlUp).Row + 1 End If Next End Sub

Esta función también valdría: Function SumarMeses(Fecha As Date, Meses As Integer) As Date SumarMeses = DateAdd("m", Meses, Fecha) End Function Ejemplo; =SumarMeses(A2;B2) .

Mañana rebusco por ahí, que seguro que tengo algo parecido a lo que estás buscando, eso si, no va a poder ser con el tipo de formulario que propones tal como ya te ha indicado Gabriel.

Al utilizar RowSource, los datos están ligados al rango de la hoja, por este motivo, no pueden eliminarse items directamente del listbox, debes eliminar las filas en la hoja que se corresponden con las filas a eliminar del listbox Private Sub CommandButton2_Click() Dim i As Integer, Rango As Range For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then If Rango Is Nothing Then Set Rango = H2.Rows(i + 2) Else Set Rango = Union(Rango, H2.Rows(i + 2)) End If End If Next If Not Rango Is Nothing Then Rango.Delete If Not H2.Range("A2") = "" Then ListBox1.RowSource = H2.Name & "!A2:H" & H2.Range("A" & Rows.Count).End(xlUp).Row End If End If End Sub .

Añade esta macro en la hoja actual. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address Like "$A$*" Then If Not ActiveCell = "" Then If IsNumeric(ActiveCell) Then SpinButton1 = ActiveCell End If End If End Sub