Copiar de una hoja protegida a otra protegida, y encontrar la ultima celda vacía de un rango de celdas
En estas hojas, lo que quiero es copiar celdas que no están protegidas y copiarlo en otra hoja que esas mismas celdas tampoco están protegidas.
Pero las dos hojas están protegidas.
Y encontrar la ultima celda vacía de este rango de celdas:
Range("E7, E13, E19, E25, E31, E37, E43, E49, E55, E61, E67, E73, E79, E85, E91, E97, E103, E109, E115, E121, E127")
1 respuesta
Ahora sí, no entendí.
La última celda vacía de la columna "E"
¿O la última celda vacía de cada fila que pusite?
Es decir pusiste esto:
"¿E7" quieres la última celda de la fila 7?
Puedes poner el nombre de las hojas, ¿cuál es la hoja origen y cuál la hoja destino?
¿Y qué quieres copiar de la hoja origen y en dónde lo quieres pegar en la celda destino?
Ayudaría mucho si pones un ejemplo de un caso real
Ya recibí tu archivo lo reviso y te pongo la respuesta
Te anexo la macro para realizar la copia
Sub CopiarPedido()
'Por.Dante Amor
Set h1 = Sheets("PEDIDOS CLIENTES")
Set h2 = Sheets("pedidos")
h1.Unprotect Password:="1"
h2.Unprotect Password:="1"
Application.EnableEvents = False
For i = 7 To Range("G" & Rows.Count).End(xlUp).Row Step 6
h1.Range(Cells(i, "E"), Cells(i + 4, "Y")).Copy h2.Cells(i, "E")
h1.Range(Cells(i, "E"), Cells(i + 4, "Y")).Font.ColorIndex = 3
h2.Range(h2.Cells(i, "E"), h2.Cells(i + 4, "Y")).Font.ColorIndex = 1
Next
Application.EnableEvents = False
h1.Protect Password:="1"
h2.Protect Password:="1"
MsgBox "copia terminada"
End Sub
Hola Dante.
Si vas mirando la hoja de, "PEDIDOS CLIENTES", tengo hasta la línea 1200 aprox., pedidos de distintos clientes.
Lo que necesitaría que yo seleccionara un pedido y poder pasarlo a la hoja, "Pedidos", por debajo del anterior, por eso te he puesto un rango de celdas de cada 6 líneas vacías, encuentre la siguiente vacía y poder agregar otros pedidos, que se vayan agregando simultáneamente.
Un saludo
¿Quieres pasar solamente lo que tú selecciones?
Si, pero distintos pedidos, por eso necesito que cada seis filas vacías de la columna "D"
Gracias Dante
¿Cómo qué distintos pedidos?
Es decir, seleccionas un rango y lo copio en la hoja pedidos
¿Seleccionas otro rango y lo copias abajo del primer pedido?
Puedes explicarme paso a paso qué es lo que necesitas, ¿cuál es la secuencia de pasos que vas a realizar?
