Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Ofimática (http://www.forosdelweb.com/f90/)
-   -   Problemas con copiado y pegado especial (http://www.forosdelweb.com/f90/problemas-con-copiado-pegado-especial-518828/)

Pablus00 12/09/2007 20: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

mrocf 12/09/2007 22:57

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 :si:

Pablus00 12/09/2007 23:59

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

mrocf 13/09/2007 00:39

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 :si:

Pablus00 13/09/2007 09:19

Re: Problemas con copiado y pegado especial
 
Impecable mrocf, sos una biblia, gracias por tu ayuda!

mrocf 13/09/2007 10:21

Re: Problemas con copiado y pegado especial
 
Fue un gran gusto. Hasta la próxima.

Pablus00 13/09/2007 12:30

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

Pablus00 13/09/2007 14:08

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

mrocf 13/09/2007 15:26

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.

Pablus00 28/01/2009 16:40

Respuesta: Problemas con copiado y pegado especial
 
Cita:

Iniciado por mrocf (Mensaje 2127956)
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 :si:


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)]

mrocf 28/01/2009 20:44

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. :si:

Pablus00 28/01/2009 20:57

Respuesta: Problemas con copiado y pegado especial
 
Grande chacho :D:D ya pude terminar mi codigo, muchas gracias ;)

mrocf 28/01/2009 21:19

Respuesta: Problemas con copiado y pegado especial
 
Me alegra y hasta la próxima.
Saludos, Cacho.

toborochi 12/03/2009 16:05

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 .


La zona horaria es GMT -6. Ahora son las 09:11.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.