26. juli 2005 - 17:11Der er
7 kommentarer og 1 løsning
Fødselsdags liste, automatisk opdatering
I kollone A har jeg datoerne, i kollone B har jeg navne, og i kollone C har jeg Alderen.
Hver gang jeg starter Excel undersøger makroen om en af datoerne i kolonne A, passer med dagsdato. gør de det, kommer en Msgbox, med beskeden om at en person har fødselsdag. Herefter opdatere makroen, datoen i kolonne A, med 1 år, samt i kollone C, Alderen med 1 år.
problemet er at hvis jeg springer én dag over med at åbne Excelarket, så opdateres fødselsdato og alder ikke og msgboxen kommer således heller ikke næste år, hvilket jo vil resultere i at personens fødselsdag vil blive glemt. !?!
Hvordan klare jeg lige det problem, det er sikkert logisk ??
Private Sub Workbook_Open() Sheets("Fødselsdag").Select N = Range("A65536").End(xlUp).Row For i = 2 To N If Cells(i, 1) <= Date Then MsgBox Cells(i, 2) & " Har fødselsdag " & Cells(i, 1) Cells(i, 1) = DateAdd("YYYY", 1, Cells(i, 1)) Cells(i, 3) = Cells(i, 3) + 1 End If Next End Sub
Nu har jeg rettet, hvis cellen er tom, sker der ikke noget.
Private Sub Workbook_Open() Sheets("Fødselsdag").Select N = Range("A65536").End(xlUp).Row For i = 2 To N If Cells(i, 1) <= Date And Cells(i, 1) <> "" Then MsgBox Cells(i, 2) & " Har fødselsdag " & Cells(i, 1) Cells(i, 1) = DateAdd("YYYY", 1, Cells(i, 1)) Cells(i, 3) = Cells(i, 3) + 1 End If Next End Sub
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.
