Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Recommended Posts

Hola, buenos dias, como estan?

Les comento que soy nuevo tanto en el foro como en el uso de Macros.

Mi inconveniente es este, tengo la siguiente Macro:

Sub Definitiva_Posta()

 Definitiva_Posta Macro

    Range("B1:B10").Select
    Selection.Copy Sheets("Hoja2").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Rows("3:3").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Hoja1").Select
    Range("B2:B10").Select
    Selection.ClearContents
End Sub

Lo que debería hacer es, de la hoja asignación, copiar los valores de las celdas B1:B10 y pegar esos valores en la Hoja de Data. Pero al ejecutarlo me aparece el error 9 de Sub Indice fuera de rango.

Les adjunto el Link con el archivo por si les es de utilidad.

https://drive.google.com/open?id=1Pt1FxlFI2FSWAKkz7zmRfJ3QdQtdENrY

Desde ya muchas gracias y perdón por adelantado si cometí algún error de formato al publicar el tema.

Share this post


Link to post
Share on other sites

Prueba la macro:

Sub Definitiva_Posta()
'
' Definitiva_Posta Macro
'
    Application.ScreenUpdating = False
    Hoja1.Range("B1:B10").Copy
    Hoja2.Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Hoja2.Rows(3).Insert Shift:=xlDown
    Hoja1.Range("B3:B10").ClearContents
    Application.CutCopyMode = False
    
End Sub

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png