Ver originales (Francés)

"El método Paste de la clase Worksheet ha fallado"

Resuelto
Armandra Mensajes publicados 4 Estado Miembro -  
Armandra Mensajes publicados 4 Estado Miembro -
Bonjour à toutes et à tous,

Me encuentro con un error básico de VBA durante un ActiveSheet.Paste. Aquí está mi código: 
 Dim Cel_reso As Range Set Cel_reso = Cells.Find(What:="Résolution") If Not Cel_reso Is Nothing Then Cells(1, Cel_reso.Column).Resize(Cells(Rows.Count, Cel_reso.Column).End(xlUp).Row).Cut Columns("A:A").Insert Shift:=xlToRight Range("A1").Select ActiveSheet.Paste End If


Y el error se produce en "ActiveSheet.Paste"

¡Gracias de antemano por su ayuda a todos!

2 respuestas

Respuesta 1 / 2
Gyrus Mensajes publicados 3360 Estado Miembro 526
 
Bonjour,

El siguiente código es suficiente: 

Dim Cel_reso As Range
Set Cel_reso = Cells.Find(What:="Resolución")
If Not Cel_reso Is Nothing Then
Cells(1, Cel_reso.Column).Resize(Cells(Rows.Count, Cel_reso.Column).End(xlUp).Row).Cut
Columns("A:A").Insert Shift:=xlToRight
Range("A1").Select
End If


¡A+!
2
Respuesta 2 / 2
Armandra Mensajes publicados 4 Estado Miembro
 
¡Funciona de maravilla, muchas gracias!

Que tengas un buen día.
0