Eliminar Dato de listbox estando en cualquier hoja
Para: Dante
Ante todo un cordial saludo a todos los expertos de este foro, mi pregunta es la siguiente como puedo eliminar un dato de un listbox al seleccionar estando en cualquier hoja, es decir que si yo abro mi formulario en cualquier hoja de mi Libro pueda eliminar sin problema al seleccionar una fila de mi lixtbox. E intentado dar solución a este problema pero sin resultado.
La macro de mi Botón eliminar es la siguiente.
Private Sub Eliminar_Click()
Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "ERROR")
If Pregunta <> vbNo Then
Fila = Me.ListBox1.ListIndex + 2
Rows(Fila).Delete
End If
End Sub
1 Respuesta
Gracias por la pronta respuesta amigo en realidad es exactamente de ambos
La macro que carga el listbox es la siguiente.
Private Sub ListBox1_Click() Fila = Me.ListBox1.ListIndex + 2 For i = 1 To 4 Cells(Fila, 1).Activate Next i End Sub
Gracias por la por la respuesta que me puedas dar.
H o l a : Tienes que poner el código con el que llenas el listbox. Tengo que ver cómo llenas el listbox, para de esa forma saber cómo se debe borrar el registro del listbox.
O envíame tu archivo y me dices cómo se llama tu formulario.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Edgar Castillo” y el título de esta pregunta.
¡Gracias! Amigo Dante Amor
Ya te lo e enviado mi archivo espero que tenga solución mi tema.
Te anexo el código para eliminar
Private Sub Eliminar_Click()
'Act.Por.Dante Amor
Set h1 = Sheets("INGRESOS")
If ListBox1.ListIndex = -1 Then
MsgBox "Selecciona un registro del listbox"
Exit Sub
End If
'
Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "ERROR")
If Pregunta = vbYes Then
Fila = Me.ListBox1.ListIndex + 2
h1.Rows(Fila).Delete
End If
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
