UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Tomar nombre de celda el 04/08/16, 06:09 pm

Jhony


Buenas tardes compañeros.
Me podrían ayudar con lo siguiente por favor.
Estoy tratando de encontrar en una macro, la forma de que me tome el nombre que hay en una celda, ya que son muchas hojas y debo estarle cambiando a todas el nombre a mano. En el archivo que anexo, detallo más.
Agradezco de antemano su ayuda. Gracias y buena tarde.
Archivos
Copiar con nombre de la hoja.xls
No tienes los permisos para descargar los archivos.
(31 KB)

2RESUELTO Re: Tomar nombre de celda el 04/08/16, 07:50 pm

Igtelo


Hola Jhony.

No te entiendo, por favor explica con más detalle.
¿Quieres copiar el rango de cualquier hoja y pasarlo a la hoja 1?
¿A que le tienes que estar cambiando el nombre a mano?

Esperamos...

Saludos
Ignacio Téllez

3RESUELTO Re: Tomar nombre de celda el 04/08/16, 09:02 pm

Jhony


Hola Ignacio. Gracias por atenderme. Te explico.
Lo que hice en el ejemplo, es la macro para copiar de la Hoja2 a la Hoja1.
Lo que quería hacer es; que al copiar de la Hoja2 a la Hoja1 el nombre de "Hoja1", lo tome de la celda A1 para quedar de la siguiente forma:
    Sheets("Hoja1").Select
En este caso el nombre es Hoja1, pero lo que pretendo es ponerle otro nombre a la hoja, ya que siempre habro la macro para cambiar el nombre a mano como Hoja3, Hoja4, Hoja5, etc y me lo copie en la respectiva hoja. Espero haber podido explicarme. Te agradezco la atención. Gracias y buena tarde.

4RESUELTO Re: Tomar nombre de celda el 04/08/16, 09:49 pm

Igtelo


Hola de nuevo Jhony.

No logro entender, pero prueba con esto:

Sub Macro()
Dim nombre As String
nombre = Range("A1")
Sheets("Hoja2").Range("A3:E5").Copy Sheets(nombre).Range("A3")
End Sub

Ignacio Téllez

5RESUELTO Re: Tomar nombre de celda el 04/08/16, 10:57 pm

Jhony


Buenas tardes Ignacio.
Te anexo archivo, con un comentario más. Agradezco de antemano tu tiempo y ayuda.
Gracias y buena noche.
Archivos
Copiar con nombre de la hoja.xls
No tienes los permisos para descargar los archivos.
(35 KB)

6RESUELTO Re: Tomar nombre de celda el 04/08/16, 11:29 pm

Igtelo


Entiendo que lo que quieres es:
Después de copiar datos de hoja 2 y pegarlos en hoja activa, ésta se renombre según dato que está en celda A1 de hoja activa.

Si va por acá, entonces con esto:

Sub Macro()
Sheets("Hoja2").Range("A3:E5").Copy ActiveSheet.Range("A3")
ActiveSheet.Name = Range("A1")
End Sub

Saludos
Ignacio Téllez

7RESUELTO Re: Tomar nombre de celda el 05/08/16, 01:30 pm

Jhony


Buenos días Ignacio. Esto es lo que estaba buscando. Te agradezco mucho tu ayuda y tu tiempo. Muchas gracias y buen día.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.