Creating a table based on another table

[jonybandana]

Hi! So I have a huge table (we´ll call it TableA) and I would like to generate another table (TableB) which has to have the following properties:

1. It updates automatically (possibly in real-time) when TableA is updated.
2. Any changes made on TableB must be reflected on TableA (also in real-time if possible).

The location of the table is not relevant, it can be in a different document or in the same one (I would prefer it is on the same document).

Is there any way to do this?

 

[James006]

Hi,

Quite simply ... with an Even Macro : Worksheet_Change()

Worksheet.Change event (Excel)

Office VBA reference topic

learn.microsoft.com

 

[jonybandana]

Hi,

Quite simply ... with an Even Macro : Worksheet_Change()

Worksheet.Change event (Excel)

Office VBA reference topic

learn.microsoft.com

Terribly sorry, but I have no experience with VBA, could you give me an example?

Let´s grab the example sheet I´ll upload, how could I extract the columns "Part", "Stock" and "supplier" to another sheet and only extract those that belong to project "Truck"?

Part	Stock	Project	Supplier
123​	100​	Bus	Jim
432​	50​	Truck	John
543​	23​	Truck	Jim
54​	51​	Bus	John
234​	0​	Truck	Jim
423​	0​	Truck	John
5135​	123​	Bus	Jim
6547​	55​	Truck	John
84​	66​	Truck	Jim
352​	12​	Bus	John
6​	5​	Truck	Jim
745​	0​	Truck	John
3457​	0​	Bus	Jim
245​	1231​	Truck	John
562​	55​	Truck	Jim
233242​	1​	Bus	John

 

[James006]

Hi again,
What you are asking is a bit different ... but even easier ...
as a quick illustration :

Sub FilterRows()
With Worksheets("Sheet1").Range("A1:D17")
    .AutoFilter field:=3, Criteria1:="Truck"
End With
End Sub

 

[James006]

To complete the previous macro ...i.e To Filter AND to Copy Filtered Rows to another Sheet

Sub Filter_Copy_Rows()
' Example From Sheet2 to Sheet3
' Adjust to your situation
Dim rng1 As Range, rng2 As Range
Set rng1 = Worksheets("Sheet2").Range("A1").CurrentRegion
rng1.AutoFilter field:=3, Criteria1:="Truck"
Set rng2 = rng1.SpecialCells(xlCellTypeVisible)
rng2.Copy Destination:=Sheet3.Range("A1")
Sheet2.AutoFilterMode = False
Sheet3.Select
End Sub