Navigation

   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

Navigation

Liste samme celle fra samme ark i mange excelfiler