Programación de los botones Consultar y actualizar
Tenga un feliz inicio de semana,
Amigo, necesito su ayuda para los procedimiento de los botones Consulta y Actualizar. Envió vía correo el archivo guardado en Macros.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código para la consulta.
Private Sub cmdConsultar_Click()
'Por.Dante Amor
If txtEquipo = "" Then
MsgBox "Captura un nombre de equipo"
Exit Sub
End If
'
Set h = Sheets("RecopilaEquipo")
Set b = h.Rows(2).Find(txtEquipo, lookat:=xlWhole)
If b Is Nothing Then
MsgBox "El nombre de equipo no existe"
Exit Sub
End If
'
col = b.Column
For i = 1 To 20
Me.Controls("txtJugador" & i).Value = h.Cells(i + 2, col).Value
Me.Controls("txtCta" & i).Value = h.Cells(i + 2, col + 1).Value
Next
End SubCon mucho gusto te ayudo con todas tus peticiones.
Valora esta respuesta y crea una nueva pregunta para Actualizar. En el desarrollo de la pregunta escribe: "para Dante Amor".
Sal u dos
