Formulario de Excel NO puedo configurar el botón GUARDAR
Tengo un problema estoy creando un userform con estos campos
pero el botón guardar no lo he podido configurar ya un amigo de este grupo me ayudo pero yo cambie algunas cosas y ahora no me funciona aparte cuando cambio de hoja se borran los nombre y no se por que así
y cuando cambio de hoja se borra
Si alguien me puede ayudar se los agradezco.
Respuesta de Dante Amor
1
Te anexo la macro actualizada para el nuevo formato
Dim h1, h2
'
Private Sub GUARDAR_Click()
'Por.Dante Amor
If PROFESOR.Value = "" Or PROFESOR.ListIndex = -1 Then
MsgBox "Falta el profesor"
PROFESOR.SetFocus
Exit Sub
End If
If GRUPO.Value = "" Or GRUPO.ListIndex = -1 Then
MsgBox "Falta el GRUPO"
GRUPO.SetFocus
Exit Sub
'End If
'If existe = False Then
'MsgBox "Falta capturar las fortalezas y los aspectos"
'hora1.SetFocus
'Exit Sub
End If
Set b = h1.Columns("F").Find(PROFESOR, lookat:=xlWhole, LookIn:=xlValues)
If b Is Nothing Then
MsgBox "No existe el profesor"
Exit Sub
End If
f_gra = "": f_for = "": f_asp = ""
fila = b.Row
Do While True
If h1.Cells(fila, "B") = "FORTALEZAS" Then
f_gra = fila '- 1
f_for = fila
End If
If h1.Cells(fila, "B") = "ASPECTOS A MEJORAR" Then
f_asp = fila
Exit Do
End If
If fila > h1.Range("B" & Rows.Count).End(xlUp).Row Then
Exit Do
End If
fila = fila + 1
Loop
If f_gra = "" Or f_for = "" Or f_asp = "" Then
MsgBox "El profesor " & PROFESOR.Value & _
" no tiene los conceptos de fortaleza o aspectos"
Exit Sub
End If
Set c = h1.Rows(f_gra).Find(GRUPO, lookat:=xlWhole)
If c Is Nothing Then
MsgBox "No existe el grupo"
Exit Sub
End If
col = c.Column
h1.Cells(f_for + 1, col) = hora1
h1.Cells(f_for + 2, col) = hora2
h1.Cells(f_for + 3, col) = hora3
h1.Cells(f_for + 4, col) = hora4
h1.Cells(f_asp + 1, col) = hora5
h1.Cells(f_asp + 2, col) = hora6
h1.Cells(f_asp + 3, col) = hora7
h1.Cells(f_asp + 4, col) = hora8
MsgBox "Datos actualizados", vbInformation_
PROFESOR.Text = ""
GRUPO.Text = ""
hora1.Text = ""
hora2.Text = ""
hora3.Text = ""
hora4.Text = ""
hora5.Text = ""
hora6.Text = ""
hora7.Text = ""
hora8.Text = ""
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
