Saltar al contenido

boton para eliminar datos


Recommended Posts

publicado

A mi parecer creo que la mejor opcion seria utilizar un ListBox donde salgan todos los registros y puedes hacer un buscador para que te filtre el dato que deseas y asi puedas modificar o eliminar

publicado
Private Sub CommandButton11_Click()
Dim Descarga As Range
Set Descarga = Sheets("Hoja2").Columns("C").Find(TextBox2, lookat:=xlWhole)
If Not Descarga Is Nothing Then
   Descarga.EntireRow.Delete
   CommandButton6_Click
End If
End Sub
'---------
Private Sub CommandButton6_Click()
TextBox2.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox23.Text = "" '<-------------------- estaba mal
TextBox2.SetFocus ' EL SetFocus devuelve el cursor al inicio
End Sub

 

  • 2 weeks later...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.