Please Help! Run-Time error 1004; Method range of object worksheet failed.

D

dsheard2015

Board Regular
Joined
May 10, 2016
Messages
134
Hello, I am in the process of transferring a lot of the sheet calculations and conditional formatting into vba for efficiency and in the process I am receiving an error that I cannot seem to figure out, "run-time error 1004; method range of object worksheet failed". I have attached all the worksheet code for this sheet, the error is coming from the worksheet change event code and the line in red text is where the error is according to the error message. I will also try to attach an image of the worksheet so you can see the layout. Any help is greatly appreciated.

Thank you very much!

VBA Code: 
Private Sub Worksheet_Activate()

Dim rLockable As Range
Dim x As Range
Dim y As Range
Dim z As Range
Dim c As Range
'Dim cell As Range
'Dim cl As Range
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range
Dim aer As AllowEditRange
Dim sh As Worksheet

On Error Resume Next
On Error GoTo 0

Set sh = ThisWorkbook.ActiveSheet
Set rng1 = Range("M12:V50, AI15:AR50, M65:V103, AI68:AR103, M118:V156, AI121:AR156, M171:V209, AI174:AR209, M224:V262, AI227:AR262, M277:V315, AI280:AR315, M330:V368, AI333:AR368, M383:V421, AI386:AR421, M436:V474, AI439:AR474")
Set rng2 = Range("B15:B50, B68:B103, B121:B156, B174:B209, B227:B262, B280:B315, B333:B368, B386:B421, B439:B474, X15:X50, X68:X103, X121:X156, X174:X209, X227:X262, X280:X315, X333:X368, X386:X421, X439:X474")
Set rng3 = Range("B15:B50, B68:B103, B121:B156, B174:B209, B227:B262, B280:B315, B333:B368, B386:B421, B439:B474")
Set rng4 = Range("X15:X50, X68:X103, X121:X156, X174:X209, X227:X262, X280:X315, X333:X368, X386:X421, X439:X474")
Set x = Range("BC:BW")
Set y = Range("BY:CS")
Set z = Range("W:AR")

StopCalc

Unprotect Password:=Sheet577.Range("H27").Value

For Each c In rng2
    If c.Value <> Empty Then
        c.Interior.Color = RGB(221, 217, 196)
        c.Font.Color = RGB(0, 0, 0)
        c.Font.Bold = False
        Else
            c.Interior.Color = RGB(255, 255, 255)
            c.Font.Color = RGB(0, 0, 0)
    End If
Next c

For Each c In rng3
        If Range("WS15").Value = True And Range("WT15").Value = False Or Range("WS15").Value = True And Range("WT15").Value = True And Range("WW15").Value > 0 Then
            Range("B15").Interior.Color = RGB(0, 0, 0)
            Range("B15").Font.Color = RGB(255, 0, 0)
            Range("B15").Font.Bold = True
                If Range("RP15").Value = "w" Then
                    Range("B15").Interior.Color = RGB(255, 255, 255)
                    Range("B15").Font.Color = RGB(0, 0, 0)
                    Range("B15").Font.Bold = False
                End If
        End If
Next c

If Range("X15").Value > 0 Then
z.EntireColumn.Hidden = False
Shapes("Form7LogoB").Visible = True
Else: z.EntireColumn.Hidden = True
Shapes("Form7LogoB").Visible = msoFalse
End If

If Range("BY15").Value > 0 Then
y.EntireColumn.Hidden = False
Shapes("Form7LogoD").Visible = True
Shapes("UnsatTaskMsg").Visible = True
Else: y.EntireColumn.Hidden = True
Shapes("Form7LogoD").Visible = msoFalse
Shapes("UnsatTaskMsg").Visible = msoFalse
End If

If Range("BC15").Value > 0 Then
x.EntireColumn.Hidden = False
Shapes("Form7LogoC").Visible = True
Shapes("UnsatTaskMsg").Visible = True
Else: x.EntireColumn.Hidden = True
Shapes("Form7LogoC").Visible = msoFalse
Shapes("UnsatTaskMsg").Visible = msoFalse
End If

