01. december 2006 - 00:04Der er
10 kommentarer og 2 løsninger
skule linier,
Jeg har en lille makro som skjuler linier hvis kolonne c (3) er tom. (eller = 0) Er der nogen der kan tilrette denne makro til at den kun skal skjule linien hvis både kolonne c og d (3+4) er tomme.
Sub skjulITlinier()
Dim I As Long 'i er en tækker der tæller over rækkerne For I = 1 To 2200 If Cells(I, 3).Value = "" Or Cells(I, 3).Value = "0" Then Cells(I, 3).Select ActiveCell.EntireRow.Hidden = True End If Next I End Sub
Dim I As Long 'i er en tækker der tæller over rækkerne Application.ScreenUpdating = False For I = 1 To 2200 If Cells(I, 3).Value + Cells(I, 4) = 0 Then Cells(I, 3).EntireRow.Hidden = True End If Next I Application.ScreenUpdating = True End Sub
Hvis der nu er nogen der ikke giver 0, må koden heller vise dem
Sub skjulITlinier() Dim I As Long 'i er en tækker der tæller over rækkerne Application.ScreenUpdating = False For I = 1 To 2200 If Cells(I, 3).Value + Cells(I, 4) = 0 Then Cells(I, 3).EntireRow.Hidden = True Else Cells(I, 3).EntireRow.Hidden = False End If Next I Application.ScreenUpdating = True End Sub
tusind tak for det. Kan du så også lige hjælpe mig med at funktionen skal skjule alle linier som ikke inde holder en værdi jeg eksempelvis har indtastet i celle "b2"
eks. Hvis jeg indtaster "KR" i celle b2 skal den linier som ikke indeholder KR i række 3.
Sub skjulBrugerlinier() Dim I As Long 'i er en tækker der tæller over rækkerne Application.ScreenUpdating = False For I = 1 To 2200 If Cells(I, 3 ) <> [B2] Then Cells(I, 3).EntireRow.Hidden = True Else Cells(I, 3).EntireRow.Hidden = False End If Next I Application.ScreenUpdating = True End Sub
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.
