Eliminar una fila de listbox y su correspondiente referencia en la hoja excel
Dante; nuevamente aprovechando tu amplio conocimiento, podrías por favor decirme como puedo eliminar una linea de un listbox y su referencia en la hoja excel?
yo trate con este codigo y borra cualquier cosa
Dim valor
valor = ListBox1.Value
Set busca = Sheets("DB").Range("a34:a" & Sheets("DB").Range("a65000").End(xlUp).Row).Find(valor, LookIn:=xlValues, lookat:=xlWhole)
Rows(valor + 14).Select
Selection.Delete Shift:=xlUp
Mi referencia inicia el la fila 34
Desde ya muchas gracias.
1 Respuesta
Tendría que ver cómo tienes los datos en la hoja y cómo cargaste el listbox para borrar.
Envíame tu archivo con tu formulario. Explícame cómo funciona.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “tibo” y el título de esta pregunta.
Te anexo el código
Private Sub CommandButton4_Click()
'Act.Por.Dante Amor
'Eliminar registro seleccionado
valor = ListBox1.Value
Set h = Sheets("DB")
u = h.Range("A" & Rows.Count).End(xlUp).Row
Set r = h.Range("A34:A" & h.Range("A" & Rows.Count).End(xlUp).Row)
Set b = r.Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not b Is Nothing Then
Rows(b.Row).Delete
Else
MsgBox "Registro no encontrado"
End If
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
