Macro con columna y fila dinámica

[Sam.-92]

Hola, quería pedirles su ayuda para resolver el siguiente problema.

Tengo la hoja "Matriz" en la que en celda A2 permite elegir el numero de la fila en hoja "Base". La macro debe copiar valores...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! Sam
Muy "bonita" tu explicación... Pero será mejor que subas al Foro un ejemplo concreto de lo que quieres hacer.

A los efectos de la macro que requieres, parecería no tener...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Sam.-92]

Cacho,
Gracias por tu respuesta, me explico:

Datos Hoja1:
Celda A1 = Numero a nuestra elección para determinar fila en Hoja2
Rango B1:B8 = Cada celda (B1,B2,B3,B4,B5,B6,B7 y B8) posee un dato...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! Sam
Muy "bonita" tu explicación... Pero será mejor que subas al Foro un ejemplo concreto de lo que quieres hacer.

¿Y el archivo que tenías que subir al Foro?...
.

 

[Sam.-92]

Disculpa Cacho, es mi primer tema. Adjunto Archivo !

Tuve que agregar en Hoja 2, en la primera fila un detalle de los temas de cada columna para que quedara un poco más claro.

Atento a sus...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Varias formas equivalentes de hacerlo, Sam. Por ejemplo:

Sub Traspasar()
  Application.ScreenUpdating = False
  Sheets("Hoja1").Range("b1:b8").Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Sam.-92]

Cacho, muchas gracias ! Funciona perfecto, me sirvió tu formula.

Ahora, si quisiera que al momento de traspasar en hoja2, fuera a partir de la fila 2. Osea, si el en hoja1.celdaA1 = 1 , traspase...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Basándonos en el segundo método, considera la expresión:

Cells(Sheets("Hoja1").[a1], "a")

Está a la vista que "Cells" tiene aquí dos parámetros separados por una "coma":

- Sheets("Hoja1").[a1]...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Sam.-92]

Lo resolví modificando esta expresión:

Sheets("Hoja2").Cells(Sheets("Hoja1").[a1], "a").PasteSpecial Paste:=12, Transpose:=True

a

Sheets("Hoja2").Cells(Sheets("Hoja1").[a1+1], "a").PasteSpecial...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Lo resolví modificando esta expresión:

Sheets("Hoja2").Cells(Sheets("Hoja1").[a1], "a").PasteSpecial Paste:=12, Transpose:=True

a

Sheets("Hoja2").Cells(Sheets("Hoja1").[a1+1]...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí