leezac
asked on
Code not working
I did not write this code. Can someone tell me please what it is doing. Is it looking for duplicates???
Sub AdRec
Dim r As Range, rw As Long
Set r = Sheet19.Range("A1")
If r(3, 1) <> "" Then
rw = FindRec("Cusip_tmp", 1, cusip)
r.Offset(rw, col) = r.Offset(rw, col) + 1
End Sub
__________________________ __________ ______
Function FindRec(w As String, numcol As Integer, lookval As String) As Long
Dim r As Range, numrows As Long
Dim I As Long
numrows = Worksheets(w).UsedRange.Ro ws.Count
Set r = Worksheets(w).Range("A1"). Offset(0, numcol - 1).Resize(numrows, 1)
On Error Resume Next
I = -999
I = WorksheetFunction.Match(lo okval, r, 0)
On Error GoTo 0
FindRec = I - 1
Sub AdRec
Dim r As Range, rw As Long
Set r = Sheet19.Range("A1")
If r(3, 1) <> "" Then
rw = FindRec("Cusip_tmp", 1, cusip)
r.Offset(rw, col) = r.Offset(rw, col) + 1
End Sub
__________________________
Function FindRec(w As String, numcol As Integer, lookval As String) As Long
Dim r As Range, numrows As Long
Dim I As Long
numrows = Worksheets(w).UsedRange.Ro
Set r = Worksheets(w).Range("A1").
On Error Resume Next
I = -999
I = WorksheetFunction.Match(lo
On Error GoTo 0
FindRec = I - 1
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER