Macro y Selection. Paste
Hola: Necesito de sus conocimientos ya que realice una macro donde en una parte de la rutina (Selection.PasteSpecial...) me produce un error y no puedo descubrir el porque.
Sheets("comisiones").Select
Range("b43:d43").Select
Selection.Copy
Sheets("menu").Select
Sheets("menu").Unprotect
Range("aa125").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Range(Cells(ActiveCell.Row, 27), Cells(ActiveCell.Row, 29)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Desde ya muchas gracias por su tiempo.
Saludos
Angela
Sheets("comisiones").Select
Range("b43:d43").Select
Selection.Copy
Sheets("menu").Select
Sheets("menu").Unprotect
Range("aa125").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Range(Cells(ActiveCell.Row, 27), Cells(ActiveCell.Row, 29)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Desde ya muchas gracias por su tiempo.
Saludos
Angela
Respuesta de leone
1