How to move excel sheet at the end using VBA script/code

Help Studio
, ,
1

Below is the one line code i have written to move sheet named ‘Final’ at the end,

image
image1136×368 15.1 KB

Getting this error

image
image816×290 8.9 KB

Kindly help if i need to pass something in the Edit arguments tab. Thank you

2

Hi @Nishant_mantri

Check out this link

https://www.extendoffice.com/documents/excel/3155-excel-move-sheet-to-end-front.html

Chout this docs

https://docs.uipath.com/activities/other/latest/workflow/invoke-vb-script

Regards
Gokul

3

Hi @Nishant_mantri

Have passed the input arguments correctly?

Regards
Sudharsan

4

what exactly do i need to pass in Invoked code argument? Name: Worksheets? what should be the Type and value?

image
image1394×396 17.6 KB

5

I did go through this… got the vba code from the first link, but not able to understand how to use the same in Invoke VBA code activity…

6

Hi Sudharshan,
Any help on this? thank you

7

@rodrigo.simao Hi Rodrigo… any help on this?

8

Hi @Nishant_mantri

Have you tried with macro

9

Hello @Nishant_mantri, I’m currently trying to figure it out…

10

@Nishant_mantri
try this

Sub MoveWorksheet()
Worksheets(“final”).Move After:=Worksheets(Worksheets.Count)
End Sub

refer this

11

that is just the VBA code to move the sheet to the end, i need to use that in the Invoke code activity in UiPath… not able to do it… I did go through the link which you have posted, there is no solution in that…

12

@Nishant_mantri

You can also use macros, Try like this

image
image1249×414 20.1 KB

Here is the script
MoveSheet.vb (202 Bytes)

Make sure that this option is enabled

image
image1869×899 76.2 KB

Regards
Sudharsan

1 Like
13

Hi @Nishant_mantri

You can try this xaml by using Invoke Code

BlankProcess13.zip (44.1 KB)

14

im getting this error in the Entry Method parameters property

image
image2024×936 87 KB

15

@Nishant_mantri

Try this by using Invoke Code activity

16

@Nishant_mantri

You can try this way also by using Excel Invoke VBA activity

image
image882×1031 36.9 KB

Code:

Sub MoveSheetToEnd()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet3") ' Replace "SheetName" with the name of the sheet you want to move
    
    ' Move the sheet to the end
    ws.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End Sub

BlankProcess13.zip (51.8 KB)

17

Works perfect… Thanks a lot…

However, if my workbook is already opened what changes I need to make to the code, I think i need to set work book to Activeworkbook, i tried but i think my syntax is incorrect, getting exception for the same.

18

@Nishant_mantri

Try this

Sub MoveSheetToEnd()
    Dim ws As Worksheet
    Dim activeWorkbook As Workbook

    ' Set the active workbook
    Set activeWorkbook = ActiveWorkbook

    ' Replace "SheetName" with the name of the sheet you want to move
    Set ws = activeWorkbook.Sheets("SheetName")

    ' Move the sheet to the end
    ws.Move After:=activeWorkbook.Sheets(activeWorkbook.Sheets.Count)
End Sub
19

Perfect… no need to open workbook as this is inside use excel scope… Thank you Irtetala

1 Like
20

Hope it’s clarified @Nishant_mantri

If yes would suggest to close this topic