Foro Excel

hola buen dia
lo que necesito es borrar un dato desde un listbox, que el dato que seleccione en el listbox desde el formulario lo pueda eliminar en la hoja de excel, los datos tienen que estar en esas celdas y es alli donde tengo la duda ya que si los inicio desde las celda A1 me funciona bien pero desde aqui no, y tambien si es posible añadir el codigo para agregar un dato nuevo quien pueda colaborarme, lo necesito bastante

Bueno lo que veo es que no le indicabas que dato querias eliminar ojala te funcione esto ya lo probe con tu archivo y funciona bien te envio el codigo ya correcto


Sub CommandButton1_Click()
Sheets("hoja1").Select

Cells.Find(what:=ListBox1, after:=ActiveCell, LookIn:=xlFormulas, lookat _
:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase _
:=False).Activate
ActiveCell.Offset(0, 0).Select
If ActiveCell.Offset(0, 0).Value = ListBox1 Then
Selection.EntireRow.Delete
ListBox1.ListIndex = -1
MsgBox ("Registro eliminado exitosamente")
End If

End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Te lo envio ya con correcciones, para anexar otro dato creo que tendras que crear otro userform que se active desde el boton agregar este userform debera contener los textbox correspondientes a cada dato y un boton con la instruccion:

cells(3,1).select 'segun el rango donde quieras empesar (columna)

cells(3,1).value = textbox1 'pudiera ser nombre
cells(3,2).value = textbox2 'pudiera ser edad
cells(3,3).value = textbox3 'pudiera ser domicilio
cells(3,1).select
selection.entirerow.insert

enseguida mandas limpiar tus textbox's
textbox1=empty
textbox2 = empty
textbox3 =empty
textbox1.setfocus 'reanudas en el primer textbox para continuar agregando datos a la hoja


ESPERO TE SEA DE AYUDA

muchas gracias por tu aporte, me es de gran utilidad, gracias y de nuevo muchas gracias