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 estás conectado. Conéctate o registrate

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

1RESUELTO Copiar Hoja el 17/02/17, 03:27 pm

edwinjo


Buenas tardes Equipo,
Mucho les agradecería si me indican por favor que estoy haciendo Mal en el siguiente macro, al copiar una hoja por su numero no tengo problema, pero si la copio por el nombre me da error i = InputBox("Escriba Nombre hoja a copiar:")

El macro es el siguiente
Sub CopiaHoja()
Dim i As Integer
i = InputBox("Escriba Nombre hoja a copiar:")
    Sheets(i).Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
    ActiveSheet.Name = InputBox("Escriba un nombre para la nueva hoja:")
End Sub

2RESUELTO El anexo el 17/02/17, 03:29 pm

edwinjo


Perdón no se fue el anexo
Archivos
copiar hoja.xls
No tienes los permisos para descargar los archivos.
(38 KB)

3RESUELTO Re: Copiar Hoja el 17/02/17, 11:45 pm

Igtelo

avatar
Hola Edwin.

Cambia Integer por String. Integer es para valores, string para texto...

Saludos
Ignacio Téllez

4RESUELTO El que sabe el 18/02/17, 12:50 pm

edwinjo


Buenos Días,
Gracias  Igtelo, el que sabe sabe, funciona muy bien

Contenido patrocinado


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.