Avatar billede thomasbuus87 Nybegynder
24. juli 2014 - 12:56 Der er 2 kommentarer

Skjul rækker hvis kriterie er opfyldt i VBA

Hej alle.

Jeg er ny til VBA og mangler her lidt hjælp.

I ark 2 skal jeg skjule række 299 til 324 hvis der står et 1-tal i celle A1 i ark 1.

I ark 2 kører der allerede en makro i forvejen, så skal på en eller anden måde denne til at køre efter den anden er kørt.

Kan nogen hjælpe?

Jeg har prøvet med koden nedenfor. Det er ikke det eksempel som jeg har beskrevet ovenfor, men det løsning vil jeg hellere have end den jeg selv har prøvet at lave nedenfor:

Private Sub Worksheet_Activate()
    Call sorter_bogføringskoder
 
Go To (her ved jeg ikke hvad jeg skal)

With Target
  If .Column <> 6 Then
      Exit Sub
  Else
      If .Value = "x" Then
        .EntireRow.Hidden = True
      End If
      End If
End With
End Sub


På forhånd tak. :)

Mvh Thomas.
Avatar billede finb Ekspert
24. juli 2014 - 14:57 #1
Efter hukommelsen:

dim rk as integer

if sheet(1).range("a1")=1 then
  for rk=299 to 324
    sheet(2).row(rk).entireRow.hidden=true
  NeXT rk
endif
Avatar billede kabbak Professor
24. juli 2014 - 18:59 #2
If Ark1.Range("a1") = 1 Then
        Ark2.Rows("299:324").EntireRow.Hidden = True
    Else
        Ark2.Rows("299:324").EntireRow.Hidden = False
    End If
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