For Each aer In Protection.AllowEditRanges
    aer.Delete
Next aer

    Protection.AllowEditRanges.Add Title:="Grade Info", Range:=Range("M12:V50,AI15:AR50,M65:V103,AI68:AR103,M118:V156,AI121:AR156,M171:V209,AI174:AR209,M224:V262,AI227:AR262,M277:V315,AI280:AR315,M330:V368,AI333:AR368,M383:V421,AI386:AR421,M436:V474,AI439:AR474"), Password:=Sheets("OVERRIDE PASSWORD").Range("G14").Value

For Each c In rng1
    If Sheet278.Range("AJ1").Value = 1 Then
        c.Locked = False
            ElseIf Sheet278.Range("AJ1").Value = 2 Then
                c.Locked = True
                    ElseIf Sheet278.Range("AJ1").Value = 3 And c.Value = "" Then
                        c.Locked = False
                            ElseIf Sheet278.Range("AJ1").Value = 4 Then
                                c.Locked = True
                                    ElseIf Sheet278.Range("AJ1").Value = 5 Then
                                        c.Locked = True
                                            Else
                                                c.Locked = True
    End If
Next c
       
Range("C930").Value = 1
      
Protect Password:=Sheet577.Range("H27").Value
ResetCalc
Range("A1").Select
Range(Range("RT7").Value).Select

If Range("A2").Value = True Then
    CarryOn = MsgBox("Is there any ammo or rockets that need to be entered for this training flight?", vbYesNo, "Ammo & Rockets")
    If CarryOn = vbYes Then
    Rockets_Bullets1.Show
        If CarryOn = vbNo Then
        GoTo Cancel
        End If
    End If
End If

StopCalc

Unprotect Password:=Sheet577.Range("H27").Value
Range("XH23").Value = Range("XJ21").Value
Range("XH28").Value = Range("XJ26").Value
Range("XI31").Value = Range("XJ31").Value
Range("WU15:WU50").Value = Range("CW15:CW50").Value
Range("WU68:WU103").Value = Range("CW15:CW50").Value
Range("WU121:WU156").Value = Range("CW15:CW50").Value
Range("WU174:WU209").Value = Range("CW15:CW50").Value
Range("WU227:WU262").Value = Range("CW15:CW50").Value
Range("WU280:WU315").Value = Range("CW15:CW50").Value
Range("WU333:WU368").Value = Range("CW15:CW50").Value
Range("WU386:WU421").Value = Range("CW15:CW50").Value
Range("WU439:WU474").Value = Range("CW15:CW50").Value
Protect Password:=Sheet577.Range("H27").Value
ResetCalc

Cancel:

Protect Password:=Sheet577.Range("H27").Value

End Sub

[COLOR=rgb(147, 101, 184)]

Private Sub Worksheet_Change(ByVal c As Range)

Dim rng1 As Range 'page 1 grades
Dim rng2 As Range 'page 2 grades
Dim rng3 As Range 'previous page 1 grades
Dim rng4 As Range 'previous page 2 grades
Dim rng5 As Range 'page 1 task numbers
Dim rng6 As Range 'page 2 task numbers
Dim rng7 As Range 'WS column
Dim rng8 As Range 'WT column
Dim rng9 As Range 'WW column


Set rng1 = Range("M15:V50,M68:V103,M121:V156,M174:V209,M227:V262,M280:V315,M333:V368,M386:V421,M439:V474")
Set rng2 = Range("AI15:AR50,AI68:AR103,AI121:AR156,AI174:AR209,AI227:AR262,AI280:AR315,AI333:AR368,AI386:AR421,AI439:AR474")
Set rng3 = Range("BN15:BW50,BN68:BW103,BN121:BW156,BN174:BW209,BN227:BW262,BN280:BW315,BN333:BW368,BN386:BW421,BN439:BW474")
Set rng4 = Range("CJ15:CS50,CJ68:CS103,CJ121:CS156,CJ174:CS209,CJ227:CS262,CJ280:CS315,CJ333:CS368,CJ386:CS421,CJ439:CS474")
Set rng5 = Range("B15:B50, B68:B103, B121:B156, B174:B209, B227:B262, B280:B315, B333:B368, B386:B421, B439:B474")
Set rng6 = Range("X15:X50,X68:X103,X121:X156,X174:X209,X227:X262,X280:X315,X333:X368,X386:X421,X439:X474")
Set rng7 = Range("WS15:WS50")
Set rng8 = Range("WT15:WT50")
Set rng9 = Range("WW15:WW50")

