Lage referat i excel

[HaKj]

Hei

 

Jeg er med i en forening der vi har jevnlige møter. Jeg har i oppdrag å føre referat fra disse møtene. Jeg ha tenkt å gjøre dette i excel på følgende måte:

 

Jeg må ha en makro som setter inn en ny post som består av ca tre rader.

En med postnr. og postnavn/info, neste med underpostnr. og så en på slutten med en avkrysningsboks og et kommentarfelt, hvor en kan klikke, hvis posten er ferdig utført.

 

Gangen i referatet vil være som følger:

1. møte - fyll inn poster som kommer opp.

2. møte - gjennomgang av forrige referat, kryss av for de som er utført, samt opprett nytt referat.

 

Når det gjelder opprett nytt referat, så ønsker jeg meg en makro som kopierer hele forrige referat, til et nytt ark, men kun tar med seg de sakene som ikke er krysset av som utført.

Hvor skal jeg begynne for å få til dette?

[HaKj]

La ved en excel - fil som er utgangspunktet mitt.

 

HK

[Harald Staff]

Tja, stort og åpent spørsmål. Enten

http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

eller brekk ned oppgaven til små håndterlige delproblemer og løs eller finn svaret:

-hvordan kopierer jeg et celleområde til et annet sted / annet ark ?

-hvordan finner jeg sist brukte rad i en kolonne ?

-hvordan sjekker jeg om en celle inneholder X eller ikke ?

-osv osv osv

 

HTH. Beste hilsen Harald

[HaKj]

Hei

 

Prøver å brekke opp litt nå.

Tenker at det må foregå i denne rekkefølgen:

1. PostEksempel må defineres som et område. Dette området består av 4 rader, og en checkbox.

celle a1 inneholder postnr.(f.eks. post 01.00)

2. Når jeg skal opprette en ny post må PostEksempel kopieres og det nye området må gies et nytt nr. som stiger med 1 hver gang. Samtidig må postnr også økes med 1.

Har prøvd å lage en makro i excel som gjør dette:

 

Sub NyPost()

'

' NyPost Makro

'

 

'

Application.Goto Reference:="PostEksempel"

Selection.Copy

ActiveCell.Offset(4, 0).Range("A1").Select

ActiveSheet.CheckBoxes.Add(344.25, 80.25, 81.75, 16.5).Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveWorkbook.Names.Add Name:="Post01", RefersToR1C1:= _

"='Ref (1)'!R9C1:R12C9"

ActiveWorkbook.Names("Post01").Comment = ""

 

End Sub

 

Hvordan får jeg denne til å fungere slik at både postnr. og områdenavn øker med 1 hver gang?

Hvordan kan jeg få ny post til å alltid havne nederst?

 

 

Hilsen Harald

[HaKj]

Nå har jeg fått til å opprette poster nedover.

Har fått det til slik at områdene heter post1, post2 og post3.

Hver av disse postene inneholder en avkrysningsboks som

heter f.eks. post1 - mrkbx1, post2 - mrkbx2.

Nå stopper det på hvordan jeg får til å kopiere kun de områdene som inneholder en boks som ikke er merket videre til neste ark.

Kan dere hjelpe meg med det?

 

Hilsen Harald