Macro para cortar datos filtrados
Espero puedan ayudarme, mi problema es el siguiente necesito un macro que me corte en rango de celdas que yo escoja uso este
Selection. Cut
x = ActiveCell.Address
ActiveCell.Offset(2, 0).Select
ActiveSheet.Paste
Range(x).Select
End Sub
El problema es que al estar los datos filtrados me los mueve 2 celdas debajo del especificado es decir si en la tabla las filas quedaron así(28,35) y yo selecciono la 28 me lo pega 2 filas debajo de la 28 y no debajo de la ultima filtrada.
1 Respuesta
Respuesta de Dante Amor
1
Según tu explicación quieres cortar el valor seleccionado y pegarlo 2 celdas abajo.
Pero tienes un filtro, en ese caso hay que buscar cuáles filas son visibles. Prueba con lo siguiente:
Selection. Cut x = ActiveCell.Address 'ActiveCell.Offset(2, 0).Select fila = ActiveCell.Row col = ActiveCell.Column fila = fila + 1 cuenta = 0 Do While True If Rows(fila).Hidden = False Then cuenta = cuenta + 1 If cuenta = 2 Then nuevafila = fila Exit Do End If End If fila = fila + 1 Loop Cells(nuevafila, col).Select ' ActiveSheet.Paste Range(x).Select End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias! me sirvió demasiado