If Not Intersect(c, rng1) Is Nothing Then
StopCalc
    Unprotect Password:=Sheet577.Range("H27").Value
    Range("XI23").Value = Range("XJ21").Value
    Range("WV15:WV50").Value = Range("CW15:CW50").Value
    Range("WV68:WV103").Value = Range("CW15:CW50").Value
    Range("WV121:WV156").Value = Range("CW15:CW50").Value
    Range("WV174:WV209").Value = Range("CW15:CW50").Value
    Range("WV227:WV262").Value = Range("CW15:CW50").Value
    Range("WV280:WV315").Value = Range("CW15:CW50").Value
    Range("WV333:WV368").Value = Range("CW15:CW50").Value
    Range("WV386:WV421").Value = Range("CW15:CW50").Value
    Range("WV439:WV474").Value = Range("CW15:CW50").Value
    Protect Password:=Sheet577.Range("H27").Value
ResetCalc
End If

If Not Intersect(c, rng1) Is Nothing Then
    Unprotect Password:=Sheet577.Range("H27").Value

    For Each c In rng5

       If Range(Cells(c.Row + 615).Value).Value = True And Range(Cells(c.Row + 616).Value).Value = False Or Range(Cells(c.Row + 615).Value).Value = True And Range(Cells(c.Row + 616).Value).Value = True And Range(Cells(c.Row + 619).Value).Value <> Empty Then 'change task number to black
            c.Interior.Color = RGB(0, 0, 0)
            c.Font.Color = RGB(255, 0, 0)
            c.Font.Bold = True

            If Range(Cells(c.Row + 484).Value).Value = "w" Then
                c.Interior.Color = RGB(255, 255, 255)
                c.Font.Color = RGB(0, 0, 0)
                c.Font.Bold = False
            End If
        End If

        If Range(Cells(c.Row + 616).Value).Value = True And Range(Cells(c.Row + 619).Value).Value <> Empty Then 'unsat given after sat
            Unprotect Password:=Sheet577.Range("H27").Value
            Range(Cells(c.Row + 53).Value).Value = True
            c.Interior.Color = RGB(255, 0, 0)
            c.Font.Color = RGB(0, 0, 0)
            c.Font.Bold = False
            Else
                Unprotect Password:=Sheet577.Range("H27").Value
                Range(Cells(c.Row + 53).Value).Value = False
                c.Interior.Color = RGB(255, 255, 255)
                c.Font.Color = RGB(0, 0, 0)
                c.Font.Bold = False
        End If

    Next c

    Protect Password:=Sheet577.Range("H27").Value
End If

If Not Intersect(c, rng2) Is Nothing Then
    Unprotect Password:=Sheet577.Range("H27").Value
    Range("XI23").Value = Range("XJ21").Value
    Range("XB15:XB50").Value = Range("CX15:CX50").Value
    Protect Password:=Sheet577.Range("H27").Value
End If

If Not Intersect(c, rng3) Is Nothing Then
    Unprotect Password:=Sheet577.Range("H27").Value
    Range("XI28").Value = Range("XJ26").Value
    Protect Password:=Sheet577.Range("H27").Value
End If

If Not Intersect(c, rng4) Is Nothing Then
    Unprotect Password:=Sheet577.Range("H27").Value
    Range("XI28").Value = Range("XJ26").Value
    Protect Password:=Sheet577.Range("H27").Value
End If


End Sub

