error #1004

Hi Folks, I'm using Microsoft 365, so a current version of excel. I'm having issues with the following code to refresh all the queries I have in my workbook: Sub Refresh_All_Data_Connections() Call TurnOffStuff Dim objConnection As Object Dim bBackground As Boolean For Each...

I use Excel 365 on Windows 10. I have a Membership database in an Excel workbook. Every so often, using a VBA macro, I copy a worksheet into a new book, remove all code from the copy and update various cell formats. I manually do some editing and remove some rows and columns and then run a...

I have the following macro which does the following: Get the file names from a folder on Windows Combines the name with the folder name Hyperlinks the conjoined names How it looks in the table (the folder path is longer now and not sure if that is a problem in the script as to where the...

Hi, I have written some code that looks for column headings to locate the columns of data required in my formula, thus returning a column number. So logically the best method of creating my formula in the cell is to use the FormulaR1C1 function in vba, however I have been unsuccessful in getting...

Hello, I am having an issue with the following code. As i am trying to copy filtered data from one page to another and then go back to the original data page and delete the transferred data. I keep getting hung on this line with the Error 1004 Delete Method of Range Class Failed...

Good Evening, I’m wondering if someone could cast an eye over some VBA code I am using in a workbook. The workbook isn’t marked as shared and is protected, it is stored on a network drive so users can access it. Users all use the same version of Excel 2016 (RemoteApp hosted on a Remote...

Hi! I have two spreadsheets (A and B) and I'd like VBA to do a VLOOKUP from A to B. Once the ranges are dynamic, I defined counters and they are working, I checked that. So there's the loop, contador stands for the counter in spreadsheet A. It should look for the content of cell Y&counter in...

Can anyone figure out why this fails? I have done everything i can think of to make sure there is nothing to bother it. I have run it with the header cleared, I have deleted all rows with any illegal characters. Ii have added a little sub to do this too. I am using a script i that creates...

I have 2 VBA codes that are almost identical to each other, the only difference is that one of them has a prompt for message box with input to fill in column B. Basically code 2 is identical to code 1, but with all the columns shifted one down (B-C, C-D, etc). Below is code 1 Private Sub...

Hello! I am relatively new to Macros so bare with me. Here is the code that I am working with: Sub Step4() ' ' Step4 Macro ' ' Keyboard Shortcut: Ctrl+Shift+N ' ActiveSheet.AutoFilterMode = False Range("K1").AutoFilter Field:=11, Criteria1:=Array( _ "#N/A")...

Hello, I'm trying to use VBA to alter the parameters of my chart. But specifically with the Ticklabels.Offset - I get "Run time error 1004 - Parameter not valid", and I can't work out why. The code below works for the maximum scale and minimum scale, then gets an error where labelled...

Hi All Good day for you........ I Run below code i get run-time error. Please need you help Sub GetFileCopyData() Dim Fname As String Dim SrcWbk As Workbook Dim DestWbk As Workbook Set DestWbk = ThisWorkbook Fname = Application.GetOpenFilename(FileFilter:="Excel Files...

Hi, The sheet I am currently working on has numerous hide/unhide functions built into it. I am currently trying to to hide/unhide rows depending on the number of bank accounts selected. However, I haven't been able to get it to work at all! Can anyone see where I am going wrong? Private Sub...

Within an excel workbook I have created a routine that automatically logs the user and date when the workbook is initially opened. The Sub Workbook_Open() calls the routine. For most users it has worked effectively for sometime. However, myself and a few users are now getting the Run-time error...

Hi All! I am in dire need of all your expert advise. I have already searched through google and previous forums here with similar problems but none of the answers in those forums seemed to indicate why my code is not working... I have even compared to the docs.microsoft.com example and it is...

Dear Gents, I've got errornotice for following code: Cells(ActRow, 41).Value = NewUseVol I already define ActRow and NewUseVol(=0) (with public) Would you please suggest any solution to handle this error? Thanks.