Avatar billede rmlarsen Nybegynder
29. oktober 2006 - 10:54 Der er 6 kommentarer

Oprettelse af cirkulær reference

Hej Eksperter
Jeg er i forbindelse med mit arbejde ved at lave et regneark, som skal fungere som tidsplanlægning.

Det er lavet således at der er et ark med fællesplanlægning hvor alle projekter og medarbejder fremgår, og man har her mulighed for at afmærke hvilke medarbejdere der er på hvilke projekter.

Hver medarbejder har også hver deres individuelle ark. hvor alle projekter også fremgår - men kun den enkelte medarbjeder,

Det jeg gerne ville have til at fungere er hvis den enkelte medarbejder går ind i hans/hendes ark og udfylder - så fremgår et også i fælles arket. Og ligeledes hvis chefen indtaster i fællesarket - så fremgår det i den enkelte medarbejders ark.

Jeg har forsøgt at sætte = i begge celler og det fungere også "engang" dvs. hvis jeg i medarbejder arket skriver 8 fremgår det også i fællesarket - men hvis jeg så skriver 7 i fælles arket, står der stadig 8 i medarbejder arket.

Hvordan løses dette?

René
Avatar billede excelent Ekspert
29. oktober 2006 - 11:17 #1
prøv om du kan bruge dette eks.

koden kan ses ved at.
højreklik på arkfanerne og vælg 'Vis programkode'

http://pmexcelent.dk/Reference.xls
Avatar billede rmlarsen Nybegynder
29. oktober 2006 - 11:24 #2
Hej igen

Tak for det hurtige svar...

Kan godt se at det fungere fint - men er desværrer lidt handicappet når det kommer til koder....

Hvordan kan jeg få det over i mit ark - eller hvad skal jeg skrive i formel linien for at det virker?

René
Avatar billede excelent Ekspert
29. oktober 2006 - 11:37 #3
ja koden skal jo rettes til så det passer til din projektmappe
og da jeg ikke ved hvordan den er opbygget er det jo ikke til
at vide præsist hvordan koden skal se ud

m.h.t at få koden over i din projektmappe
kopier koden i fælles arket
højreklik på dit fællesark-fane
vælg vis programkode
paste den kopierede kode ind i vinduet til højre

kopier koden i ark Per
højreklik i det første navne-ark-fane
vælg vis programkode
paste den kopierede kode ind i vinduet til højre

start så med at få de 2 koder til at virke før du indsætter
koder i de resterende ark

eller send evt. din fil til pm@madsen.tdcadsl.dk
Avatar billede excelent Ekspert
29. oktober 2006 - 11:45 #4
Private Sub Worksheet_Change(ByVal Target As Range)

følgende linie tester for input i B2:R3 i fællesarket
If Intersect(Target, Range("B2:R3")) Is Nothing Then Exit Sub

følgende linie tester for input i række 2 i fællesarket (Per's række)
If Target.Row = 2 Then Sheets("Per").Range(Target.Address) = Target

følgende linie tester for input i række 3 i fællesarket (Poul's række)
If Target.Row = 3 Then Sheets("Poul").Range(Target.Address) = Target
End Sub
Avatar billede excelent Ekspert
18. november 2006 - 23:23 #5
*
Avatar billede excelent Ekspert
24. december 2006 - 12:27 #6
*
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester