06. juni 2007 - 11:22Der er
19 kommentarer og 1 løsning
Overflytning til et andet ark.
Heysa igen.
Det gik jo fantastisk sidste gang, så her kommer et nyt spørgsmål i samme boldgade.
Jeg er igang med at lave et prioriteringsark. Et ark hvori at sekretæren kan skrive opgaver ind i. I denne liste står der et opgavenavn(d kolonnen), initialer(e Kolonnen) og et opgave ID (h kolonnen, som er et heltal )
Jeg har 6 forskellige ark. Et samlet ark, hvor alle opgaver er i. og et ark for hver af de personer som skal udføre de opgaver, når opgaven er blevet prioriteret.
Det der så er mit spørgsmål, er.
Baseret ud på de initialer der er placeret vil jeg gerne flytte hele opgaven over i et andet ark, nemlig det ark, som tilhører den person hvis initialer står på opgaven. Det var min tanke at relationen imellem opgaven skulle være det opgaveID som står i kolonne H.
Jeg er sikker på at man kan, men er ikke helt sikker på hvordan jeg skal holde styr på relationen imellem de forskellige ark?
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
En opgave består af kolonne a-h. a = dato b = deadline c = opgave løser d = opgave stiller e = Kort beskrivelse af opgaven f = Status på opgaven g = afsluttet h = opgave id
En opgave = en række.
så a2-h2 er en opgave med id 1 a3-h3 er en anden opgave med id 2
id 1 skal løses af personen AK og skal derfor flyttes til ark AK id 2 skal løses af personen MS og skal derfor flyttes til ark MS
Hvor skal koden ligge henne? Jeg har forsøgt at lægge den både i "Alle indkomne opgaver" og lægge den i selve workbooken, men syntes ikke at det duer :(
Ævs det har jeg også forsøgt, men kan stadig ikke få det til at virke ( ja jeg ved jeg er en noob)
Det jeg gør er følgende.
Jeg skriver ind i arket "alle indkomne opgaver" på tre af rækkerne, men de bliver ikke flyttet over i de andre faneblade, og jeg har ingen anelse om hvorfor.
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Target.Row If Cells(r, 1) = "" And Cells(r, 3) <> "" And Cells(r, 4) <> "" And Cells(r, 5) <> "" Then Cells(r, 1) = Date Cells(r, 2) = Date + 14 Cells(r, 8) = Cells(1, 9) + 1 Cells(1, 9) = Cells(r, 8) End If
Jeg tror lige præcist at jeg har fundet ud af hvad problemet er, mine ark var protectede, så jeg kunne ikke skrive ned i dem.
Hmmm det var da egentlig lidt ærgeligt.
nu når jeg kører macroen så virker den som den skal, men jeg bliver nødt til at fjerne beskyttelsen på de andre ark først, er der monstro nogen måde jeg kan komme ud af det på?
Men du skal ha dine point, skriv du straks et svar, så får du lige en omgang point.
ja det kunne jo være årsagen :-) iøvrigt kan du sætte beskyttelse på via kode som denne: hvis du har en speciel beskyttelse, kan du starte makrooptager imens du beskytter et af arkene som du plejer, så kan du paste den kode ind i stedet for den simple "sh.Protect" jeg anvender
Sub Deleger()
Dim rk, idrk, idArk, t
For Each sh In ActiveWorkbook.Sheets If sh.Name <> "Alle indkomne opgaver" Then sh.Unprotect End If Next
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.