Private Sub Worksheet_Deactivate()

    Unprotect Password:=Sheet577.Range("H27").Value
    Range("WV15:WV50,XB15:XB50").ClearContents
    Protect Password:=Sheet577.Range("H27").Value
   
End Sub
 

Attachments

  • Capture.JPG
    Capture.JPG
    179.6 KB · Views: 19
  • Capture2.JPG
    Capture2.JPG
    154.8 KB · Views: 17
  • Capture3.JPG
    Capture3.JPG
    163.3 KB · Views: 19
  • Capture4.JPG
    Capture4.JPG
    31.3 KB · Views: 19
  • Capture5.JPG
    Capture5.JPG
    143.5 KB · Views: 19
Sort by date Sort by votes
Snakehips said:
@dsheard2015 Any progress?
Click to expand...

Hello Snakehips,

I apologize for not being able to log back in for a few days. I have been working on it and got most of the issues figured out but now I am receiving a run-time error 13; type mismatch that I cannot figure out. The error is showing up in the worksheet activate code and this is the line; d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value


Any ideas? Thanks again!

Dave

VBA Code: 
Private Sub Worksheet_Activate()

Dim c As Range
Dim d As Range
Dim e As Range
Dim x As Range
Dim y As Range
Dim z As Range
Dim rng1 As Range 'current course tasks, page 1 and page 2
Dim rng2 As Range 'page 1 tasks
Dim rng3 As Range 'page 2 tasks
Dim aer As AllowEditRange

On Error Resume Next
On Error GoTo 0

Set rng1 = Range("M12:V50, AI15:AR50, M65:V103, AI68:AR103, M118:V156, AI121:AR156, M171:V209, AI174:AR209, M224:V262, AI227:AR262, M277:V315, AI280:AR315, M330:V368, AI333:AR368, M383:V421, AI386:AR421, M436:V474, AI439:AR474")
Set rng2 = Range("B15:B50, B68:B103, B121:B156, B174:B209, B227:B262, B280:B315, B333:B368, B386:B421, B439:B474")
Set rng3 = Range("X15:X50, X68:X103, X121:X156, X174:X209, X227:X262, X280:X315, X333:X368, X386:X421, X439:X474")
Set x = Range("W:AR") 'page 2 columns
Set y = Range("BC:BW") 'page 3 columns
Set z = Range("BY:CS") 'page 4 columns

StopCalc
Unprotect Password:=Sheet577.Range("H27").Value

If Range("X15").Value > 0 Then 'hide page 2 if no tasks
 x.EntireColumn.Hidden = False
Shapes("Form7LogoB").Visible = True
Else: x.EntireColumn.Hidden = True
Shapes("Form7LogoB").Visible = msoFalse
End If

If Range("BC15").Value > 0 Then 'hide page 3 if no tasks
 y.EntireColumn.Hidden = False
Shapes("Form7LogoC").Visible = True
Shapes("UnsatTaskMsg").Visible = True
Else: y.EntireColumn.Hidden = True
Shapes("Form7LogoC").Visible = msoFalse
Shapes("UnsatTaskMsg").Visible = msoFalse
End If

If Range("BY15").Value > 0 Then 'hide page 4 if no tasks
 z.EntireColumn.Hidden = False
Shapes("Form7LogoD").Visible = True
Shapes("UnsatTaskMsg").Visible = True
Else: z.EntireColumn.Hidden = True
Shapes("Form7LogoD").Visible = msoFalse
Shapes("UnsatTaskMsg").Visible = msoFalse
End If

For Each aer In Protection.AllowEditRanges
    aer.Delete
Next aer

Protection.AllowEditRanges.Add Title:="Grade Info", Range:=Range("M12:V50,AI15:AR50,M65:V103,AI68:AR103,M118:V156,AI121:AR156,M171:V209,AI174:AR209,M224:V262,AI227:AR262,M277:V315,AI280:AR315,M330:V368,AI333:AR368,M383:V421,AI386:AR421,M436:V474,AI439:AR474"), Password:=Sheets("OVERRIDE PASSWORD").Range("G14").Value

