Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
The key says "variable not defined"??
VBA Code:
Sub DrNo_Dictionary()
Dim dict As Dictionary
Set dict = ReadData()
Call WriteDict(dict)
End Sub
Function ReadData() As Dictionary
Dim dict As New Dictionary
Dim ws As Worksheet
Dim rng As Range
Set ws = ThisWorkbook.Worksheets("Quote Detail")
Set rng = ws.Range("A2").CurrentRegion
Set ReadData = dict
Dim i As Long
Dim PartsNames As String
Dim DrawingNo1 As Long
Dim DrawingNo2 As Long
Dim DrawingNo3 As Long
Dim DrawingNo4 As Long
Dim DrawingNo5 As Long
Dim DrawingNo6 As Long
Dim DrawingNo7 As Long
Dim DrawingNo8 As Long
Dim DrawingNo9 As Long
For i = 2 To rng.Rows.Count
PartsNames = rng.Cells(i, 1).Value
DrawingNo1 = rng.Cells(i, 2).Value
DrawingNo2 = rng.Cells(i, 3).Value
DrawingNo3 = rng.Cells(i, 4).Value
DrawingNo4 = rng.Cells(i, 5).Value
DrawingNo5 = rng.Cells(i, 6).Value
DrawingNo6 = rng.Cells(i, 7).Value
DrawingNo7 = rng.Cells(i, 8).Value
DrawingNo8 = rng.Cells(i, 9).Value
If dict.exist(PartsNames) = True Then
dict.Add Key, PartsNames
End If
Next i
Set ReadData = dict
End Function