Macro para dar mensaje de alerta o error
Para dante
Podrías resolverme esto con una macro que me hiciste
If OptionButton6 Then 'Agregar registro
Set b = Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
MsgBox "El nombre ya existe"
TextBox1.SetFocus
End If
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Select
Me indicaste que primero escribiera el registro en el textbox1 y luego marcara el optionbutton6 para agregar el registro. Pero si lo hago al revés (por error mio) me provoca algunos problemas en la hoja entonces pensé en algo como esto:
If OptionButton6 = True & TextBox1 = "" Then
MsgBox "Debe Primero Escribir el Registro"
TextBox1.SetFocus
End If
pero no me funciona (no soy muy ducho con esto)
en el otro codigo
ElseIf OptionButton7 Then ' modificar
If cbo_Nombre.ListIndex = -1 Then
MsgBox "Para modificar un nombre, primero tienes que seleccionar uno"
cbo_Nombre.SetFocus
Exit Sub
End If
End If
Aquí es al revés: primero selecciono el optionbutton7 y luego modifico el registro en el textbox1.
También aquí necesito un mensaje que diga:
MsgBox "Debe Primero Seleccionar Modificar"
1 respuesta
En el optionbutton6, me faltó un Exit Sub:
If OptionButton6 Then 'Agregar registro
Set b = Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
MsgBox "El nombre ya existe"
TextBox1.SetFocus
Exit Sub
End If
Range("A" & Range("A" & Rows. Count).End(xlUp).Row + 1).SelectPara la otra parte no te entiendo.
Primero tienes que seleccionar un dato en el combo. Luego marcar que lo quieres modificar, después modificas los datos y al final presionas "Agregar / modificar"
Si primero seleccionas el optionbutton7, ya te aparece el mensaje: "selecciona un registro del combo"
Si escribes algo en el textbox1 y no has seleccionado el optionbutton7, no pasa nada, cuando seleccionas el optionbutton7, te borra lo que escribiste y te pone el texto del combo.
el primero funciona bien pero lo del optionbutton7 me sale esto:
sigo las instrucciones que me diste.
1. selecciono el registro en el combobox
2. selecciono el option button7
3. selecciono imagen y la agrego
4. boton agregar/modificar
y luego sale ese mensaje
Me sale marcado en amarillo la quinta línea (negrita)
Sub CargarLista()
cbo_Nombre.Clear
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
cbo_Nombre.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub
tema finalizado
Avísame si tienes algún otro problema. 
