text2 es un valor de la tabla que esta abajo....
Código:
Private Sub cmdcalcularu_Click()
If (txt1.Text = 0) Then
MsgBox "Debe ser un número mayor que cero", 48, "Atencion"
txt1.Text = ""
txt1.SetFocus
Else
If (txt1.Text <= 200) Then
txt2.Text = 1500
Else
If (txt1.Text >= 201) And (txt1.Text <= 300) Then
txt2.Text = 1700
txt1.SetFocus
Else
If (txt1.Text >= 301) And (txt1.Text <= 400) Then
txt2.Text = 1900
txt1.SetFocus
Else
If (txt1.Text >= 401) And (txt1.Text <= 500) Then
txt2.Text = 2100
txt1.SetFocus
Else
If (txt1.Text >= 501) And (txt1.Text <= 600) Then
txt2.Text = 2200
txt1.SetFocus
Else
If (txt1.Text >= 601) And (txt1.Text <= 700) Then
txt2.Text = 2300
txt1.SetFocus
Else
If (txt1.Text >= 701) And (txt1.Text <= 800) Then
txt2.Text = 2400
txt1.SetFocus
Else
If (txt1.Text >= 801) And (txt1.Text <= 900) Then
txt2.Text = 2500
txt1.SetFocus
Else
If (txt1.Text >= 901) And (txt1.Text <= 1000) Then
txt2.Text = 2600
txt1.SetFocus
Else
If (txt1.Text >= 1001) And (txt1.Text <= 1200) Then
txt2.Text = 2800
txt1.SetFocus
Else
If (txt1.Text >= 1201) And (txt1.Text <= 1400) Then
txt2.Text = 3000
txt1.SetFocus
Else
If (txt1.Text >= 1401) And (txt1.Text <= 1700) Then
txt2.Text = 3400
txt1.SetFocus
Else
If (txt1.Text >= 1701) And (txt1.Text <= 2000) Then
txt2.Text = 3800
txt1.SetFocus
Else
If (txt1.Text >= 2001) And (txt1.Text <= 2500) Then
txt2.Text = 4500
txt1.SetFocus
Else
If (txt1.Text >= 2501) And (txt1.Text <= 3000) Then
txt2.Text = 5000
txt1.SetFocus
End Sub
ahora despues de eso necesito que cuando txt1 sea mayor que 3000 al txt2 sea
con la condicion que se me muestra en la siguiente tabla donde txt1 es el area total de la parcela y txt2 la dotacion total de agua correspondient e en 1 dia
aqui esta la imagen de la tabla
http://img189.imageshack.us/i/tablak.jpg/
PD: en el code no he cerrado los if con sus respectivos End If