¿Como hacer macro que corte y pgue un renglon de una hoja a otra?
Necesito que me corte los renglones especificamente los que en la columna "O" contengan la palabra "CERT" y me los pegue en otra hoja diferente todo esto si se puede hacer con un boton. Todo el renglon completo
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro para cortar las filas.
Cambia en la macro "Hoja4" por el nombre de tu hoja que tiene los datos.
Cambia "Hoja5" por el nombre de tu hoja donde se van a pegarlas filas.
Sub CortarFilas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja4")
Set h2 = Sheets("Hoja5")
'
u1 = h1.Range("O" & Rows.Count).End(xlUp).Row
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
For i = u1 To 1 Step -1
If h1.Cells(i, "O") = "CERT" Then
h1.Rows(i).Copy h2.Rows(u2)
h1.Rows(i).Delete
u2 = u2 + 1
End If
Next
Application.ScreenUpdating = True
MsgBoSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CortarFilas
- Aceptar.
- Para ejecutarla dale click a la imagen.
':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
