Foros del web, para los que viven de bits

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

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

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

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

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

Fue un gran gusto. Hasta la próxima.

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

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

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

Suerte.