Error 91 variable de objeto with o bloque
Buenas tengo un listbox con datos de personal y tengo un botón para borrar el dato seleccionado al seleccionarlo y oprimir el botón de eliminar me aparece este mensaje
Private Sub CommandButton2_Click()
Dim valor, final As String
valor = ListBox1.Value
Range("A1").Select
ActiveCell.End(xlDown).Select
final = ActiveCell.Address
Range("A1", final).Select
Cells.Find(what:=valor).Select
If ActiveCell.Value = valor Then
Selection.EntireRow.Delete
End If
en la linea negrita me marca el error si alguien me pudiera ayudar Gracias
1 Respuesta
Usa la macro así:
Private Sub CommandButton2_Click()
Dim valor, final As String
valor = ListBox1.Value
set busca = sheets("hoja1").range("a1:a" & sheets("hoja1").range("a65000").end(xlup).row).find(valor,lookin:=xlvalues,lookat:=xlwhole)
if not busca is nothing then
busca.entirerow.delete
End If
end subrecuerda finalizar
Que tal utilice el procedimiento que me mandaste y funciono perfectamente pero no me borra lo que selecciono sino borra otra linea que hago.
La macro está preparada para borrar exactamente el valor seleccionado del listbox1
