Foros del Web » Soporte técnico » Ofimática »

Problemas con copiado y pegado especial

Estas en el tema de Problemas con copiado y pegado especial en el foro de Ofimática en Foros del Web. Hola Colegas, intento copiar un valor de una celda X y pegarla en otra. El problema es que la celda de destino se encuentra combinada ...
  #1 (permalink)  
Antiguo 12/09/2007, 20:11
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
Problemas con copiado y pegado especial

Hola Colegas, intento copiar un valor de una celda X y pegarla en otra. El problema es que la celda de destino se encuentra combinada con otras, y al intentar pegar la informacion con el modo especial, valores, me sale el cartel de:

La operacion requiere que las celdas a combinar tengan el mismo tamaño

Range("E16").Copy
Sheets(" INGRESO DE PEDIDOS ").Range("L56").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
Application.CutCopyMode = False

Prove variando estas opciones de true a false, pero no cambia... SkipBlanks:=True, Transpose:=True

Como se evita este error? Gracias
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #2 (permalink)  
Antiguo 12/09/2007, 22:57
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Problemas con copiado y pegado especial

Como me parece improbable poder "sobrepasar" una restricción del Excel, te sugiero aplicar la siguiente metodología:
Set Rng = Sheets(" INGRESO DE PEDIDOS ").[L56].MergeArea
Rng.MergeCells = False: Application.DisplayAlerts = False
[E16].Copy: Rng.PasteSpecial Paste:=xlValues
Rng.MergeCells = True: Application.DisplayAlerts = True
Set Rng = Nothing


Fíjate si te sirve.

Saludos

Última edición por mrocf; 12/09/2007 a las 23:08
  #3 (permalink)  
Antiguo 12/09/2007, 23:59
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
Re: Problemas con copiado y pegado especial

Gracias Mrocf, lo probare, te agrego otra pregunta, que no logro entender por que me genera error...

Range("E16").Copy
Range("E47").Select
Sheets(" INGRESO DE PEDIDOS ").Select
Range("L56:W56").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Este codigo lo acomodo de esta manera, pero me da error

Range("E16").Copy
Range("E47").Select
Sheets(" INGRESO DE PEDIDOS ").Range("L56:W56").Paste
Application.CutCopyMode = False

No deberia pero si lo abrevio asi, no funciona
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #4 (permalink)  
Antiguo 13/09/2007, 00:39
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
De acuerdo Problemas con copiado y pegado especial


Está bien que no te funcione el Paste... porque lo correcto sería:
Código:
ActiveSheet.Paste _
    Destination:=Sheets(" INGRESO DE PEDIDOS ").[L56:W56] 
Sin embargo y para el caso, es más "barato" lo siguiente:
Código:
[E16].Copy _
    Destination:=Sheets(" INGRESO DE PEDIDOS ").[L56:W56] 
porque con un sólo método has copiado y has pegado la información.

Saludos

Última edición por mrocf; 13/09/2007 a las 00:49
  #5 (permalink)  
Antiguo 13/09/2007, 09:19
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
Re: Problemas con copiado y pegado especial

Impecable mrocf, sos una biblia, gracias por tu ayuda!
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #6 (permalink)  
Antiguo 13/09/2007, 10:21
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Re: Problemas con copiado y pegado especial

Fue un gran gusto. Hasta la próxima.
  #7 (permalink)  
Antiguo 13/09/2007, 12:30
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
Re: Problemas con copiado y pegado especial

Hola Mrocf nuevamente, tengo otra duda con el copiado de datos, por que la celda de origen, tiene datos concatenados de este tipo:

nombre y apellido, direccion, telefono

quisiera desconcatenar estos datos para luego si copiarlos con la formula que me diste, estuve viendo la formula =EXTRAER() pero solo extrae la cantidad de caracteres fijo que uno le indica en la formula, si el nombre es mas largo o mas corto, sale mal.

Necesitaria que me detecte el caracter "," y que copie hasta ahi, o entre coma y coma.

tambien me servira para desconcatenar un email, ya que tengo que separar lo que aparece primero y luego lo que aparece despues del @. Gracias
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #8 (permalink)  
Antiguo 13/09/2007, 14:08
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
Re: Problemas con copiado y pegado especial

Pude encontrar una funcion que viene con excel que se llama, texto en columnas, con la grabadora de macro, obtuve esto..

Selection.TextToColumns Destination:=Range("A10"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

voy a ver si sale, si a alguien se le ocurre otra opcion, sera bienvenida :D
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #9 (permalink)  
Antiguo 13/09/2007, 15:26
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Re: Problemas con copiado y pegado especial

Efectivamente, debes utilizar el Asistente para convertir texto en columnas con la "coma" como separador... ni más... ni menos.

Suerte.
  #10 (permalink)  
Antiguo 28/01/2009, 16:40
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
Respuesta: Problemas con copiado y pegado especial

Cita:
Iniciado por mrocf Ver Mensaje
Está bien que no te funcione el Paste... porque lo correcto sería:
Código:
ActiveSheet.Paste _ 
Código:
   Destination:=Sheets(" INGRESO DE PEDIDOS ").[L56:W56] 
Sin embargo y para el caso, es más "barato" lo siguiente:
Código:
[E16].Copy _ 
Código:
   Destination:=Sheets(" INGRESO DE PEDIDOS ").[L56:W56] 
porque con un sólo método has copiado y has pegado la información.

Saludos

Hola Mrocf, tengo un loop "For" el cual copia informacion de una hoja a otra, y tengo y array con las posiciones de destino, por que el metodo que vos mencionas no acepta lo siguiente??

[E16].Copy Destination:=Sheets(" INGRESO DE PEDIDOS ").[cantidad(i)]
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #11 (permalink)  
Antiguo 28/01/2009, 20:44
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Problemas con copiado y pegado especial

Hola! Pablus.
Suponiendo que hayas definido el arreglo de un modo parecido a lo que sigue:
Código:
Dim cantidad As Variant
cantidad = Array("e7", "e8")
deberías modificar tu línea de código del siguiente modo:
Código:
[E16].Copy Destination:=Sheets(" INGRESO DE PEDIDOS ").Range(cantidad(i))
Saludos, Cacho.
  #12 (permalink)  
Antiguo 28/01/2009, 20:57
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
Respuesta: Problemas con copiado y pegado especial

Grande chacho :D:D ya pude terminar mi codigo, muchas gracias ;)
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #13 (permalink)  
Antiguo 28/01/2009, 21:19
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Respuesta: Problemas con copiado y pegado especial

Me alegra y hasta la próxima.
Saludos, Cacho.
  #14 (permalink)  
Antiguo 12/03/2009, 16:05
 
Fecha de Ingreso: marzo-2009
Mensajes: 1
Antigüedad: 15 años
Puntos: 0
Respuesta: Problemas con copiado y pegado especial

mrocf tengo un problema quiero copiar unas celdas con formulas y ancho original con pegado especial pero me sale una ventana q no me da estas opciones , he visto en otro ordenador q sale una ventana distinta .
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado

SíEste tema le ha gustado a 2 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 03:20.