Intersect(Target, TargetField) run-time error (1004)

rob_grimshaw

New Member
Joined
Jan 18, 2019
Messages
9
Dear all,

I am getting a run-time error for this code, can you help tell me why and how to fix it?


Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
     
    If ActiveSheet.Name <> "Form" Then End


    Dim Form As Worksheet
    Dim Data As Worksheet
    
    Set Form = ThisWorkbook.Worksheets("Form")
    Set Data = ThisWorkbook.Worksheets("Data")


    Dim TargetField As Range
    Set TargetField = Form.Range("E4")


    Dim SourceField As Range

    Set SourceField = Data.Range("A2:A434").Find _
                                                (What:=TargetField, _
                                                LookIn:=xlValues, _
                                                LookAt:=xlWhole, _
                                                SearchOrder:=xlByRows, _
                                                MatchCase:=False)


    If Not Intersect(Target, TargetField) Is Nothing Then
            
            Form.Range("I6") = SourceField.Offset(, 29)


            Else

                Set TargetField = Form.Range("I6")
                
                If Not Intersect(Target, TargetField) Is Nothing Then


                    SourceField.Offset(, 29) = Form.Range("I6").Value


                End If
    End If


End Sub


The error reads: "Run-time error 1004: Method 'Intersect' of object '_Global' failed"

It still fails even if I change "
SourceField.Offset(, 29) = Form.Range("I6").Value" to "Offset (,30)" to try and prevent a feedback loop.

Many thanks.
 

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"
Which line gives the error?
 
Upvote 0
The debugger highlights the first "
If Not Intersect(Target, TargetField) Is Nothing Then"
but working through the code I believe that the error is caused at
"
SourceField.Offset(, 29) = Form.Range("I6").Value"
 
Upvote 0
The debugger highlights the line that is causing the problem.
As you only want this to work on the sheet called "Form" are you happy to have the code in that sheet module, rather than in the workbook module?
 
Upvote 0
Ok remove the existing code from the ThisWorkbook module & put this in the "Form" sheet module
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim SourceField As Range
   Dim Data As Worksheet
   
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("E4, I6")) Is Nothing Then
      Set Data = ThisWorkbook.Worksheets("Data")
      Set SourceField = Data.Range("A2:A434").Find(Range("E4").Value, , , xlWhole, , , False, , False)
      If SourceField Is Nothing Then
         MsgBox "Not found"
         Exit Sub
      End If
      Select Case Target.Address(0, 0)
         Case "E4"
            Application.EnableEvents = False
            Range("I6").Value = SourceField.Offset(, 29).Value
            Application.EnableEvents = True
         Case "I6"
            SourceField.Offset(, 29) = Range("I6").Value
      End Select
   End If
End Sub
 
Upvote 0
The code was changing the Data sheet, which would trigger the code, the first line checks if the Active is Form (which it is), but as the Target is on sheet Data, you get the error as the intersect cannot handle ranges on separate sheets.
 
Upvote 0

Forum statistics

Threads
1,213,482
Messages
6,113,913
Members
448,532
Latest member
9Kimo3

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