< návrat zpět
MS Excel
Téma: Propojení tabulek
Zaslal/a bwian 15.9.2014 21:41
Ahoj znalci,
potřeboval bych poradit s propojením dvou tabulek. V jednom souboru mám dvě tabulky, v každé jsou prováděny nějaké výpočty. Potřeboval bych přijít na způsob, jak udělat, aby se mi po přidání řádku v tabulce jedna přidal i řádek v tabulce dva. předpokládám, že jinak než přes nějaké makro to nepůjde. A s makry si moc nerozumím. Díky za rady.
Příloha: 21588_propojeni-tabulek.zip (8kB, staženo 17x)
Devil(15.9.2014 23:30)#021589 pokus
Příloha: 21589_propojeni-tabulek.zip (15kB, staženo 19x) citovat
AL(15.9.2014 23:44)#021590 alebo takto:
v tabulke2 si zmeň stĺpec H na =Tabulka1[@ID]
do kódového okna listu nakopíruj:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myLoOne As ListObject, myLoTwo As ListObject
Set myLoOne = ListObjects("Tabulka1")
Set myLoTwo = ListObjects("Tabulka2")
If Not Intersect(Target, myLoOne.Range) Is Nothing Then
With myLoTwo.ListRows
Do While myLoOne.ListRows.Count > .Count
.Add
Loop
Do While myLoOne.ListRows.Count < .Count
.Item(.Count).Delete
Loop
End With
End If
Set myLoOne = Nothing
Set myLoTwo = Nothing
End Subcitovat