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

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

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"

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

mads32

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

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