Procedimiento para el botón Actualizar
Para Dante.
Dante, agradezco tu ayuda en el procedimiento del botón actualizar correspondiente al frmInsertarEquipos.
Hago llegar el archivo guardado en Excel, vía correo
Gracias de antemanos
Saludos.
Eduardo Gimenez
1 respuesta
Respuesta de Dante Amor
1
Te anexo el código para actualizar
Private Sub cmdActualizar_Click()
'Por.Dante Amor
'Actualizar
If optActualizar = False Then
MsgBox "Por favor seleccione opción Actualizar", vbInformation, "Informacion Importante"
Exit Sub
End If
'
If txtEquipo.Value = "" Then
MsgBox "Por favor ingresar el nombre de equipo", vbExclamation, "Informacion Importante"
txtEquipo.SetFocus
Exit Sub
End If
'
'Garantizar registro de equipo con sus respectivos jugadore
For i = 1 To 20
If Me.Controls("txtJugador" & i).Value = "" Or Me.Controls("txtCta" & i).Value = "" Then
MsgBox "Faltan datos, favor completar la nomina", vbExclamation, "INFORMACION IMPORTANTE"
Exit Sub
End If
Next
'
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
h.Cells(i + 2, col).Value = Me.Controls("txtJugador" & i).Value
h.Cells(i + 2, col + 1).Value = Me.Controls("txtCta" & i).Value
Next
MsgBox "Equipo Actualizado con exito", vbExclamation, "PROCESADO"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
