Hola a todos:
Espero que me puedan ayudar con el siguiente problema :
Quiero copiar celdas que hay en un archovo y pasarlo a ortro de una hoja con
el mismo nombre pero el rango de la copia puede ser variable.
Por ejemplo:
A partir de los elementos que tengo son:
Libro1 (Setup, Hoja1,Hoja2,Hoja3)
Libro2 (Hoja1,Hoja2,Hoja3)
En el Libro1, Hoja Setup tengo un rango de celdas A2:A11 donde capturo los
rangos de Celdas que hay que copiar y en B2:B11 apartir de cual pegar.
RANGO ORIGEN DESTINO
IN9:IR12 B9
IN15:IR18 B15
IN21:IR22 B21
IN26:IR30 B26
IN29:IR37 B29
IN40:IR42 B40
la copia se repite de Hoja1 a Hoja1, de Hoja2 a Hoja2, etc.
Sub test()
Dim StrFileName As String
Dim StrFileBase As String
Dim StrHoja As String
StrFileBase = ActiveWorkbook.Name ' ASIGNA DEL ARCHOVO ORIGEN
StrFileName = "Libro2" ' NOMBRE DEL
ARCHIVO DESTINO
If ActiveSheet.Name <> "HOJA1" Then ' VALIBA NOMBRE DE LA HOJA
ACTIVA
Sheets("HOJA1").Select
End If
'Range("B6:B15").Select
' Selection.Copy
Windows(StrFileName).Activate ' CAMBIA AL ARCHIVO
DESTINO
If ActiveSheet.Name <> "HOJA1" Then ' VALIBA NOMBRE DE LA HOJA
ACTIVA
Sheets("HOJA1").Select
End If
For Z = 1 To 3
Select Case Z
Case 1
StrHoja = "Hoja2"
Case 2
StrHoja = "Hoja3"
Case 3
StrHoja = "Hoja4"
End Select
Sheets(StrHoja).Select
Next Z
End Sub
Leer las respuestas