Avatar billede ingolf Nybegynder
18. december 2008 - 14:17 Der er 6 kommentarer og
1 løsning

Hvis kolA=x så skal værdien i kolB, kolC og kolD slettes

Hvilken formel skal man anvende, hvis man ønsker, at værdien i kollonne B, C og D skal slettes, hvis værdien i kollonne A = x ?
Avatar billede jkrons Professor
18. december 2008 - 16:08 #1
Du kan ikke slette noget med en formel, det kan du kun gøre manuelt eller med en makro. Du kan derimod vælge at skjule indholdet af B, C og D hvis A indeholder x.

fx med denne formel i B2: =HVIS(A1="x2";"";"Den værdi, der ellers står i B2)

Gentag for C og D kolonnerne og kopier nedad.
Avatar billede jkrons Professor
18. december 2008 - 16:09 #2
Fejl, formlen skulle haver set således ud:

=HVIS(A1="x";"";"Den værdi, der ellers står i B2)
Avatar billede ingolf Nybegynder
18. december 2008 - 16:33 #3
Det går ikke at placere en formel i hverken B, C eller D kollonnen, idet jeg skal stadigvæk kunne indtaste data i B, C og D kollonnerne. Og A kollonnen skal være med eller uden værdien x alt efter om jeg ønsker at slette data i B, C og D.
Kan man ikke placere en formel f.ex. i E kollonnen der kan klare sletteopgaven i B, C og D?
Avatar billede ingolf Nybegynder
18. december 2008 - 16:35 #4
Jeg får ikke tid til mere idag, jule aftensmaden kalder
Avatar billede jkrons Professor
18. december 2008 - 21:40 #5
Nej. Formler virker kun på de celler, de slev står i. En formel kan ikke virke på andre celler. I øvrigt kan formler slet ikke slette noget som helst :-)

Hvis cellerne i B, C og D bare skal tømmes, kan du bruge denen makro.

Sub SletHvisX()
    For Each c In Range("a1:a20").Cells
        If UCase(c.Value) = "X" Then
            c.Offset(0, 1).ClearContents
            c.Offset(0, 2).ClearContents
            c.Offset(0, 3).ClearContents
        End If
    Next c
End Sub

Vil du i stedet slette hele rækken, hvis der er X i a, kan du bruge:

Sub SletRkHvisX()
    rk = Range("b65536").End(xlUp).Row
    For i = rk To 1 Step -1
        If UCase(Cells(i, 1)) = "X" Then
            Cells(i, 1).EntireRow.Delete Shift:=xlUp
        End If
    Next i
End Sub
Avatar billede ingolf Nybegynder
06. januar 2009 - 16:59 #6
jkrons
Du får dine point, hvis du opretter et svar
Avatar billede jkrons Professor
06. januar 2009 - 17:45 #7
Et svar
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