Avatar billede hjald8 Nybegynder
30. april 2007 - 11:24 Der er 2 kommentarer og
1 løsning

Gennemløb af ark i projektmappe - Skjul rækker

Jeg har lavet nedenfor viste makro. Skjul funktionen virker fint - men den går ikke igennem alle ark. Hvilket var meningen.
Ved gennemløbet af ark, skal makroen vælge de ark, som er markeret med SV i celle B1. Det vil den imidlertid ikke.

Kan nogen hjælpe mig med at løse denne?

Supp.spørgsmål: Kan man kode sig til, at man vender tilbage til den celle man stod i, da man aktiverede makroen.

Sub SkjulRækkerAlleArk()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
   
For Each Worksheet In ActiveWorkbook.Worksheets
  If Range("B1") = "SV" Then
    Cells.EntireRow.Hidden = False
    For Each c In ActiveSheet.Range("A3:A250").Cells
      If c.Value = Falsk Then
      Application.GoTo Reference:=c
      Selection.EntireRow.Hidden = True
      End If
    Next
  End If
Next
   
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Avatar billede excelent Ekspert
30. april 2007 - 11:41 #1
Sub SkjulRækkerAlleArk()
førArk = ActiveSheet.Name
førSelle = ActiveCell.Address

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
   
For Each sh In ActiveWorkbook.Worksheets
  If sh.Range("B1") = "SV" Then
    Cells.EntireRow.Hidden = False
    For Each c In sh.Range("A3:A250").Cells
      If c.Value = Falsk Then
      Application.GoTo Reference:=c
      Selection.EntireRow.Hidden = True
      End If
    Next
  End If
Next
   
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Sheets(førArk).Activate
Range(førSelle).Select
End Sub
Avatar billede hjald8 Nybegynder
30. april 2007 - 12:08 #2
Tak for hurtigt svar.

Jeg måtte lige flytte denne: Cells.EntireRow.Hidden = False
Men ellers virker det perfekt.
Smid et svar. Og tak for hjælpen
Avatar billede excelent Ekspert
30. april 2007 - 12:10 #3
ok velbekom
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