Evitar que al terminar de correr la macro se salga del formulario
Tengo un formulario que hace correr la siguiente macro, la misma genera etiquetas tomando la información de la hoja 4 y las lleva a la hoja 6 de la siguiente manera:
Sub Eti1()
'comando para generar las etiquetas
Hoja35.Columns("a:o").Delete
fin = Hoja4.Range("b65536").End(xlUp).Row
Hoja4.Select
Range("A8").Select
For y = 0 To Int((fin - 1) / 3)
For k = 0 To 2
Hoja6.Range("b2").Value = "'" & Format(ActiveCell.Value, "00000000")
Hoja6.Range("a1:e5").Copy Destination:=Hoja5.Cells((5 * y) + 1, (5 * k) + 1)
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then End
Next k
Next y
End SubEl asunto es que al terminar de generar las etiquetas se sale del formulario y me muestra la hoja de donde tomo la información (hoja 4). Lo que necesito es que no me saque del formulario pues necesito realizar otras acciones.
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
Sub Eti1()
'comando para generar las etiquetas
Hoja35.Columns("a:o").Delete
fin = Hoja4.Range("b65536").End(xlUp).Row
Hoja4.Select
Range("A8").Select
For y = 0 To Int((fin - 1) / 3)
For k = 0 To 2
Hoja6.Range("b2").Value = "'" & Format(ActiveCell.Value, "00000000")
Hoja6.Range("a1:e5").Copy Destination:=Hoja5.Cells((5 * y) + 1, (5 * k) + 1)
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then Exit For
Next k
Next y
End Sub
