Add new rows to table based on another table value

[madvogue29]

Hi All again! I am stuck again in a pickle and I have no idea how to get out of it. I am a newbie and this forum has been a life savior.


I want the orange table to add a new column and fill it with check boxes each time a new member is added in Blue table.
and If a new row is added in the orange table it added the check boxes too.

I am not sure if this is possible or not. I tried but didnt succeed so i thought this place would be the best place to ask.

Thanks in advance again.

 

[madvogue29]

Update: I may look for alternative for checkboxes as I am not sure if that is the correct way for me. But I would still appreciate the a solution for adding new Column in Orange table when new data is added in the blue table.

Thanks again

 

[NoSparks]

try something along the lines of this to add the table column

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.CountLarge > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

If Not Intersect(Target, ActiveSheet.ListObjects("Table1").DataBodyRange) Is Nothing Then
    With ActiveSheet.ListObjects("Table2")
        .ListColumns.Add
        .HeaderRowRange(, .ListColumns.Count).Value = Target.Value
        '.HeaderRowRange.Cells(, .ListColumns.Count).EntireColumn.AutoFit
    End With
End If

End Sub

 

[madvogue29]

This works like a charm! You are the man!!

Also to fix the checkbox issue I added this script

Sub ChangeValue()
Dim text As String
text = ActiveCell.value

If text = "P" Then
ActiveCell.value = "O"

ElseIf text = "O" Then
ActiveCell.value = "P"

Else
ActiveCell.value = "P"
End If

End Sub

"P" and "O" in Windings 2 font are ticks and crosses.

then I added this for triggering this module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("O52")) Is Nothing Then
            Call Module4.ChangeValue
        End If
End Sub

Ignore the Range("O52") this was just a test cell. I will update it to match my table.

 

[NoSparks]

Glad it works for you & thanks for the feedback