Vlookup and Intersect

[niha]

Hi Guys,
Im working on making a dashboard which requires that as soon as I enter a value in my dashboard sheet in column E, it should find that value in another sheet called data and take up the value from the column adjacent to it and paste it in my dashboard sheet after one column. Im working on a project and need this really badly. This is the code Im using now. Please help

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo MyErrorHandler:

result = Application.WorksheetFunction.Vlookup(Cells(ActiveCell.Row, "E"), Sheets("Data").Range("B:C"), 2, False)

ActiveCell.Offset(0, 2).Value = result

MyErrorHandler:
If Err.Number = 1004 Then
ActiveCell.Offset(0, 2).Value = ""
End If

End Sub

 

[Alex Blakenburg]

If Not Application.Intersect(Target, Range("K16:K1000")) Is Nothing Then******** This is the line in the code

This should also be a separate post. See if the below gets you by otherwise you need to log it as a separate question.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    
    'Audit
    Dim vbAns As VbMsgBoxResult
    
    If Not Intersect(Target, Range("J6:J1000")) Is Nothing Then
        vbAns = MsgBox("Did you check the locations manually?", vbYesNo, "Manual Audit")
     
        If vbAns = vbYes Then
            ActiveCell.Value = "Done"
        End If
     
        If vbAns = vbNo Then
            MsgBox "Please check the locations manually first to ensure FIFO."
        
        End If
        
    End If

    'Breach Resolve

    Dim vbAnswer As VbMsgBoxResult
    
    If Not Intersect(Target, Range("K16:K1000")) Is Nothing Then
        vbAnswer = MsgBox("Did you resolve the breach?", vbYesNo, "Breach Check")
     
         If vbAnswer = vbYes Then
            ActiveCell.ClearContents
            ActiveCell.Interior.Color = RGB(255, 255, 255)
         End If
         
        If vbAnswer = vbNo Then
            MsgBox "Please check the location manually to resolve the breach"
        End If
    End If

End Sub