For Each c In rng1 'lock/unlock based on login
    If Sheet278.Range("AJ1").Value = 1 Then
        c.Locked = False
            ElseIf Sheet278.Range("AJ1").Value = 2 Then
                c.Locked = True
                    ElseIf Sheet278.Range("AJ1").Value = 3 And c.Value = "" Then
                        c.Locked = False
                            ElseIf Sheet278.Range("AJ1").Value = 4 Then
                                c.Locked = True
                                    ElseIf Sheet278.Range("AJ1").Value = 5 Then
                                        c.Locked = True
                                            Else
                                                c.Locked = True
    End If
Next c
        
Range("C930").Value = 1 ' take a tour step
       
ResetCalc
Unprotect Password:=Sheet577.Range("H27").Value
    Sheet600.Range("A1").Select
    Sheet600.Range(Range("RT7").Value).Select
Protect Password:=Sheet577.Range("H27").Value

If Range("A2").Value = True Then 'ask if ammo is scheduled
    CarryOn = MsgBox("Is there any ammo or rockets that need to be entered for this training flight?", vbYesNo + vbDefaultButton2, "Ammo & Rockets")
    If CarryOn = vbYes Then
    Rockets_Bullets1.Show
        If CarryOn = vbNo Then
        GoTo Cancel
        End If
    End If
End If

StopCalc
Unprotect Password:=Sheet577.Range("H27").Value

For Each d In Range("WX15:WX50, WX68:WX103, WX121:WX156, WX174:WX209, WX227:WX262, WX280:WX315, WX333:WX368, WX386:WX421, WX439:WX474") 'unsats page 1
        d.Value = Sheet600.Cells(d.Row, 660).Value
Next d

For Each d In Range("XG15:XG50, XG68:XG103, XG121:XG156, XG174:XG209, XG227:XG262, XG280:XG315, XG333:XG368, XG386:XG421, XG439:XG474") 'unsats page 2
        d.Value = Sheet600.Cells(d.Row, 661).Value
Next d

For Each d In Range("WU15:WU50") 'copy prior sats to sats before column page 1
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU68:WU103")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU121:WU156")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU174:WU209")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU227:WU262")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU280:WU315")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU333:WU368")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU386:WU421")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d
For Each d In Range("WU439:WU474")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d

For Each d In Range("XD15:XD50") 'copy prior sats to sats before column page 2
[B]    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value[/B]
Next d
For Each d In Range("XD68:XD103")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d
For Each d In Range("XD121:XD156")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d
For Each d In Range("XD174:XD209")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d
For Each d In Range("XD227:XD262")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d
For Each d In Range("XD280:XD315")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d
For Each d In Range("XD333:XD368")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d
For Each d In Range("XD386:XD421")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d
For Each d In Range("XD439:XD474")
    d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Next d

For Each c In rng2 'change page 1 task color to tan/white/black
        If c.Offset(0, 645).Value = 1 Then
            c.Interior.Color = RGB(221, 217, 196)
            c.Font.Color = RGB(0, 0, 0)
            c.Font.Bold = False
            Else
            If c.Offset(0, 645).Value = 2 Then
                c.Interior.Color = RGB(0, 0, 0)
                c.Font.Color = RGB(255, 0, 0)
                c.Font.Bold = True
                Else
                If c.Offset(0, 645).Value = 3 Then
                    c.Interior.Color = RGB(0, 0, 0)
                    c.Font.Color = RGB(255, 0, 0)
                    c.Font.Bold = True
                    Else
                    If c.Offset(0, 645).Value = 4 Then
                        c.Interior.Color = RGB(255, 0, 0)
                        c.Font.Color = RGB(0, 0, 0)
                        c.Font.Bold = True
                        Else
                        If c.Offset(0, 645).Value = 5 Then
                            c.Interior.Color = RGB(255, 255, 255)
                            c.Font.Color = RGB(0, 0, 0)
                            c.Font.Bold = False
                            Else
                                c.Interior.Color = RGB(255, 255, 255)
                                c.Font.Color = RGB(255, 0, 0)
                                c.Font.Bold = False
                        End If
                    End If
                End If
            End If
        End If
