What's new

What's new New posts New profile posts Latest activity

Latest posts

D
3 errors in Validation Tool for which I can't find a solution
Replies
0
Views
1
DanielFdrvc
P
Dropdown In Web Application
Replies
3
Views
46
naveedraza
A
Credential for foundation training
Replies
2
Views
109
yawak
C
Shared Mail Inbox Outlook
2
Replies
30
Views
5,181
jonnymop5
L
Access denied after restarting process
Replies
1
Views
52
Leon Zwinderman
R
How to open Photo with application modeler
Replies
0
Views
29
ravikumarj023
B
Utilizing Robotic Process Automation For Manufacturing
Replies
0
Views
22
BPS
E
Excel Get Worksheet as Collection gives different values as in the Excel
Replies
3
Views
110
Sukesh Kumaru
A
Rpa blueprism
Replies
2
Views
44
naveedraza
O
Filed column doesn't exist error
Replies
2
Views
84
naveedraza
View more…

Latest profile posts

A
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
A
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
A
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
A
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
A
Hi Karan ,

Is shared inbox working for you ? Am trying to move email of sharedinbox to subfolders but its giving error "object reference not set " . Can you share the solution for this please.
View more…
Top