13. juli 2018 - 12:17 Der er 9 kommentarer og
1 løsning

Skjul rækker der ikke har modtaget data automatisk

Hej
Jeg har et ark, hvor jeg kopierer noget data ind i én fane(Indsæt), hvor en anden fane(Hovedside) så sorterer dataen.

I denne hovedside har jeg nogle tomme felter(Indeholder kun koden til at tage data fra "Indsæt". Når der ikke er noget data fra "Indsæt", så vil jeg gerne skjule/slette de rækker, der ikke har modtaget data fra "Indsæt".

Jeg søger enten en makro eller en VBA-løsning :-)

Ser frem til gode løsninger, forslag og input!

Mvh Martin
Avatar billede store-morten Ekspert
13. juli 2018 - 13:54 #1
Prøv:
Sub Skjul_Vis_Rk()
    For Each c In Range("A1:A100").Cells
        If c.Value = "" Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = False
        End If
    Next c
End Sub
16. juli 2018 - 10:01 #2
Hej Morten
Det er helt perfekt!!

Tusinde tak! :-)

God sommer!
16. juli 2018 - 10:17 #3
Hej igen Morten

Jeg var vist lige hurtig nok - Beklager.

Den kan ikke fjerne linjer, hvor der står en formel i desværre - Kun tomme celler.
Avatar billede store-morten Ekspert
16. juli 2018 - 10:31 #4
Jeg testede på hvis formler.

Prøv at vise en formel her
16. juli 2018 - 12:34 #5
Hej igen
Det er bare en ='Indsat fra Momentum.'!A37 der refererer til en anden fane.
Avatar billede store-morten Ekspert
16. juli 2018 - 12:54 #6
Så er cellen heller ikke "tom"
Avatar billede store-morten Ekspert
16. juli 2018 - 13:07 #7
Er der nogen celler på: Momentum der er = 0?
Formlen: ='Indsat fra Momentum.'!A37 giver 0 hvis der ikke er data i: Momentum.'!A37
Avatar billede store-morten Ekspert
16. juli 2018 - 13:11 #8
Jeg har brugt formler som denne, der giver "tom" hvis der ikke er værdi i A37

=HVIS('Indsat fra Momentum.'!A37="";"";'Indsat fra Momentum.'!A37)
16. juli 2018 - 13:31 #9
Hej Morten
Det lykkedes mig med denne formel, hvor value er sat til "0" istf. ""

Sub Skjul_Vis_Rk()
    For Each c In Range("B4:B64").Cells
        If c.Value = "0" Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = False
        End If
    Next c
End Sub

Igen - Tusinde tak! :-)
Avatar billede store-morten Ekspert
16. juli 2018 - 13:37 #10
Ja, det var også der jeg ville hen. #7

Godt du fik det til at virke.
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

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