** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - The Information cannot be pasted because
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoThe Information cannot be pasted because

 Responder Responder
Autor
Mensaje
walfdo Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Enero/2011
Localización: Peru
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Tema: The Information cannot be pasted because
    Enviado: 07/Marzo/2012 a las 18:11
Buen Día a Todos

En el trabajo contamos con un excel que nos permite realizar cálculos para obtener información estadística de las llamadas.
Este excel se alimenta de otros archivos(excel)que contiene la lista de llamadas(emitidas por cisco) a través de una macro.

El excel trabajaba bien con varios registros de llamadas,pero ahora emite el siguiente error,al intentar cargar un archivo que tiene sólo un registro.



Uploaded with ImageShack.us


Comprendo que este error se soluciona copiando manualmente, pero el objetivo es, que al funcionar con la macro permita alimentarse de archivos con 1 o mas registro sin emitir error.

He reliazado un ejemplo del este caso y lo he subido en este link

http://dl.dropbox.com/u/3803765/Excel.zip

En el ejemplo se muestra 3 archivos

Archivo     Descripción
Carga.xls   El archivo que contiene la macro
Data1.xls   Archivo de carga con 1 registro
Data2.xls   Archivo de carga con 2 o más registros

Al abrir el archivo Carga.xls nos aparece un boton para ejecutar que se encarga de pedirte el archivo de llamadas.

Si seleccionas data2.xls te agregará sin problemas los registros pero si seleccionas Data1.xls se aparecerá el error.

Su apoyo y conocimiento,he intentado corregirlo de varias formas pero sin exito Confused.

Muchas GraciasBig%20smile

Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 07/Marzo/2012 a las 21:21
simplemente modifica la linea:

Range(Selection, Selection.End(xlDown)).Select


por:

If Len(Range("A2").Value) > 0 Then
   Range(Selection, Selection.End(xlDown)).Select
End If

explicacion:
si no existe una segunda linea, selecciona todas las lineas del libro --end(xlDown)--
dedes la 1 a la 65635 (en xls-2003) pero intentando de pegar a partir de la 2 linea... por lo que le falta una linea y dando el error.

por ello, si no hay segunda linea no necesitas copiar más que al primera, si hay mas, entonces es correcto el desplazarte para copiarlas todas

Editado por Jordi-Albert - 07/Marzo/2012 a las 21:25
Nota: Jordi-Albert es, todo él, un nombre. Mi nombre
Arriba
walfdo Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Enero/2011
Localización: Peru
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Enviado: 08/Marzo/2012 a las 21:17
Tan simple que da verguenza :P. Todo Ok!

Muchas gracias
Jordi-Albert
 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable