Eliminar item del listbox y datos de la hoja

Quiero que al borrar el item del listbox con doble clic

If Listbox1.ListIndex = -1 Then
Exit Sub 'si no se seleccionó ningún item cancela
End If

Listbox1. RemoveItem (Listbox1. ListIndex)

Me borre de la hoja1 columna "L" y "M" (ya que en el listbox me trae los datos de esas dos columnas) el mismo dato. Tengo este código que me han pasado que anda perfecto el problema es que me elimina la fila completa, necesito únicamente borrar los datos de las celdas.

El código que encuentra la fila donde esta el dato y la elimina es

fila = Listbox1.ListIndex + 1
Rows(fila).Delete Shift:=xlUp

1 Respuesta

Respuesta
1

En lugar de la línea: Rows(fila).Delete Shift:=xlUp

Utilizá esta otra si tu intención solo es borrar el contenido:

Range("L" & fila & ":M" & fila) = ""

Sdos

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas