1004

Hi guys, I get an application defined/Object defined error for the below, any help is much appreciated! Sub Macro1() ' ' Macro1 Macro ' ' For Y = 1 To 12 For Z = 1 To 50 For A = 1 To 50 For B = 1 To 50 X = Z + 3 C = A + 4 D = B + 5...

So I get this when I use my spreadsheet, Rint-Time error '1004'; Application-definded or object-defined error. Here is the code I have, Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Not Intersect(Target, Columns("A")) Is Nothing Then If Target.Row...

I wonder if anyone might be able to help me? I've come across an error in a workbook set up for the 2016 year (it was a direct copy of the 2015 original, clearing previous data and updating the date range). When I run the macro in the 2016 file, I am presented with the following error...

Hello, I have tried Googling & searching this forum, but only seem to be finding unrelated issues that do not help me solve my problem. I have a macro set up with a final portion that filters through some columns and deletes and/or moves rows of information depending on filtered results. All...

Hi everyone, I have written several macros to grab data from an external source and copy it to the open workbook but occasionally the exact same codes runs into the Run-time Error 1004. The setup is I have around 20 Workbooks each which have the below code within them referring to a single...

Hello again forum, I posted earlier about a project I was undertaking and was wondering if anyone could help again please I am creating multiple workbooks, using a loop and pasting data into each of them in turn and saving them. Every now and again I get an error message pop up on screen "...

Hi, i keep getting the above error when trying to run this last bit of my code: Dim laddercount As Double Dim x, y As Double laddercount = Evaluate("COUNTA(R:R)-1") For y = 19 To laddercount + 19 For x = 7 To x + laddercount Cells(x, y).Select...

Hi all, this is a bit of a long one, so you're going to need to bare with me for a bit. I have some code which locks every sheet in a workbook simultaneously listed here: Sub LockAll() 'Disable additional features With Application .ScreenUpdating = False .Calculation = xlManual...

Hi guys, I've written a Macro that will copy what's in cells and then insert that X amount of times in the cells below(Being used to copy formulas). This works perfectly once I've unlocked the sheet, however, I receive the following error when trying to run this macro in a locked sheet: Runtime...

Hi, I need some help here. Previously it was working fine with the exact same code. And lately, it has been showing runtime error 1004 with the highlighted as per below. I have no idea what is wrong when there was no change from the previous. Please help.... Sub SaveInvWithNewName()...

Hi Guys, having a problem with some VBA. Its working until the Vlookup returns a "#N/a" then i get a: Run-time error '1004' unable to get the vlookup property of the worksheet funtion class. any ideas? i need it to check a selection of cells and highligh if they match a list in workbook...

Hello I wrote a macro that moves through worksheets performing the same tasks in each. The macro works fine when there are a few sheets to go through, but when I start adding more worksheets, I get error 1004. I've started also getting a message box that comes up but its completely black so i...

Sub Macro15() ' ' Macro15 Macro ' ' Sheets("Plan4").Select ' the error start here Rows(3).Select Selection.EntireRow.Hidden = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.EntireRow.Hidden = True Range("A2:L2").Select...

<!-- BEGIN TEMPLATE: ad_showthread_firstpost_start --><!-- END TEMPLATE: ad_showthread_firstpost_start -->Here I am getting it: For Each cell In Range(temp(0).Cells(1).Offset(0, 1), Cells.SpecialCells(xlCellTypeLastCell)).SpecialCells(xlCellTypeConstants, 1)

Hi all, Struggling with a macro that I am using to scrape some data from a webpage. The code is as follows and is placed in a Module. Sub getdataEnglish() Application.Calculate Dim result As String Dim myURL As String Dim winHttpReq As Object Set winHttpReq =...

Hi. This is probably very hard to follow, but I'll try my best because I am very desperate for help. Counts = number of columns I need to copy. BLANK = a variable that stores a certain integer such as 7,8,or 9. Height = How long I want the range to be. (This length is in row direction.) I am...

Good Morning, I have a vlookup that keeps throwing an error code, but only after it has completed it's job. It will populate all of the cells in the desired range with the correct values and then throw the error. Can anyone tell me what's going wrong with this? Dim v As Integer v = 2 Do...

I have a pivot table with 2 Row Label ([RAMI PN] & [U of M]), 1 Column Label [Date], and one Sum of Value [Weekly Inventory]. I had a slicer set up that would allow the user to filter by [RAMI PN], but 2 of the frequent users have Excel 2007, which doesn't allow slicers. As an alternative...

Greetings, I am currently experiencing the following error: Run-time error '1004': Unable to get the PivotFields property of the PivotTable class on this line of code: With ActiveSheet.PivotTables("PivotTable2").PivotFields("Count of Project") I can change "Count of Project" to "Project" and...

Greetings, I am currently experiencing the following error: Run-time error '1004': Unable to get the PivotFields property of the PivotTable class on this line of code: With ActiveSheet.PivotTables("PivotTable2").PivotFields("Count of Project") I can change "Count of Project" to "Project" and...