Next c

For Each c In rng3 'change page 2 task color to tan/white/black
        If c.Offset(0, 654).Value = 1 Then
            c.Interior.Color = RGB(221, 217, 196)
            c.Font.Color = RGB(0, 0, 0)
            c.Font.Bold = False
            Else
            If c.Offset(0, 654).Value = 2 Then
                c.Interior.Color = RGB(0, 0, 0)
                c.Font.Color = RGB(255, 0, 0)
                c.Font.Bold = True
                Else
                If c.Offset(0, 654).Value = 3 Then
                    c.Interior.Color = RGB(0, 0, 0)
                    c.Font.Color = RGB(255, 0, 0)
                    c.Font.Bold = True
                    Else
                    If c.Offset(0, 654).Value = 4 Then
                        c.Interior.Color = RGB(255, 0, 0)
                        c.Font.Color = RGB(0, 0, 0)
                        c.Font.Bold = True
                        Else
                        If c.Offset(0, 654).Value = 5 Then
                            c.Interior.Color = RGB(255, 255, 255)
                            c.Font.Color = RGB(0, 0, 0)
                            c.Font.Bold = False
                            Else
                                c.Interior.Color = RGB(255, 255, 255)
                                c.Font.Color = RGB(255, 0, 0)
                                c.Font.Bold = False
                        End If
                    End If
                End If
            End If
        End If
Next c

Cancel:

Protect Password:=Sheet577.Range("H27").Value
ResetCalc

End Sub
 
Upvote 0

Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.
On the assumption that previous, similar, statements are running without error then, I can only think that the expression for the column parameter of your primary Cells(r,c) expression is returning a non-numeric or otherwise invalid value?
d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Check out the value being returned from the above.
 
Upvote 0
Snakehips said:
On the assumption that previous, similar, statements are running without error then, I can only think that the expression for the column parameter of your primary Cells(r,c) expression is returning a non-numeric or otherwise invalid value?
d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Check out the value being returned from the above.
Click to expand...

Wow, ok. I don't know how I overlooked that but your recommendation fixed it as well. Thank you! however, now I get a run-time error 1004; application-defined or object-defined error on the line below that I can't seem to find out why. That line is in the worksheet activate code.

For Each d In Range("WU15:WU50") 'copy prior sats to sats before column page 1
d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 53).Value).Value
Next d

Thanks again Tony!!
 
Upvote 0
Snakehips said:
On the assumption that previous, similar, statements are running without error then, I can only think that the expression for the column parameter of your primary Cells(r,c) expression is returning a non-numeric or otherwise invalid value?
d.Value = Sheet600.Cells(d.Row, Sheet600.Cells(d.Row, 54).Value).Value
Check out the value being returned from the above.
Click to expand...

Tony,

Please disregard my last post. After staring at it for a minute it came to me that I had not changed that part of the code after making changes on my worksheet. It's all fixed now and everything appears to be working the way I was hoping for.

Thanks again so much for all your help!!

Dave
 
Upvote 0
You must log in or register to reply here.

Similar threads

B
  • Question Question
Run-time error 1004 method range of object worksheet railed
Replies
2
Views
108
Joe4
Joe4
M
  • Question Question
Run time error 1004: Application defined or object defined error
Replies
1
Views
588
Micron
M
C
  • Question Question
Cut a row from "sheet 1" and paste onto "sheet2", run-time error '1004' "Paste method of Worksheet class failed"
2
Replies
10
Views
1K
rpaulson
rpaulson
2
  • Question Question
Run=time error '1004': Method 'Range of Object'_Global' failed
Replies
4
Views
666
2077delta
2
J
  • Question Question
Run-time error '1004': The extract range has a missing or invalid field name.
2
Replies
15
Views
1K
josros60
J

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,022
Latest member
Mohamed Magdi Tawfiq Emam

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top