17. december 2020 - 10:34Der er
15 kommentarer og 1 løsning
Aktuel data værdier fra skema 1 til dato pos i skema 2 Hvordan?
- Jeg opretter to skemaer i excel regneark
Skema 1: - Der er kun 3 celler i 1 linje i anvendelse - Celle A1; Dato oprettes automatisk som aktuel dato - Celle B1; dagligt indberettes værdi af El = Kwh - Celle C1; daglig indberettes værdi af varme = Mwh Efter indsættelse af de 2 værdier skal der trykkes på en funktionstast der automatisk eksporteret værdierne til skema 2
Skema 2: - I søjle A1 indsættes 01-01-2021 - I efterfølgende rækker I søjle A indsættes alle årets kalenderdage - I søjle B1..B365 baseret på Kwh - I søjle C1..C365 baseret på Mwh
Opgaven er at automatisk skal data fra skema 1 overføres til den relevante dato i skema 2 i de rigtige positioner.
Hvordan, eller er der en nemmere måde til automatisk opdatering til skema 2?
Sub Overfør() Range("A1") = Date x = WorksheetFunction.Match(Range("A1"), Worksheets("Sheet2").Range("A1:A365"), 0) Range("B1:C1").Copy Destination:=Worksheets("Sheet2").Cells(x, 2) End Sub
Thomas; relevant, søjle er kolonne. Jens ved overførslen aktiveret fra skema 1 skal data selv finde den relevante dato placering i skema 2. Altså finde positionen i skemaet.
Umiddelbart vil jeg sige i kolonne A en formel der tager foregående rækkes dato og ligger en til. Kolonne B og C er sum.hvis formler der med dato i kolonne A som kriterie summerer i de tilsvarende kolonner fra ark 1.
Ark 2: Datoerne i kolonne A er korrekt som følger A2=A1+1 o.s.v datoen øges med 1 for hver linie til året er slut
Det svære er at få en makro fra Ark1 til at aflæse aktuel dato i Ark1 for så at finde positionen i Ark 2 Ax og indsætte værdierne fra Ark 1 B1 og C1 til Ark 2 Bx og Cx
Jens48 I Sheet2 er samtlige datoer for året lagt i kolonne A1...A365 Den aktuelle dato fra Sheet1 skal finde sin egen dato i Sheet2 i kolonne A Når datoel er fundet skal data overføres.
Jens48 Jeg lukkede Sheet1 ned og åbnede den igen og makroen udførte følgende; Fra Sheet1 A1 blev datoen kopieret til Sheet2 A1 men data fra Sheet1 B1 og C1 blev ikke kopieret.
To ting: 1. Har du rettet makroen så arknavnet passer? Jeg har brugt "Sheet1" og "Sheet2" 2. Prøv med nedenstående lettere modificerede makro. Den checker om datoen er på ark 2.
Sub Overfør() On Error GoTo A: x = WorksheetFunction.Match(Range("A1"), Worksheets("Sheet2").Range("A1:A365"), 0) Range("B1:C1").Copy Destination:=Worksheets("Sheet2").Cells(x, 2) Cells(1, 1).Select Exit Sub A: MsgBox ("Date not valid") End Sub
De to filnavne er h.h.v. Sheet1 og Sheet2 Den nye macro er lagt ind, testet Dagsdato er automatisk i Sheet1 A1 17-12-2020 B1 206 C1 25,251
I Sheet2 er kolonne A1 01-01-2020 efterfølgende i kolonne A: A2=A1+1 o.s.v max række = kalenderåret A365 = A364+1
Har prøvet at fastlåse specifik dato i begge ark i A1 så de var fuldstændig ens, men med samme fejl resultat
Jeg har prøvet at lade både Sheet1 A1 og Sheet2 A1 være lig med 18-12-2020, hvilket giver samme fejl "date not valid" Er det min excel der er for gammel?
Hvor kommer den automatiske opdatering af datoen fra? Hvis datoen også indeholder timer og minutter virker det ikke. Det skal være et heltal. Hvilken version af Excel har du?
Hvis det ikke er et heltal, så prøv med denne makro:
Sub Overfør() Dim x, y As Long On Error GoTo A: y = Int(Range("A1")) x = WorksheetFunction.Match(y, Worksheets("Sheet2").Range("A1:A365"), 0) Range("B1:C1").Copy Destination:=Worksheets("Sheet2").Cells(x, 2) Cells(1, 1).Select Exit Sub A: MsgBox ("Date not valid") End Sub
Den automatiske dato i Sheet1 A1 er formlen =IDAG() Faste dato i Sheet2 Kolonne A1 er 01-01-2020 efterfølgende I A er A1+1 osv til A365 Er testet med fastsat dato 18-12-2020 i både Sheet1 og Sheet2
Prøvet sidste oplæg med samme resultat bruger excel 2003 og testet i excel 2010, samme resultat
Det ser altsammen rigtigt ud. Jeg er ved at løbe tør for ideer, men du kan eventuelt sende filen til mig, så vil jeg kigge på den. Send den til kober_soerensen(snabela)hotmail.com
Synes godt om
1 synes godt om dette
Ny brugerNybegynder
Din løsning...
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.
