11/11/2003, 03:05
|
 | | | Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 22 años Puntos: 0 | |
| Hola bleid
otra forma de hacerlo:
Dim I_num As Long
'Asegúrate que solo se teclean números
If Text1 <> "" And Text2 <> "" And Text1 <= Text2 Then
For I_num = Text1 To Text2
If I_num Mod 2 = 0 Then
Text3 = Text3 + I_num
End If
Next
End If
Un saludo |