copy selected fields and insert into table

Good morning, I am looking for advice on how to start with a problem I have. I have a sheet where users input information. The data is stored in 6 rows, E7:I12 with each row being a new record. ...

Macros and VBA

HansVogelaar

Apr 23, 2024

Allan_Smillie

For example:

Sub CopyData()
    Dim ws As Worksheet
    Dim wt As Worksheet
    Dim tb As ListObject
    Dim lr As ListRow
    Dim s As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Calc")
    Set wt = Worksheets("MyTotal")
    Set tb = wt.ListObjects("TblTest")
    For s = 7 To 12
        If ws.Range("E" & s) <> "" Then
            Set lr = tb.ListRows.Add
            lr.Range.Resize(1, 6).Value = ws.Range("E" & s).Resize(1, 6).Value
            lr.Range(1, 7).Value = ws.Range("F16").Value
        End If
    Next s
    Application.ScreenUpdating = True
End Sub

HansVogelaar

MVP

Apr 23, 2024

Allan_Smillie

For example:

Sub CopyData()
    Dim ws As Worksheet
    Dim wt As Worksheet
    Dim tb As ListObject
    Dim lr As ListRow
    Dim s As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Calc")
    Set wt = Worksheets("MyTotal")
    Set tb = wt.ListObjects("TblTest")
    For s = 7 To 12
        If ws.Range("E" & s) <> "" Then
            Set lr = tb.ListRows.Add
            lr.Range.Resize(1, 6).Value = ws.Range("E" & s).Resize(1, 6).Value
            lr.Range(1, 7).Value = ws.Range("F16").Value
        End If
    Next s
    Application.ScreenUpdating = True
End Sub

Allan_Smillie
Copper Contributor
Apr 23, 2024
hans, thank you for this. It is easy to follow and does what I need, thank you.

Forum Discussion

copy selected fields and insert into table

Resources