Copiar bloque de datos (varias filas)de una hoja a otra hoja a través de una macro
Hola Experto Valero no se si me podrías ayudarme otra vez necesito copiar un bloque de datos de una hoja a otra con una macro o con visual, yo utilizo una macro pero cuando copio el bloque de datos se repite y repite los mismos datos a pesar que limpio los datos anteriores. Vi varios videos pero en los videos solo copia una fila y los ordenana pero solo lo hace por filas no por bloque. Me gustaría mandarte el archivo para que me entendieras mejor. Gracias
1 respuesta
Hola Experto Dante, te mande ya mi archivo espero que me puedas ayudar
Esta es la macro para copiar el rango a la otra hoja.
Sub Botón1_Haga_clic_en()
'Por. Dante Amor
Set h1 = Sheets("ULTIMO REGISTRO")
Set h2 = Sheets("HISTORIAL DE REGISTRO")
u = h2.Range("E" & Rows.Count).End(xlUp).Row + 3
If u = 4 Then u = 1
h1.Range("A1:E6").Copy h2.Range("A" & u)
MsgBox "Registro copiado"
End Sub
Hola Experto: Te envíe de nuevo el archivo pues lo que necesito es que el ultimo registro de la hoja Ultimo se copie a una nueva tabla de la Hoja Historial. Gracias
Hola Experto volvi a mandar ya un archivo mas especifico a su correo espero que me pueda ayudar de antemano muchas gracias por prestarme atencion...espero que ahora si este mejor especificada mi pregunta!!. Muchas Gracias
Te anexo la macro corregida:
Private Sub CommandButton1_Click()
Sheets("ULTIMO REGISTRO").Select
Cells(2, 1) = TextBox23.Text
Cells(2, 2) = TextBox2.Text
Cells(3, 2) = TextBox4.Text
Cells(4, 2) = TextBox6.Text
Cells(5, 2) = TextBox11.Text
Cells(2, 3) = TextBox7.Text
Cells(3, 3) = TextBox8.Text
Cells(4, 3) = TextBox9.Text
Cells(5, 3) = TextBox12.Text
Cells(2, 4) = TextBox14.Text
Cells(3, 4) = TextBox15.Text
Cells(4, 4) = TextBox16.Text
Cells(5, 4) = TextBox17.Text
Cells(2, 5) = TextBox18.Text
Cells(3, 5) = TextBox19.Text
Cells(4, 5) = TextBox20.Text
Cells(5, 5) = TextBox21.Text
Cells(6, 5) = TextBox13.Text
Set hu = Sheets("ULTIMO REGISTRO")
Set hi = Sheets("HISTORIAL CURSO")
u = hi.Range("E" & Rows.Count).End(xlUp).Row
If u > 1 Then u = u + 3
hu.Range("A1:E6").Copy hi.Range("A" & u)
End Sub
¡Gracias! Dante Amor se te agradece la paciencia de entenderme... Muchísimas Gracias el ultimo archivo fue el correcto. Espero que me puedas seguir ayudando en otras cosas que me falta y pueda escribir a tu correo. Muchísimas Gracias Experto
