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

  1.
    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
  2. Armandra Mensajes publicados 4 Estado Miembro
     
    ¡Funciona de maravilla, muchas gracias!

    Que tengas un buen día.
    0