Avatar billede Butterfly Ekspert
21. april 2016 - 13:18 Der er 3 kommentarer og
1 løsning

Makro skal køre så længe a>0

Hej
Hvordan får en en makro til at køre så længe a>0?
I kolonne A står en dato, i kolonne U skal den skrive "måned - dag"

    ActiveCell.FormulaR1C1 = "=+YEAR(RC[-19])"
    ActiveCell.FormulaR1C1 = "=+YEAR(RC[-19])&"" - ""&MONTH(RC[-19])"
Nu vil jeg gerne have den til at gøre det så længe der står en dato i A
Avatar billede finb Ekspert
23. april 2016 - 12:06 #1
While isDate(range"cellen") 'rem muligvis: application.isDate
..
..
End While
Avatar billede store-morten Ekspert
24. april 2016 - 12:34 #2
Prøv:
Sub KonverterDato()
    Dim SidsteRække As Double
   
    SidsteRække = Range("A" & Rows.Count).End(xlUp).Row
   
        For i = SidsteRække To 1 Step -1
    Range("U" & i).FormulaR1C1 = "=YEAR(RC[-20])&""-""&MONTH(RC[-20])&""-""&DAY(RC[-20])"
        Next
       
End Sub
Avatar billede Butterfly Ekspert
25. april 2016 - 12:50 #3
Mange tak Store-Morten
Det var lige hvad jeg søgte - så kan det kun blive en god mandag
Skriv et svar og få point
Avatar billede store-morten Ekspert
25. april 2016 - 14:13 #4
Velbekomme
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

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