set

Hello, I want to copy 3 worksheets to a new workbook, but exclude a range from one of the worksheets (and any buttons on the worksheet as well. I want to exclude J1:U2 on "Metric Report" Is there a way to do this? this is what I am using right now Sub ThreeSheets() With...

Hi all i am trying to automate the creating and saving of invoices as a pdf. so far i have everything working up until it brings up the pdf preview and then i cant get it to work from there. i have done heaps of searching and tried lots of different code but to be honest its a bit out of my...

I have my format control to change by week stating for 2019 and it runs to week 52 but i want that to change in 2020 to start week 1 thru week 52. Control set to Minimum Value: 44 i started with the data for week 44 Maximum Value: 52 Incremental Change: 1 Page Change: 3 Cell Link: Calculation!$A$2

I recorded a macro by going to a PivotTable, and in the dropdown for the field i was interested in, i checked "Select all)" and then pressed OK. What VBA recorded was this: With ActiveSheet.PivotTables("PivotTable3").PivotFields("Vaca") .PivotItems("excl").Visible = True...

Respected gurus, experts and MVPs, I have written the following code for the pivot table and it is generating pi.Visible <Type Mismatch> error. Sub piVisibleMismatch() Dim lastrow As Long, endrow As Long Dim Psheet As Worksheet, Dsheet As Worksheet Dim Pcache As PivotCache, Ptable As...

I have an excel program where I count the numbers for the past year then use the count to pick my lottery numbers. I have won small amounts for the past year every week but never amounts over $100 so now I would like to refine my program to look at the past years drawings and compare it to my...

Hi I have a code that runs through a list of people and sends individual files to each one. The code automatically sends the emails from one of two email accounts I have. Problem is, it's the account that isn't associated with the message! As this spreadsheet will be used by many different...

Just wondering why this goes to error 91 "object or with block not set" Dim MyRange as Range Dim a Set MyRange = Application.Range("Sheet1!A2:G2") a= MyRange(1).comment.text ' Set a= MyRange(1).comment.text Both 'a=' lines result in the same error 91 Thanks.

What's wrong here? Dim Arg1 As Range 'the range i want to sum Dim Arg2 As Range 'criteria range Dim Arg3 As Range 'the criteria (range) Set Arg1 = Sheets("TextFile").Range("M5:N10000") Set Arg2 = Sheets("TextFile").Range("K5:K10000") Set Arg3 =...

Hello All, I'm working on editing this VBA code below to allow edits in additional cells to trigger an email sent to additional email address. Could anyone help me edit this code to allow for this? Private Sub Worksheet_Change(ByVal Target As Range) 'Updated by Extendoffice 2017/9/12 Dim...

Dear all, I am a beginner in VBA and I am enjoying a lot how it can help me in my activities. My company uses Lotus Notes, and I am trying to use the code below to send automatically emails using Excell/VBA and Lotus Notes. But the problem is that I don't know how to format the text of the...

I'm looking for a way to determine the number of the color set to cell. I have a macro that loops through creating a column of cells with the number background color... But I can't seem to find the corresponding color from the fill drop down. I have a table and use the color number to set the...

possible to Import List (path) of Folder Names from multiple Folder in Excel Sub ListFolders() Dim MyPath As String, MyFolderName As String, MyFileName As String Dim i As Integer, F As Boolean Dim objShell As Object, objFolder As Object, AllFolders As Object, AllFiles As Object...

folks, I am trying to set up a model that will report for the next twelve months. Each month is on a separate worksheet. I need to show salesperson and sales amount in one of the graphs. Given that sales people may or may not achieve a sale in any one month, I thought that using a pivot table...

I am getting the object required error with this code: Sub cmdCopy() Dim wsDst As Worksheet, wsSrc As Worksheet, tblrow As ListRow Dim Combo As String, sht As Worksheet, tbl As ListObject Dim lastrow As Long, DocYearName As String, Site As String, lr As Long Dim RowColor As Long...

I created a procedure that splits a file into a bunch of smaller workbooks and then emails them using outlook. I rolled this out to approximately 20 users. It works fine on everyone's PC except one person. On her machine the macro seems to run fine and then excel crashes without warning like it...

I'm trying to create a macro that does the following: On theButton was clicked set theButton style =msoShapeStylePreset12 Run the query Query refresh completes set theButton style = msoShapeStylePreset14 end But, the button doesn't change until after the query has refreshed. I eve...

Hello All, Lately I have been having certain formulas fail to calculate (yes, I AM on automatic calculation ;)). On November 2, it was a simple =Today() function that hadn't updated since October 31. Hitting calculate or refresh did nothing. Only when I entered the formula for editing, then...

Morning. The code below works but looking for an edit please. I type AB02 in the search box & the listbox returns the results from column E I wish to now type AB02 but in the listbox be able to see not only like before the results from column E BUT also column F,G,H So it would look like this...

I have some code that is meant to save and close the workbook identified in the select statement (Wes_reference or Riv_reference) but it is not closing it. What have I left out? Sub AddReference() Dim wb1 As Workbook, wb2 As Workbook Dim sh1 As Worksheet, sh2 As Worksheet, site As String Dim...