Eliminar datos o fila de una hoja mediante un Form VBa

Qué onda, mis estimados.

Me gustaría saber si puedo eliminar los datos de otra hoja, introducidos en un Form...

Más claro: Al dar clic en un Botón me actualice los datos del Form y a su vez elimine esos datos introducidos de otra hoja...

Adjunto mi código:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 2 To 3000
If Hoja9.Cells(i, 2) = "" Then
final = i
Exit For
End If
Next
Hoja9.Cells(final, 13) = UserForm21.TextBox1
Hoja9.Cells(final, 1) = UserForm21.TextBox2
Hoja9.Cells(final, 2) = UserForm21.TextBox3
Hoja9.Cells(final, 3) = UserForm21.TextBox4
Hoja9.Cells(final, 4) = UserForm21.TextBox5
Hoja9.Cells(final, 5) = UserForm21.TextBox6
Hoja9.Cells(final, 6) = UserForm21.TextBox7
Hoja9.Cells(final, 7) = UserForm21.TextBox8
Hoja9.Cells(final, 8) = UserForm21.TextBox9
Hoja9.Cells(final, 9) = UserForm21.TextBox10
Hoja9.Cells(final, 10) = UserForm21.TextBox11
Hoja9.Cells(final, 11) = UserForm21.TextBox12
Hoja9.Cells(final, 12) = UserForm21.TextBox13
Hoja9.Cells(final, 14) = UserForm21.TextBox14
Hoja9.Cells(final, 15) = UserForm21.TextBox15
Hoja9.Cells(final, 16) = UserForm21.TextBox16
Hoja9.Cells(final, 17) = UserForm21.TextBox17
Hoja9.Cells(final, 18) = UserForm21.TextBox18
Hoja9.Cells(final, 19) = UserForm21.TextBox19
Hoja11.Cells(final, 13) = UserForm21.TextBox1
Hoja11.Cells(final, 1) = UserForm21.TextBox2
Hoja11.Cells(final, 2) = UserForm21.TextBox3
Hoja11.Cells(final, 3) = UserForm21.TextBox4
Hoja11.Cells(final, 4) = UserForm21.TextBox5
Hoja11.Cells(final, 5) = UserForm21.TextBox6
Hoja11.Cells(final, 6) = UserForm21.TextBox7
Hoja11.Cells(final, 7) = UserForm21.TextBox8
Hoja11.Cells(final, 8) = UserForm21.TextBox9
Hoja11.Cells(final, 9) = UserForm21.TextBox10
Hoja11.Cells(final, 10) = UserForm21.TextBox11
Hoja11.Cells(final, 11) = UserForm21.TextBox12
Hoja11.Cells(final, 12) = UserForm21.TextBox13
Hoja11.Cells(final, 14) = UserForm21.TextBox14
Hoja11.Cells(final, 15) = UserForm21.TextBox15
Hoja11.Cells(final, 16) = UserForm21.TextBox16
Hoja11.Cells(final, 17) = UserForm21.TextBox17
Hoja11.Cells(final, 18) = UserForm21.TextBox18
Hoja11.Cells(final, 19) = UserForm21.TextBox19
UserForm21.TextBox1 = ""
UserForm21.TextBox2 = ""
UserForm21.TextBox3 = ""
UserForm21.TextBox4 = ""
UserForm21.TextBox5 = ""
UserForm21.TextBox6 = ""
UserForm21.TextBox7 = ""
UserForm21.TextBox8 = ""
UserForm21.TextBox9 = ""
UserForm21.TextBox10 = ""
UserForm21.TextBox11 = ""
UserForm21.TextBox12 = ""
UserForm21.TextBox13 = ""
UserForm21.TextBox14 = ""
UserForm21.TextBox15 = ""
UserForm21.TextBox16 = ""
UserForm21.TextBox17 = ""
UserForm21.TextBox18 = ""
UserForm21.TextBox19 = ""
UserForm22. Hide
UserForm21. Hide
End Sub

1 respuesta

Respuesta
1

Quizás ayude este ejemplo

https://youtu.be/1DBfLVrCTAY 

https://youtu.be/M3C5AyDMLOY 

https://youtu.be/CCEaj0qIXzE 

https://youtu.be/v43-X_SNWts 

Visita http://programarexcel.com descarga cientos de ejemplos de macros GRATIS.

suscribe https://youtube.com/programarexcel y recibe en tu mail ejemplos de macros

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas