21. april 2007 - 14:17Der 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 ?
Danmark vil mindske afhængigheden af globale techgiganter, men det kræver mere end politiske formuleringer og strategier, understreger PROSA’s formand Niels Bertelsen.
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
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.