Snasui Excel Forum

Code: Select all

Dim DrugRange As Range
    Dim LotRange As Range
    Dim FillLot As Range
    Dim i As Range
    Set DrugRange = Range("List!B:F")
    Set LotRange = Range("List!F:F")
    Set FillLotRange = Range("FillForm!C8")
    i = Application.WorksheetFunction.Index(DrugRange, Match(FillLotRange, LotRange, 0))
    With Sheets("List")
        .Range("i").Value = _
            Sheets("FillForm").Range("C12").Value
    End With

Code: Select all

On Error Resume Next
Dim FillLotRange As Range
Dim LotRange As Range
Dim i As Range
Set LotRange = Range("List!B:B")
Set FillLotRange = Range("FillForm!C8")
With Application.WorksheetFunction
    Set i = Sheets("List").Range("F" & .Match(FillLotRange, LotRange, 0))
End With
With Sheets("List")
    i.Value = Sheets("FillForm").Range("C12").Value
End With

Code: Select all

On Error Resume Next
Dim FillCodeRange As Range
Dim CodeRange As Range
Dim i As Range
Set CodeRange = Range("List!B:B")
Set FillCodeRange = Range("FillForm!C8")
With Application.WorksheetFunction
    Set i = Sheets("List").Range("C:F" & .Match(FillCodeRange, CodeRange, 0))
End With
With Sheets("List")
    i.Value = Sheets("FillForm").Range("c4:f4").Value
End With

Code: Select all

'Other code
Dim i As Integer
Set CodeRange = Range("List!B:B")
Set FillCodeRange = Range("FillForm!C8")
With Application.WorksheetFunction
     i = .Match(FillCodeRange, CodeRange, 0)
End With
With Sheets("List")
    .Range("c" & i).Resize(1, 4).Value = Sheets("FillForm").Range("c4:f4").Value
End With
'Other code