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.
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.