Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketopdater/samle/fordele

 Besvar Besvar
Forfatter
Smoff Se dropdown
Forum Begynder
Forum Begynder


Medlem: 16.Apr.2020
Land: DK
Status: Offline
Point: 11
Direkte link til dette indlæg Emne: opdater/samle/fordele
    Sendt: 25.Maj.2020 kl. 21:32
Hej

Jeg er gået i gang med VBA, da jeg ikke kan få det hele til at virke med makro :) da det gerne skal kunne køre automatisk.

jeg har lavet et projekt mappe der består af flere ark.
jeg skriver kun i ark "Bærbar" & "Stationær" de 2 ark kunne jeg godt tænke mig at få dem samlet i ark "Samlet" her tænker jeg ikke kopi men at alle celler er = så de selv bliver opdateret når der rettes, slettes eller tilføjet flere rækker.

efter det er samlet i ARK "Samlet" skal de sendes videre til de 4 ark BYG1,BYG2,BYG3,BYG4
ud fra hvad der står kolonne F.


Der er lavet en kode som også opdatere Dato når der skrives i kolonne E-Q dette skal forsat bruges.

Mvh Ole
Til top



Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76
Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 11.Jun.2020 kl. 12:29
Hej.

Hvis du ændrer i kodens navne " Byg-1-4 " skal du sikrer dig at det sker alle steder  i koden.

Kolonnen F er vital for programmet virker korrekt. 

Hvis du ved en fejl  skriver værdien i cellen på en anden måde.  f.eks "byg 14". Så vil select case ikke medtage værdien.  

Derfor kommer der en message boks der tæller om værdierne er ens før og efter samling af data



mvh kjeld
Til top
thomasbk Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Jul.2015
Land: Danmark
Status: Offline
Point: 85
Direkte link til dette indlæg Sendt: 26.Maj.2020 kl. 08:58
Jeg er lidt usikker, er der et spørgsmål?
Til top
Smoff Se dropdown
Forum Begynder
Forum Begynder


Medlem: 16.Apr.2020
Land: DK
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 26.Maj.2020 kl. 09:13
OK

Jeg prøver igen :)

 1. jeg kunne godt tænke mig at de 2 første ark "Bærbar" & "Stationær" bliver samlet på et ark ( jeg har kaldt det "Samlet" )

det skal være muligt både at tilføje og fjerne i "Bærbar" & "Stationær" og selv opdater ændringen.

2. efter det er samlet, kunne det være dejligt at de igen bliver opdelt, men nu efter kolonne F.
så de bliver delt ud på de sidste 4 ARK. "BYG 1" - "BYG 2" - "BYG 3" - "BYG 4"

Mvh

Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76
Direkte link til dette indlæg Sendt: 06.Jun.2020 kl. 12:28
Kolonne F vil den altid indeholde data?

For at kunne samle arkene skal jeg bruge en kolonne, som altid indeholder data ellers vil det ikke fungere


mvh kjeld
Til top
Mads32 Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 26.Feb.2016
Land: Danmark
Status: Offline
Point: 1317
Direkte link til dette indlæg Sendt: 06.Jun.2020 kl. 20:24
Hej Smoff

Jeg har lavet et nyt oplæg, da jeg ikke kunne få de makroer jeg ville tilføje, til at virke.
Jeg har flyttet kolonnen med "ORG.ELM" til kolonne A.
Jeg har lavet en data validering på kolonne A, for at sikre at der altid er indtast entydige data i denne kolonne. Hvis dette ikke er tilfældet, kan der ikke visesde rigtige data for BYG1, BYG2, BYG3 og BYG4.
Jeg har givet mulighed for at indtaste datoer. Skal datoer ikke indsættes på nogle ark, skal disse kolonner blot slettes.
I din uploadede fil var der ingen makro, der automatisk indsatte datoer.

vedhæftet link:


Jeg hører gerne dine kommentarer, om du kan bruge indlægget eller ej.
Kan du lide indlægget så marker med "Tak"
Kan du bruge indlægget så marker med "Accepteret løsning"
Ikoner til markering finder du i øverste venstre hjørne af skærmen.





Til top
Smoff Se dropdown
Forum Begynder
Forum Begynder


