Hvis du har navnet stående i celle A1 kan denne lille makro klare det
Sub HideRows() lastrow = ActiveSheet.UsedRange.Rows.Count For x = 2 To lastrow If Cells(x, 6) <> Cells(1, 1) And Cells(x, 7) <> Cells(1, 1) Then Rows(x).EntireRow.Hidden = True End If Next End Sub
Jeg kan desværre ikke flytte navnene, f består af "ledende medarbejder" og G består af "assistent" så hvis jeg nu fx. Ville se hvad Ex Sandra havde af opgaver, skulle de opgaver hun laver gerne figurere både dem hvor hun er ledende, men også når hun er assistent.
Du skal ikke flytte navnene, men blot skrive "Sandra" i celle A1 og køre makroen. Hvis du ønsker at skrive navnet i en anden celle skal Cells(1,1) ændres i linie 4 (2 gange)
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.