Denisse
31 de Marzo del 2004

necesito codigo para validar q mi fecha sea menor que la anterior
y que solo me permita ingresar n° en la celda.

mi codigo es el siguiente:


Private Sub grilla_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
Dim valor, valor1, valor2, valor_nuevo As String
Dim dia, mes, año As String
Dim valido As String

' If InStr(valido, Chr(KeyAscii)) = 0 Then
'keyascci = 0
'End If
If grilla.Col = (5) Then


valor1 = Trim(grilla.Columns(5).Value)
Caracter = Len(valor1)
If Caracter <= 10 Then
KeyAscii = 0
If IsDate(valor1) = False Then
If valor1 <> "" Then
dia = Mid(valor1, 1, 2)
mes = Mid(valor1, 3, 2)
año = Mid(valor1, 5, 4)
valor1 = dia & "/" & mes & "/" & año
grilla.Columns(5) = valor1

End If
End If
Else



MsgBox (grilla.Text & " NO es una fecha válida." & " Ingrese un maximo de 10 caracteres para la fecha")
End If
End If
end sub


espero me puedan ayudar queridos amigos...