Problemas con copiado y pegado especial

[Pablus00]

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]

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

[Pablus00]

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]

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

[Pablus00]

Impecable mrocf, sos una biblia, gracias por tu ayuda!

[mrocf]

Fue un gran gusto. Hasta la próxima.

[Pablus00]

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]

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]

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

Suerte.

[Pablus00]

Iniciado por mrocf

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

[mrocf]

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.

[Pablus00]

Grande chacho :D:D ya pude terminar mi codigo, muchas gracias ;)

[mrocf]

Me alegra y hasta la próxima.
Saludos, Cacho.

[toborochi]

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 .