Jeg har en lille sag, jeg ikke rigtigt kan få hul på :)
I store træk er problemet følgende: Jeg har en tabel med 8 kolonner, a,b,c,d,e,f,g,h, og 108 rækker. I kolonne a er indtastet datoer fra 1. januar 2014 til 31. december 2017.
Mit problem er, at jeg gerne skulle kunne kopiere dele af tabellen over i nye ark, ved at specificere et datotidsrum, f.eks. 1. februar 2015 til 31. marts 2015.
Alle kolonnerne for den specificerede tidsperiode skal kopieres med over.
Hvis du er interesseret i at løse det med VBA kan det sagtens lade sig gøre...? men der er jo ingen grund til at bruge "krudt" på en kode hvis det ikke er det du søger? mvh Kurt
Som vba kan det evt laves med en kode i stil med nedenstående: Den køres fra det originale ark med data, og opretter et nyt ark. Til det nye ark kopieres række for række dine data i datointervallet (der kan indstilles vha variablerne "startdato" & "slutdato" ). Koden starter i række 4 og kopierer dine data til det nye ark til der ikke er flere data der overholder dine datokrav. OBS!!! Brug den kun på en KOPI af din Excelfil - den er kun en lille demo af hvad der kan lade sig gøre. Kolonneoverskrifterne kan selvfølgelig også kopieres med over - ligesom cellerne i det nye ark evt kan formateres.
Sub opretKopiUdvalgteData()
Dim startdato, slutdato As Date Dim i, x As Long Dim wsKopi, wsOriginal As Worksheet
Sheets.Add After:=Sheets(wsOriginal.Name) Set wsKopi = ActiveSheet
wsOriginal.Select
Range("A4").Select i = ActiveCell.Row
Do Until ActiveCell = ""
If ActiveCell >= startdato And ActiveCell <= slutdato Then For x = 0 To 8 wsKopi.Cells(i, x + 1) = ActiveCell.Offset(0, x) wsKopi.Cells(i, 1).NumberFormat = "m/d/yyyy" Next x
i = i + 1 End If
ActiveCell.Offset(1, 0).Select Loop
Range("A4").Select wsKopi.Select Range("a1") = "datakopi opdateret d.: " & Now
Puha, den var værre, for det er jo faktisk alle tre rigtigt gode løsningsforslag, og mange tak til jer alle tre. Jeg vælger at prøve at arbejde videre med Kurts forslag til vba løsning, så kurt, hvis du smider et svar, så får du lige point.
Hvis der er noget yderligere du vil have hjælp til - så sig til eller skriv evt direkte. Jeg hjælper gerne "helt på plads" ;-) Mit forslag til kode er jo ikke specielt elegant eller fintunet .....
Et andet forslag til løsning kunne vha VBA være at lade en kode kopiere HELE dit dataark - og så istedet fjerne de rækker som ikke overholder dine kriterier ;-) Så ville du jo nemt bevare overskrifter og formatering.
Vi kan jo lige vente med at lukke den til du er "kommet i mål".
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.