Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSamlet opdatering af to tabeler
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
jacgeld Se dropdown
Forum Begynder
Forum Begynder


Medlem: 16.Sep.2012
Land: DK
Status: Offline
Point: 4 		Direkte link til dette indlæg Emne: Samlet opdatering af to tabeler
    Sendt: 20.Okt.2012 kl. 12:13
Hej Alle.

Jeg har følgende problem.

Jeg har 5 tabeller, som er opbygget efter samme struktur og formatering.

Disse 5 tabeller, skal samles i en fællestabel. hvor tabel 2 starter, hvor tabel 1 sluttede. Tabel 3 starter, hvor tabel 2 slutter osv.

Mit problem opstår, når antallet af rækker forøges eller formindskes i en af tabellerne, betyder dette, at der opstår tomme felter, eller nogle af felterne for tabel 2 bliver overskrevet af tabel 1.

Hvordan kan dette problem løses, så tabellerne forekommer efter hindanden uden at være fastlås af de øvrige tabellers længde.

Håber i kan hjælpe?  
Til top



Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 25.Dec.2012 kl. 18:04
Går ud fra at tabellerne er i hver sit ark, indsæt koden i et alm. modul
 
Sub test()
Set sh4 = Sheets("Ark4") ' *** ret Ark4 til aktuel destinationsark
sh4.Range("B2:C500").Delete Shift:=xlUp ' *** sletter samleliste før opdatering - ret evt.
For Each sh In ThisWorkbook.Sheets
If sh.Name <> sh4.Name Then
For Each tb In sh.ListObjects
'*** samleliste indsættes i kolonne B - ret evt til aktuel
tb.Range.Offset(1).Copy sh4.Cells(sh4.Cells(65536, "B").End(xlUp).Offset(1).Row, "B")
Next
End If
Next
End Sub
 
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk