10. marts 2011 - 21:38Der 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)
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
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)
Synes godt om
Ny brugerNybegynder
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.