Adding several data on a specific column on a table
0
I am trying to create a table that can store a "Training Information" data. The code below is working (see sample result below) however, it can only add one data at a time. What I would like to happen is to be able to add several data on my "Attendees" column only, while the other columns will contain the same data since it is the same training. Any ideas? Dim ws As Worksheet Dim lo As ListObject Dim lr As ListRow Set ws = Sheets("Trainings") ws.Unprotect "321321" Set lo = ws.ListObjects(1) Set lr = lo.ListRows.Add lr.Range(1, 1).Value = UCase(title.Value) lr.Range(1, 2).Value = UCase(Date.Value) lr.Range(1, 3).Value = UCase(Venue.Value) lr.Range(1, 4).Value = UCase(VenueAdd.Value) lr.Range(1, 5).Value = UCase(Attendees.Value)
...