Snasui Excel Forum

Code: Select all

Private Sub OptionButton1_Click()
    With Workbooks("DATA (Autosaved).xlsm").Worksheets(1)
        If Application.CountIf(.Range("mat"), Cells(2, 2).Value) > 0 Then
            Cells(3, 2).Value = Application.WorksheetFunction.VLookup(Sheet1.Cells(2, 2), .Range("mat"), 3, 0) / 1000
        Else
            MsgBox "Data not found."
        End If
    End With
End Sub

Code: Select all

Cells(3, 2).Value = Application.WorksheetFunction.VLookup(Sheet1.Cells(2, 2), Windows("DATA (Autosaved).xlsm").Sheet1.Range("mat"), 3, 0) / 1000