Llenar textbox según otro textbox en un userform
Estimados amigos del foro en un userform tengo varios textbox que depende de la información que ponga en el textbox7. La información que ingreso en el textbox7 es código numérico pero como entra al texbox no se si ponerlo como formato texto en la hoja.
El código para hacer funcionar esta en un botón, es este con el intento para formato numero:
Private Sub CommandButton1_Click()
Dim I As String
I = VBA.CDbl(TextBox7)
For I = VBA.CDbl(TextBox7) To 100
If TextBox7.Value = Sheets("Entrada").Cells(I + 2, 2).Value Then
TextBox1.Value = Sheets("Entrada").Cells(I + 2, 3).Value
TextBox2.Value = Sheets("Entrada").Cells(I + 2, 6).Value
TextBox3.Value = Sheets("Entrada").Cells(I + 2, 7).Value
TextBox4.Value = Sheets("Entrada").Cells(I + 2, 8).Value
TextBox5.Value = Sheets("Entrada").Cells(I + 2, 9).Value
TextBox6.Value = Sheets("Entrada").Cells(I + 2, 10).Value
Exit For
End If
Next
End Suby este para fomato texto:
Private Sub CommandButton1_Click()
For I = 1 To 100
If TextBox7.Text = Sheets("Entrada").Cells(I + 2, 2).Value Then
TextBox1.Text = Sheets("Entrada").Cells(I + 2, 3).Value
TextBox2.Text = Sheets("Entrada").Cells(I + 2, 6).Value
TextBox3.Text = Sheets("Entrada").Cells(I + 2, 7).Value
TextBox4.Text = Sheets("Entrada").Cells(I + 2, 8).Value
TextBox5.Text = Sheets("Entrada").Cells(I + 2, 9).Value
TextBox6.Text = Sheets("Entrada").Cells(I + 2, 10).Value
Exit For
End If
Next
End SubNinguno funciona, ¿Qué esta mal?
1 Respuesta
Envíame tu archivo con tu formulario. Explícame con un ejemplo qué número tengo que poner en el textbox7 y qué datos esperas de resultado.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Vi sor” y el título de esta pregunta.
Gracias por tu colaboración ya he subido el archivo a tu correo.
H o l a:
Te anexo la macro actualizada
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("INGRESO")
Set b = Columns("B").Find(TextBox7, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox1 = h.Cells(b.Row, 3) 'Cédula
TextBox2 = h.Cells(b.Row, 6) 'S.S.
TextBox3 = h.Cells(b.Row, 7) 'S.E.
TextBox4 = h.Cells(b.Row, 8) 'I.R.
TextBox5 = h.Cells(b.Row, 9) 'DESC. #1
TextBox6 = h.Cells(b.Row, 10) 'DESC. #2
Else
MsgBox "Código no existe"
End If
TextBox7.SetFocus
End Sub':) ':)
¡Gracias! Claro de ninguna manero me lo hubiera imaginado aquella solución. He a aprendido este nuevo modo para resolver estos casos. Estoy muy agradecido por tu apoyo.
