Hente data hvis sheet findes
Jeg har brug for hjælp. Jeg skal hente/kopiere data ind i én fil ("samletdata") fra worksheets fra andre Excelfiler. Da jeg kun skal bruge nogle data fra nogle worksheets skal der først tjekkes om de findes. Hvis ikke skal der søges efter næste worksheet indtil listen er tom. Afhængig af hvilket worksheet der kopieres fra skal dataen indsætte i forskellige worksheets i "samletfil". Derfor tror jeg "case" eller "if" sætninger passer bedst, men ret mig hvis jeg tager fejl.Jeg henter navnet for den excelfil jeg ønsker at hente data fra celle H14 i "førsteshee" i filen "samletdata".
Dim fNAME As String
Sheets("førstesheet").Select
Range("H14").Select
fNAME = Selection.Value
GoTo fejl1 'Hvis der trykkes "cancel" stoppes makroen.
Workbooks.Open Filename:=fNAME
HVIS sheetnavn1 FINDES:
Sheets("sheetnavn1").Select
Range("A1:B2").Select
Selection.Copy
Windows("samletdata.xls").Activate
Sheets("sheet2").Select
ActiveWindow.SmallScroll Down:=-3
Range("A5").Select
ActiveSheet.Paste
HVIS sheetnavn2 FINDES:
Sheets("sheetnavn2").Select
Range("C1:D10").Select
Selection.Copy
Windows("samletdata.xls").Activate
Sheets("sheet4").Select
ActiveWindow.SmallScroll Down:=-15
Range("C27").Select
ActiveSheet.Paste
HVIS sheetnavn3, 4, 5 MV. FINDES.
DEREFTER UDFØRES NEDENSTÅENDE:
Application.CutCopyMode = False 'Tømmer Clipboard
Sheets("førstesheet").Select
Range("H14").Select
Exit Sub
fejl1:
MsgBox "Der blev ikke valgt en datafil."
Application.CutCopyMode = False 'Tømmer Clipboard
Windows("samletdata.xls").Activate
Sheets("førstesheet").Select
Range("H14").Select
End Sub