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

uploads/2664/PC_test.xlsm" rel="nofollow - uploads/2664/PC_test.xlsm

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

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

mvh kjeld

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:

https://www.dropbox.com/s/1flti2nmhqnoyrp/Pc%20test_nyt_opl%C3%A6g_mads32.xlsm?dl=0" rel="nofollow - https://www.dropbox.com/s/1flti2nmhqnoyrp/Pc%20test_nyt_opl%C3%A6g_mads32.xlsm?dl=0

Jeg hører gerne dine kommentarer, om du kan bruge indlægget eller ej.

Kan du lide indlægget så marker med "Tak"

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

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

mads32

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

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

https://www.dropbox.com/scl/fi/zi1jpfsjpt3uzy7w6zgkc/PC_test-1.xlsm?dl=0&rlkey=vgbvec3jg450hqu0ft2w1xbu5" rel="nofollow - https://www.dropbox.com/scl/fi/zi1jpfsjpt3uzy7w6zgkc/PC_test-1.xlsm?dl=0&rlkey=vgbvec3jg450hqu0ft2w1xbu5

mvh kjeld

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 :)

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