Avatar billede perhol Seniormester
10. marts 2011 - 21:38 Der er 3 kommentarer og
1 løsning

Hjælp til VBA

I et ark har jeg brug for en kode der kalder en makro hvis året i en celle er 1 større end året i en anden celle.

I A4 er indtastet en dato i formatet dd.mm.åå
I K29 er indtastet formlen =DATO(ÅR($A$4);MÅNED($A$4)+1;DAG($A$4)) der giver samme dag i næste måned i formatet dd.mm.åå

Jeg har brug for en VBA kode i stil med *Hvis År K29 = År A4 +1 så kald Sub(SkiftÅr)

Jeg bruger Excel 2003
10. marts 2011 - 22:22 #1
skal koden køre når der indtastes en værdi i en specifik celle eller hvornår/hvad skal aktivere koden?
Avatar billede perhol Seniormester
10. marts 2011 - 22:30 #2
Koden "Hvis År K29 = År A4 +1 så kald Sub(SkiftÅr)" skal køre når jeg vælger et punkt i en menu jeg selv har genereret
10. marts 2011 - 22:56 #3
Du behøver ikke validere begge celler... her checker jeg blot om måneden in A4 er 12, hvilket også opfylder dit ønske om at K29 så må være i næste år...

Public Sub checkYear()
    If Month(Range("A4").Value) = 12 Then
        'Kald din Sub SkiftAar her
    End If
End Sub
Avatar billede perhol Seniormester
10. marts 2011 - 23:09 #4
Jeg havde selv forsøgt med denne:

Sub TjekÅr()
Worksheets("Kassebog").Activate
If Range("A4") < Range("K29") Then
Call SkiftÅr
Else
MsgBox ("Der skiftes ikke år")
End If
End Sub

Sub SkiftÅr()
            MsgBox ("Der skiftes år")
End Sub


Den gav forkert resultat.
Nu har jeg sat din kode ind sådan her:

Sub TjekÅr()
Worksheets("Kassebog").Activate
    If Month(Range("A4").Value) = 12 Then
        Call SkiftÅr
Else
MsgBox ("Der skal ikke skiftes år endnu")
End If

End Sub

Sub SkiftÅr()
            MsgBox ("Der skiftes år")
End Sub

Det virker fint.

200 tak ;b)
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