Botón Excel para copiar y pegar un rango de celdas en la ultima fila.
¿Me ayudarían con una macro?
__ Que copie las ultimas 12 filas y luego las pegue debajo, sucesivamente por cada click.
Puntos a tomar en cuenta:
°La hoja se llama Hoja1
°Que copie todo lo que halla en las filas (objetos, formato, fórmula, texto)
°En realidad el rango útil es 12 filas y 9 columnas.
Sera posible, hay muchas macros parecidas pero no me sirven :( Hellp
1 Respuesta
Respuesta de Dante Amor
1
Prueba con la siguiente macro y me comentas
Sub copiar_12()
'Por Dante Amor
Set h1 = Sheets("Hoja1")
u = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row
If u > 12 Then
h1.Range("A" & u - 11 & ":I" & u).Copy h1.Range("A" & u + 1)
Else
h1.Range("A1:I" & u).Copy
End If
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
