Kommandoknap

Hej Lystfisker
Tanker!!

Navn giv områderne
T1, T2 til T12 og Md1, Md2 Til Md12

I et modul

Sub Overfoer(Md as Variant)

select case Md
  Case 1
    Range("T1")=Range("Md1")
  Case 2
    Range("T2")=Range("Md2")
  osv.
End select
end sub

Kode til dine knapper

Sub MinKnap1_Click
    Overfoer(1) ' 1 ændres til den måned knappen repræsenterer
end sub

ej testet

Jan

Hej Jan

Det var noget af en mundfuld :-)
Jeg forsøger at sætte mig ind i hvordan jeg får det til at fungere...TAK

Det kan nok godt tage noget tid.... Jeg har ikke leget med makroer før. ;-)

Med venlig hilsen Lystfisker

Hej Jan

Du sendte mig VBA til overflytning af celleområde fra mit ark TØRN til månedsarkene JAN20:DEC20 i #1.

Jeg forsøger at navngive områderne på mine månedsark, men Excel vil ikke acceptere navne der er lig celle navne f.eks. Md1, skal jeg navngive månedsarkene i "", altså "Md1"? - eller har jeg mulighed for at navngive dem lige hvad jeg vil, - f.eks JanMd = jan ark området, FebMd = feb ark området?

Jeg har lagt en knap, - uden funktion, - uden tilknyttet funktion i A1 på alle månedsarkene. Det er meningen at jeg ved et tryk på den, får overført indholdet fra det korresponderende celleområde fra arket TØRN.

Jeg har lagt mit ark op på Dropbox, hvis du evt. skulle have mulighed for at tage et kik på min mappe ved lejlighed:
https://www.dropbox.com/s/4ms4uf33ruxpwlx/Arbejdskopi%20til%20deling%201-6.xlsx?dl=0

Jeg forsøger samtidigt at finde en løsning der kan skubbe vagtsymbolerne fra den celle i månedsarkenevde bliver overført til, til cellen direkte under. Således at jeg kan tilføje et andet symbol i øverste celle, f.eks. et S hvis der skulle være sygdom, et F for ferie o.s.v.

Skulle du have tid, lyst og lejlighed til at kigge på min mappe, er du naturligvis også velkommen til at ringe, så jeg kan forsøge at forklare hvad jeg mener, 61786432.

Med venlig hilsen Lystfisker

Hej det vil jeg gerne men først i weekenden
Jan