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
 

Leer las respuestas

#1 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

Preguntas similares