Copiar y pegar una selección en todas las hojas de un libro.
en la hoja1 tengo una serie de datos en el siguiente rango: A1:J42
y ese misma selección deseo pegarla en las demás hojas del mismo libro
son aproximadamente 100 hojas.
ya grabe una macro y solo me permite hacer en una sola hoja.
espero y me puedan ayudar
Respuesta de Luis Mondelo
1
Copiamos tal cual el rango A1:¿J42 de la hoja1 en las otras hojas pero en qué rango de destino?
a partir de la A1, debe quedar en la misma posicion
Te mando mi solución con esta macro:
Sub proceso()
'por luismondelo
Sheets("hoja1").Select
Range("a1:j42").Copy
For Each hoja In ActiveWorkbook.Sheets
If UCase(hoja.Name) <> "HOJA1" Then
hoja.Select
Range("a1").PasteSpecial xlPasteValues
End If
Next
End Subno olvides finalizar la consulta
