Avatar billede rabitjosph Juniormester
18. januar 2009 - 14:35 Der er 3 kommentarer og
1 løsning

Rense celler

Hej ved godt jeg har ligende spørgsmål åben i nu, men skal nok luk den med det giver mig en del problemer

Vil gerne havde kolone D renset
Hvis der står en mumerisk værdi <0 skal den sætte værdien til -7
Hvis der er tekst/streger skal cellen renses (alså som det her" ")

D  Kolone
-2

#NAVN?
&#9472;&#9472;&#9472;
&#9472;&#9472;&#9472;&#9472;

-3

kommer til at se ud som det her
D  Kolone
-7





-7
Avatar billede oleelo Nybegynder
18. januar 2009 - 15:41 #1
Hej
Prøv med

Sub RensD()
Dim x As Integer

For x = 1 To ActiveSheet.UsedRange.Rows.Count

If IsNumeric(Cells(x, 4)) Then
    If (Cells(x, 4)) < 0 Then
      Cells(x, 4).Value = -7
    Else
      Cells(x, 4).Value = ""
    End If

Else

Cells(x, 4).Value = ""

End If
Next x

mvh oleelo
Avatar billede oleelo Nybegynder
18. januar 2009 - 15:44 #2
Du skal slette "den første"
Else
Cells(x, 4).Value = ""
hvis du vil beholde posetive værdier
oleelo
Avatar billede rabitjosph Juniormester
18. januar 2009 - 20:07 #3
super svar tak ole
Avatar billede oleelo Nybegynder
20. januar 2009 - 22:09 #4
Her et svar :-)
mvh oleelo
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