excel - VBA at søge efter oplysninger mellem to datoer, der er skrevet manuelt i en bestemt celle

Indlæg af Hanne Mølgaard Plasc

Problem



Jeg leder efter en VBA kode, der vil se i 2. række for bestemte datoer.


I grund og grund skriver jeg en 'Begyndelsesdato' (ex: 2018-07-01) og en 'Slutdato' (ex: 2018-07-31), og jeg vil have min kode til at kigge efter alt i mellem, herunder de datoer , og kopi indsæt alle oplysningerne i et andet Excel-ark. Hvad funktionen vil gøre i slutningen, er det 'jeg undersøger mange ark til disse datoer og kopierer alle oplysninger, der ligger under disse datoer, og indsætter dem alle sammen i en hoved ark.


Hvad jeg vedhæfter nedenfor er, hvad jeg har gjort indtil videre:


Sub Copie()
Sheets("1").Select
Range("B1:H1").Select
Selection.Copy
Sheets("Per Employe").Select
Range("A4").Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("1").Select
Range("J1:P1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Per Employe").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("1").Select
Cells(1, 1).Select
ActiveCell.Offset(1, 0).Select
Selection.Copy
Sheets("Per Employe").Select
Cells(4, 1).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
    Sheets("1").Select
Range("B2:H2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Per Employe").Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("1").Select
Range("J2:P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Per Employe").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste


Slutdel


Det jeg forsøger at tilføje er funktionen til at slå op på datoerne og kun kopiere/indsætte de datoer, der blev anmodet om i det primære Excel-ark, som ville være 'Per Employe'. Vil nogen have nogen løsning på dette? som indeholder start- og slutdato ville være D1 og F1.

Bedste reference