Avatar billede rabitjosph Juniormester
21. april 2007 - 14:17 Der er 2 kommentarer og
1 løsning

If Then igen

Hvis betingelsen er sandt, hvor kan den så ikke udføre 2 betingelser for mig ?

Range("P2").Select
    Do Until IsEmpty(ActiveCell)
          If ActiveCell.Offset(0, 2).Value <> "" Then ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 2) + ActiveCell.Offset(0, 4) And ActiveCell.Offset(0, 3) = Date
        ActiveCell.Offset(1, 0).Select
      Loop

Jeg ønsker at få lagt nogle tal sammen samt sat en dato ind i cellen 3 pladser til højre ?
Avatar billede sorenstrom Nybegynder
21. april 2007 - 14:24 #1
Jeg synes du skulle starte med at læse den kommentar du fik af mig på det første spørgsmål du stillede omkring If - Then.
Range("P2").Select
    Do Until IsEmpty(ActiveCell)
          If ActiveCell.Offset(0, 2).Value <> "" Then
            ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 2) + ActiveCell.Offset(0, 4)
            ActiveCell.Offset(0, 3) = Date
            ActiveCell.Offset(1, 0).Select
          End If
      Loop
Avatar billede rabitjosph Juniormester
21. april 2007 - 15:07 #2
Mange tak for hjælpen

Et svar tak
Avatar billede sorenstrom Nybegynder
21. april 2007 - 19:57 #3
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
Kategori
Kurser inden for grundlæggende programmering

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