Medlem: 16.Apr.2020
Land: DK
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 09.Jun.2020 kl. 15:36
Hej Kjeld

ja kolonne F vil altid indeholde date, men ikke en fast date.

men data med navn fra fra et af de andre ark. BYG 1 BYG 2 BYG 3 BYG 4 så dataen selv flyttes :)

Mvh Ole Raff
Til top
Mads32 Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 26.Feb.2016
Land: Danmark
Status: Offline
Point: 1317
Direkte link til dette indlæg Sendt: 09.Jun.2020 kl. 20:12
Hej

Hvornår får du tid til at kommentere mit indlæg ??????

mads32
Til top
Smoff Se dropdown
Forum Begynder
Forum Begynder


Medlem: 16.Apr.2020
Land: DK
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 10.Jun.2020 kl. 10:29
Hej Mads

det tog lige lidt længer at kigge på dit bud :)

jeg er ikke helt glad for at det bliver flyttet rundt på mine kolonner

jeg er heller ikke så glad for alle de fine knapper.

jeg kan ikke forstå du siger at datoen ikke selv bliver skrevet, det gør den i mit ark.

E til Q opdatere selv dato i R

Mvh Ole Raff
Til top
Mads32 Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 26.Feb.2016
Land: Danmark
Status: Offline
Point: 1317
Direkte link til dette indlæg Sendt: 10.Jun.2020 kl. 10:56
hej 

du må se hvad andre byder ind med.

men som skrevet kunne jeg ikke få mine formler til at virke i dit ark, og der var ikke nogen makro der automatisk skrev datoer.

m v h 
 mads 32
Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76
Direkte link til dette indlæg Sendt: 10.Jun.2020 kl. 14:39
Jeg har tilføjet en makro som kører programmet i fanebladet " start"


mvh kjeld
Til top
Smoff Se dropdown
Forum Begynder
Forum Begynder


Medlem: 16.Apr.2020
Land: DK
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 11.Jun.2020 kl. 12:07
Hej Kjeld

Det ser godt ud til at du har ramt næsten alt hvad jeg kunne tænke mig :D

og jeg kan nemt kende mit eget ark. :)

jeg tror jeg nemt kan bruge din løsning, må lige fylde nået mere data i og teste.

nu skal jeg bare finde ud af hvordan jeg evt. kan ændre byg 1 - byg 4.

kan man bare omskrive din koden og erstatte ( BYG 1 ) men nået andet? eks (IKT)
og evt. tilføjere flere ark.


 'Flyt data fra byg 1 til byg 4
           
              RækkeT = Ark2.Range("F100000").End(xlUp).Row
           
           
              Tælle = 2
           
              Do Until Tælle > RækkeT
           
              Byg = Ark2.Cells(Tælle, 6).Value
             
             
             
              Select Case Byg
             
             
             
             
             
              Case "BYG 1"

              Set kopierFra = Ark2.Range(Ark2.Cells(Tælle, 1), Ark2.Cells(Tælle, 18))
             
             
              Tbyg1 = Ark4.Range("F100000").End(xlUp).Row + 1
             
             
             
              Set kopiertil = Ark4.Range(Ark4.Cells(Tbyg1, 1), Ark4.Cells(Tbyg1, 1))
           
           
              kopierFra.Copy Destination:=kopiertil

Mvh Ole Raff


min første tanke var at de 2 data ark. ( PC & Stationer) ikke blev kopiret til samlet, men at samlet var lig de ark. så en rettelse kunne ses med det samme, uden at skulle trykke på en knap :)

Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76
Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 11.Jun.2020 kl. 12:29
Hej.

Hvis du ændrer i kodens navne " Byg-1-4 " skal du sikrer dig at det sker alle steder  i koden.

Kolonnen F er vital for programmet virker korrekt. 

Hvis du ved en fejl  skriver værdien i cellen på en anden måde.  f.eks "byg 14". Så vil select case ikke medtage værdien.  

Derfor kommer der en message boks der tæller om værdierne er ens før og efter samling af data



mvh kjeld
Til top
Smoff Se dropdown
Forum Begynder
Forum Begynder


Medlem: 16.Apr.2020
Land: DK
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 26.Jun.2020 kl. 06:58
Takker for det gode løsning Kjeld :)
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk