14. maj 2007 - 08:13Der er
7 kommentarer og 1 løsning
Slå flere filer med VBA sammen til fælles fil
Jeg har syv selvstændige filer, som jeg kalder mandag, tirsdag, onsdag osv, med to ark i hver, som hedder det samme "Plan" "Chauffører". Hver dag indtaster jeg i "Plan" som henter data fra "Chauffører". Skal jeg rette i data fra "Cahuffører" skal jeg altså rette i syv filer. Jeg kunne godt tænke mig en fælles fil, med otte ark "Mandag", "Tirsdag" osv samt "Chauffører". Hvordan gør jeg dette? Bruger jeg en fil og kopierer "Plan" syv gange, kan jeg ikke få syv forkellige kaldenavne ind. Hvergang jeg ændrer fra f.eks. mandag til tirsdag, bliver mandag væk? mvh Johnny
Denne kode looper gennem alle dine ark, bortset fra Chauffører, og laver det samme ved hvert enkelt. Så kan det alt sammen fint ligge i det samme modul
Sub sjokoman() Dim I As Integer For I = 1 To ThisWorkbook.Worksheets.Count ThisWorkbook.Worksheets(I).Activate If ThisWorkbook.Worksheets(I).Name = "Chauffører" Then GoTo hoppet .....her kommer din kode..... hoppet: Next I End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
