Avatar billede h_s Forsker
30. december 2004 - 11:01 Der er 3 kommentarer og
1 løsning

Makro - skrive dags dato i celle hvis forsætninger er opfyldt

Jeg har brug for en makro, der gør følgende sætter dags dato (Date) i kolonne K ud fra følgende forudsætninger.

1: Tjekker i kolonne K i rækken i forvejen står en dato.
Hvis Ja: Gå videre til næste række.
Hvis Nej: Tjekke om der står en dato i kolonne B i samme række.

Står der en dato i kolonne B?
Hvis Ja: Indsæt en dato i kolonne K og gå videre til næste række
Hvis Nej: Stopper makroen for denne gang

Makroen skal starte i række 4 og i teorien først stoppe ved sidste mulige række (er det ikke række 65536?)

Hvem kan hjælpe?
Avatar billede bak Forsker
30. december 2004 - 17:39 #1
test denne makro

Sub mytest()
Dim x As Long
x = 3  'Fra række 3
'Kør en uendelig løkke
While 1 > 0
    'skift til næste række
    x = x + 1
    'hvis K er tom, så check B
    If IsEmpty(Range("K" & x)) Then
        'hvis B ikke er tom så indsæt dags dato
        If Not IsEmpty(Range("B" & x)) Then
            Range("K" & x) = Date
        Else
            'ellers gå til cellen i K hvor begge er tomme
            'og afbryd makroen
            Range("K" & x).Select
            Exit Sub
        End If
    End If
Wend
End Sub
Avatar billede h_s Forsker
31. december 2004 - 09:10 #2
Tak Bak, den virker - Læg lige et svar!
Avatar billede bak Forsker
31. december 2004 - 10:41 #3
Ok og godt nytår
Avatar billede h_s Forsker
31. december 2004 - 14:06 #4
Tak og i lige måde!
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