Copia con rangos variables

04/11/2006 - 18:46 por Israel Rivera | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
05/11/2006 - 00:31 | Informe spam
hola, Israel !

1) mencionas rangos de celdas con informacion 'de donde / a donde' como 'A2:A11' y 'B2:B11' [pero solo expones 7 ejemplos] :D
2) parece que existen un rango 'traslapado' entre: -> 'IN26:IR30' con el que inicia en: -> 'IN29:IR37' [las filas 29 y 30] -???-

prueba con una macro +/- como la siguiente... en un modulo de codigo 'general' -> en el libro1 [el que tiene la hoja 'Setup']

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Copia_controlada()
Dim Hoja_n As Byte, Fila_x As Byte
With ThisWorkbook.Worksheets("setup")
For Hoja_n = 1 To 3
For Fila_x = 2 To 7 ' 11
Workbooks("libro2").Worksheets("hoja" & Hoja_n) _
.Range(.Range("a" & Fila_x).Text).Copy _
Destination:=.Parent.Worksheets("hoja" & Hoja_n) _
.Range(.Range("b" & Fila_x).Text)
Next
Next
End With
End Sub

__ la consulta original __
... copiar celdas... en un archovo y pasarlo a ortro... hoja con el mismo nombre pero el rango de la copia puede ser variable.
... los elementos que tengo son:
Libro1 (Setup, Hoja1,Hoja2,Hoja3)
Libro2 (Hoja1,Hoja2,Hoja3)
... Hoja Setup tengo un rango de celdas A2:A11 donde capturo los rangos... 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...
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida