Elegir hoja de acuerdo a una celda

26/04/2012 - 11:11 por gonza3591 | Informe spam
¡ Hola !
Tengo 2 libros (Libro y Libro1) En libro tengo un boton asignado a una macro que copia unas celdas y las pega en el Libro1.
Lo que yo necesito es poder elegir en que hoja de ese Libro1 se van a pegar los datos.
Estaba pensando en referenciar dentro de la macro el nombre de la hoja con el valor de la celda E5 del Libro donde tengo una lista desplegable con el nombre de las Hojas del Libro1.
Conozco otra forma para hacerlo pero si lo pudiera hacer en base a esa celda seria perfecto

Sub enviarhistorial()

Application.ScreenUpdating = False
Range("B3:b9").Select
Selection.Copy
Windows("Libro1.xlsx").Activate
RowFin = Range("D11").End(xlUp).Row + 1
Range("D" & RowFin).Select
ActiveSheet.Paste
Windows("Libro.xlsm").Activate

End Sub

Preguntas similare

Leer las respuestas

#1 Pedro F. Pardo
26/04/2012 - 12:54 | Informe spam
El jueves, 26 de abril de 2012 10:11:05 UTC+1, gonza3591 escribió:
¡ Hola !
Tengo 2 libros (Libro y Libro1) En libro tengo un boton asignado a una macro
que
copia unas celdas y las pega en el Libro1.
Lo que yo necesito es poder elegir en que hoja de ese Libro1 se van a pegar los
datos.
Estaba pensando en referenciar dentro de la macro el nombre de la hoja con el
valor de la celda E5 del Libro donde tengo una lista desplegable con el nombre
de las Hojas del Libro1.
Conozco otra forma para hacerlo pero si lo pudiera hacer en base a esa celda
seria perfecto

Sub enviarhistorial()

Application.ScreenUpdating = False
Range("B3:b9").Select
Selection.Copy
Windows("Libro1.xlsx").Activate
RowFin = Range("D11").End(xlUp).Row + 1
Range("D" & RowFin).Select
ActiveSheet.Paste
Windows("Libro.xlsm").Activate

End Sub



Muy sencillo tan solo tienes que añadir un par de líneas nuevas:

Application.ScreenUpdating = False
Range("B3:b9").Select
Selection.Copy
hoja = Range("E5").Value '<<<Aquí leemos el nombre de la hoja
Windows("Libro1.xlsx").Activate
Sheets(hoja).Select '<<<Y aquí la seleccionamos en el libro1
RowFin = Range("D11").End(xlUp).Row + 1
Range("D" & RowFin).Select
ActiveSheet.Paste
Windows("Libro.xlsm").Activate


Eso debería bastar ;-)

Saludos
Respuesta Responder a este mensaje
#2 gonza3591
26/04/2012 - 14:04 | Informe spam
gonza3591 escribió el 26/04/2012 11:11 :
¡ Hola !
Tengo 2 libros (Libro y Libro1) En libro tengo un boton asignado a una macro
que copia unas celdas y las pega en el Libro1.
Lo que yo necesito es poder elegir en que hoja de ese Libro1 se van a pegar los
datos.
Estaba pensando en referenciar dentro de la macro el nombre de la hoja con el
valor de la celda E5 del Libro donde tengo una lista desplegable con el nombre
de las Hojas del Libro1.
Conozco otra forma para hacerlo pero si lo pudiera hacer en base a esa celda
seria perfecto

Sub enviarhistorial()

Application.ScreenUpdating = False
Range("B3:b9").Select
Selection.Copy
Windows("Libro1.xlsx").Activate
RowFin = Range("D11").End(xlUp).Row + 1
Range("D" & RowFin).Select
ActiveSheet.Paste
Windows("Libro.xlsm").Activate

End Sub


Muchas Gracias Pedro F. Pardo, sabia que era facil, pero como no entieno mucho y me manejo con la grabadora, no tenia ni idea de que hacer
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida