"El método Paste de la clase Worksheet ha fallado"
Resuelto
Bonjour à toutes et à tous,
Me encuentro con un error básico de VBA durante un ActiveSheet.Paste. Aquí está mi código:
Y el error se produce en "ActiveSheet.Paste"
¡Gracias de antemano por su ayuda a todos!
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
-
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+! -
¡Funciona de maravilla, muchas gracias!
Que tengas un buen día.