What's new

Latest profile posts

Hi Tgundhus, I am looking for examples on triggering a process/schedule via email and in one of your post you mentioned you have a video related to this? Possible if you could share? hsiddiq@gmail.com
Hi members,
Code stage For the Convert data to table format

Dim wb, ws As Object
Dim excel, sheet, range As Object

Try

wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
range = sheet.Range(Reference)
sheet.ListObjects.Add(1,range, ,1).Name="Table1"

Thanks & Reagrds
Aditya Bankar
Hi members,
Code stage to Colour your table
Dim wb, ws As Object
Dim excel, sheet, range As Object

Try
wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
range = sheet.Range(Reference)
sheet.Selection.Style = "60% - Accent3"

Thanks & Reagrds
Aditya Bankar
Hi members,
code for the Style Your Pivot table code stage
Dim wb, ws As Object
Dim excel, sheet As Object
Try
wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
sheet.PivotTables(PivotName).TableStyle2 = "PivotStyleMedium1"

Thank and Regrads
Aditya
Hi members,

Any wants to code for the Refresh Data on the file open. or want to reduce the size of file you can use the following code stage i am sharing the code
Dim wb, ws As Object
Dim excel, sheet As Object
Try
wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
sheet.PivotTables(PivotName).SaveData = F
A
ADITYA_RPA
last two lines
sheet.PivotTables(PivotName).SaveData = False
sheet.PivotTables(PivotName).PivotCache.RefreshOnFileOpen = True
Top