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


Emne lukketListe samme celle fra samme ark i mange excelfiler

 Besvar Besvar
Forfatter
AnnetteTR Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 09.Jul.2010
Land: DK
Status: Offline
Point: 47
Direkte link til dette indlæg Emne: Liste samme celle fra samme ark i mange excelfiler
    Sendt: 21.Aug.2010 kl. 12:57
Hej
 
Jeg har nogle gange brug for at hente specifikke celler fra flere excelfiler med samme opsætning, men med mange ark (alle hedder det samme). Det er kun værdien af cellerne der skal kopieres - ikke formlerne.
 
Det er lykkedes at lave en makro der kan gøre det, men man skal kode om hver gang den skal bruges.
 
Det kunne være rart hvis der kom et pop-up billede, hvor man valgte hvilke filer oplysningerne skal tages fra, og hvilket ark, samt hvilken celle.
 
Man skal hardkode sti for placering af filerne, som skal ligge i samme folder, og der må ikke ligge andre filer.
Ligeledes skal man hardkode hvilke celler der skal kopieres.
Jeg vedlægger den kode jeg bruger - nederst i mailen.
 
Mvh Annette
 

Option Explicit
Sub GetMyData()
Dim myDir As String, fn As String, sn As String, sn2 As String, sn3 As String, n As Long, NR As Long
'***** Change Folder Path *****
'myDir = "C:\TestData"  'for testing
myDir = "C:\TestData
'***** Change Sheetname(s) *****
sn = "Samleark"
sn2 = "DATA"
sn3 = "VALG"
fn = Dir(myDir & "\*.xls")
Do While fn <> ""
  If fn <> ThisWorkbook.Name Then
    With ThisWorkbook.Sheets("Summary")
      NR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
     
      'A1, P51 and P52 from worksheet "Samleark"
      With .Range("B" & NR)
        .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!P51"
        .Value = .Value
      End With
      With .Range("D" & NR)
        .Formula = "='" & myDir & "\[" & fn & "]" & sn & "'!P52"
        .Value = .Value
      End With
     
      'M3 from worksheet "DATA"
      With .Range("C" & NR)
        .Formula = "='" & myDir & "\[" & fn & "]" & sn2 & "'!M3"
        .Value = .Value
      End With
      'E4 from worksheet "VALG"
      With .Range("A" & NR)
        .Formula = "='" & myDir & "\[" & fn & "]" & sn3 & "'!E4"
        .Value = .Value
      End With
   
    End With
  End If
  fn = Dir
Loop
End Sub
'Before you run the macro, you will have to change this section of code:
'***** Change Folder
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 23.Aug.2010 kl. 13:09
Hej Annette,
 
Det kan godt lade sig gøre, på flere måder.
 
  1. Vi opretter en 'Masterfil' hvor du taster informationerne i nogle celler og trykker på en knap for at køre funktionen.
  2. Køre det hele via 'et input af gangen', inputbokse som spørger om informationerne 1 af gangen.
  3. Vi laver en 'Userform' som 'popper op' med de felter som du skal skrive i.

Hvilken er du mest til?

//Allan
Til top
AnnetteTR Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 09.Jul.2010
Land: DK
Status: Offline
Point: 47
Direkte link til dette indlæg Sendt: 24.Aug.2010 kl. 07:55
Hej Allan
 
Jeg er ikke helt sikker på hvad du mener.
 
Den måde jeg forestiller mig, den skal virke på er, at man står i det ark, hvor man vil have dataene listet.
Så aktiverer man funktionen, og der popper et vindue op, hvor man vælger hvilke filer, der skal hentes data fra.
Evt i samme billede, eller i et nyt billede - er der et rullegardin, hvor man vælger mellem de arknavne der findes i de udvalgte filer, og et felt, hvor man skriver de "celler" (f.eks. A1, N7) der skal listes.
Det kunne være smart hvis man samtidig inddaterer en overskrift, som skal stå over de data, der kommer fra cellerne "Arknavn A1" .
Muligvis skal man angive, hvor mange celler man vil hente data fra.
Det skal være muligt at hente celler fra flere forskellige ark.
 
Jeg tror det minder mest om din mulighed 3.
 
Jeg har kørt den kode, som jeg vedlagde. Den sætter den rigtige værdi ind i 2 af cellerne, men de 2 andre er på en eller anden måde systematisk forkert.
De rigtige er dem der kommer fra arkene Valg og Data. De er værdier.
Dem der er forkert fra arket Samleark indeholder formler.
Til trods for de 2 sidste er forkerte - ser de rigtige ud (den ene skal være den anden divideret med værdien fra arket data)
 
Mvh Annette
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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