User Profile
dmeno245
Copper Contributor
Joined Mar 22, 2022
User Widgets
Recent Discussions
Update Excel on Desktop from Microsoft Teams (Excel)
I have a scenario where in a Team uploads/updates an Excel sheet on Microsoft Teams site on Weekly basis which has standard set of 12 columns. This is the current process :- 1. Team 1 on Monday updates the file and uploads it to Teams site on Reports-->Files section. 2. Mail is sent to me saying its updated. 3. I open the Excel file. Copy all the content 4. Paste it on my excel file. This excel file that I own is updated. The excel file is something which I use to connect to Tableau as a datasource which affects the numbers on the dashboard. What Im looking to do is :- 1. When Team 1 on Monday updates the file and uploads it to Teams site on Reports-->Files section then the data in the file syncs with the file I have in my system instead of doing a manual copy paste. Is there an easy way to do this?1.6KViews0likes0CommentsSharepoint Excel Files
I have case where I have a sharepoint site where multiple excel files are located as attachments. These files are put in on a regular basis. I want to pull in data from all these excel files located in sharepoint and combine them into a single excel file on my local machine. How can I achieve that? Is there a way we can do this?VBA query Help -Scenario
I have a data that is 10000 records which is the Orders Data Steps I perform now 1. Go to Orders Data :- Set some standard filters on the sheet. Copy the data along (with HEADERS) and paste in say Sheet1. 2. Go to Orders Data :- Set some standard filters again on the sheet. Copy the data (without the Headers) and paste it on Sheet2. 3. Add another Sheet3 4. copy the data from Sheet1 with Headers and Paste. 4. Copy the data from Sheet2 and append it below Sheet1 last row where it ended. How can I automate this using VBA I have managed it do a bit of it..Don't know where Im going wrong Sub dave() On Error Resume Next 'proceed in case of error (if sheets doesn't excist) Application.DisplayAlerts = False 'give no alert Sheets("sheet1").Delete 'delete those sheets Sheets("sheet2").Delete Sheets("sheet3").Delete Application.DisplayAlerts = True On Error GoTo 0 With Sheets("Orders") '<---------give here the name of the sheet, i think it's Orders .Range("A1").AutoFilter With .Range("$A$1:$U$9995") .AutoFilter Field:=8, Criteria1:="Home Office" '1st filter .SpecialCells(xlVisible).Copy 'the visible cells only Sheets.Add After:=ActiveSheet 'copy a first time to sheet1 With ActiveSheet .Paste .Name = "SHEET1" End With Sheets.Add After:=ActiveSheet 'copy a 2nd time to sheet3 With ActiveSheet .Paste .Name = "SHEET3" End With .AutoFilter Field:=13, Criteria1:="East" '2nd filter .SpecialCells(xlVisible).Copy Sheets.Add After:=ActiveSheet 'copy a 1st time to sheet2 With ActiveSheet .Paste .Name = "SHEET2" End With .Offset(1).SpecialCells(xlVisible).Copy 'copy a 2nd time and append in sheet3 With Sheets("sheet3") 'to a 3rd sheet With .Range("A" & Rows.Count).End(xlUp).Offset(1) 'next free A-cell .Paste End With End With End With End With End Sub630Views0likes0Comments
Recent Blog Articles
No content to show