Hola queridos amgios, un saludo muy cordial , estoy mejorando una aplicaciosita en excel que la vez pasado me ayudaron, esto es para mi objetos perdidos, bueno el problema es:

1.Tengo dos TextBox, uno donde pongo la fecha donde se econtro el objeto olvidado y otra textbox donde aparece una fecha limite para tenerlo almacenado que son 90 Dias , y en esta quiero que automaticamente me le sume los 90 dias al textbox1, para que el textbox2 se almacene la fecha de caducidad, tengo este codigo :

este codigo lo tengo en textbox3 que la descripcion del objeto

Private Sub TextBox3_Change() TextBox1.Value = ""

If TextBox1.Value > 0 Then

TbExpireDate = CDate(TextBox1.Value) + 90

End If

End Sub

Pero me da error Type Mismacth y no se por que .

La otra es que he querido ponerle el calendario de macro antonio pero no me da la fecha actual simpre me pone la fecha de enero .

de antemano muchos gracias por su tiempo y concideracion, apreciare mucho su ayuda .

Objetos Perdidos 2.0.rar

Hola:

Elimina este procedimiento

[COLOR=#333333]Private Sub TextBox3_Change()


TextBox1.Value = ""[/COLOR]

[COLOR=#333333]If TextBox1.Value > 0 Then[/COLOR]

   [COLOR=#333333]TbExpireDate = CDate(TextBox1.Value) + 90[/COLOR]

[COLOR=#333333]End If[/COLOR]


[COLOR=#333333]End Sub[/COLOR]

[/CODE]

y añade este:

[CODE]Private Sub TextBox1_Change()

If Len(TextBox1.Value) = 10 And IsDate(TextBox1.Value) Then
TbExpireDate = CDate(TextBox1.Value) + 90
TextBox2.SetFocus
End If

End Sub[/CODE]

Saludos

Muchas Gracias Macro Antonio me funciono perfecto , eres grande . Saludos tambien