............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Extraer datos de otra hoja

Ver el tema anterior Ver el tema siguiente Ir abajo

Extraer datos de otra hoja

Mensaje por qwertyu el Jue Oct 22, 2009 10:52 pm

Estimados Foreros:
La macro adjunta, extrae datos de otra hoja cuyo nombre la digito en la celda M2, de la Hoja2, cuando la hoja existe, el procedimiento funciona 100%, pero cuando la hoja no está creada o me equivoco en el nombre, se interrumpe con error 9.
Cómo puedo hacer para que cuando no exista la hoja, me de un mensaje de alerta que la hoja no existe.
Saludos Cordiales
qwertyu

Sub extraeDatos()
Dim MyName As String
Sheets("Hoja2").Select
MyName = Range("$M$2").Value
Range("A1:J32").Select
Selection.ClearContents
Range("A1").Select
Sheets(MyName).Select
Range("A1:J32").Select
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Paste
End Sub

qwertyu

Masculino Cantidad de envíos : 8
Edad : 62
Ciudad - Pais : Santiago - Chile
Version de Excel : 2003
Fecha de inscripción : 07/10/2009

Volver arriba Ir abajo

Re: Extraer datos de otra hoja

Mensaje por GalileoGali el Vie Oct 23, 2009 8:10 am

Prueba esto:
Código:
Sub extraeDatos()
Dim MyName As String
Dim wsh as Worksheet
With Sheets("Hoja2")
MyName = .Range("$M$2").Value
.Range("A1:J32").ClearContents

On error Resume Next
Set wsh = Sheets(MyName)
If wsh is Nothing then
MsgBox "No Existe una hoja llamada; " & MyName
Exit sub
End If

wsh.Range("A1:J32").Copy .Range("A1")
End With
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Extraer datos de otra hoja

Mensaje por qwertyu el Vie Oct 23, 2009 8:41 am

Gracias GalileoGali:
Para todos los Foreros que les sirva esta macro, ya esta solucionada por el aporte de GalileoGali.
La modificación de la macro por tu código ahora funciona perfectamente, he probado todas las veces necesarias y la macro funciona al 100%.
No he modificado nada. Reitero el código quedó perfecto.
Problema Solucionado

Saludos cordiales
qwertyu

qwertyu

Masculino Cantidad de envíos : 8
Edad : 62
Ciudad - Pais : Santiago - Chile
Version de Excel : 2003
Fecha de inscripción : 07/10/2009

Volver arriba Ir abajo

Re: Extraer datos de otra hoja

Mensaje por Alef-Thau el Mar Feb 02, 2010 8:24 am

Gracias Galileo Gali, a mi tambien me será de mucha ayuda. Y gracias a Qwertyu también por preguntar ;-).

Saludos

Alef-Thau

Masculino Cantidad de envíos : 22
Edad : 52
Ciudad - Pais : España
Version de Excel : actualmente 2010
Fecha de inscripción : 23/05/2009

Volver arriba Ir abajo

Re: Extraer datos de otra hoja

Mensaje por Contenido patrocinado Hoy a las 12:36 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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