saludos esta perfecto tu ejemplo. me sirve de mucho. ahora otra duda como se podría aplicar este mismo ejemplo pero con los datos de una tabla dinámica.
ya que esa formula es con celdas fijas. pero como lo aplico a una tabla para sacar el porcentaje de lo que he avanzado si cuando actualizo la tabla me da error.
gracias
@Gerson PinedaMuchas gracias.
Os lo agradezco a los dos, me va a ir bien cualquiera de las fórmulas. Y sino en este fichero en otro con la misma situación.
Moisés.
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
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now