Private Sub ReadCSV_Click()
Dim serial As String
Dim signer As String
loc_idx = -1
Dim FilePath As String
FilePath = ThisWorkbook.Path + "/test.csv"
Open FilePath For Input As #1
row_number = 0
Do Until EOF(1)
Line Input #1, LineFromFile
LineItems = Split(LineFromFile, ",")
signer = Replace(LineItems(0), Chr(34), vbNullString) 'Location
If Not signer = vbNullString Then
serial = Replace(CStr(LineItems(1)), Chr(34), vbNullString) 'SN
Call SearchCell(serial) 'Search the SN
Call SearchLocationCol(f_ws_idx) 'Search Location column in the relevant sheet
Worksheets(f_ws_idx).Cells(f_row, loc_idx).Value = signer
End If
row_number = row_number + 1
Loop
Close #1
MsgBox "Done Updating"
Option Explicit
Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh.Name = "Macros" Then
Call InsertChange("test", "1111")
End If
End Sub
