Hej Jeg skal have lavet en "hvis" formlen, således at hvis en celle i en markeret område i en kolon er tom, så skal hele række i regnarket slettes. hvordan gør jeg det ?
Du kan køre denne makro. Når den kører skal du udpege en celle i den kolonne hvor der ikke må være tomme celler.
Sub DeleteEmptyRows() Dim LastRow As Long Dim r As Long Dim Kol As Range Set Kol = Application.InputBox("udpeg en celle i kolonner hvor de tomme celler findes", Type:=8) LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If IsEmpty(Cells(r, Kol.Column)) Then Rows(r).Delete Next r End Sub
Bak skal du måske ikke lige have en Application.ScreenUpdating = True igen? Er der forresten nogen der har lagt mærke til at XP's Subtotal udgave også har glemt det? Så det kan ske?
palle ib -> det er ikke strengt nødvendig, da excel automatisk slår screenupdating til igen ved afslutning af en sub, men du har da ret i at det er en god skik.
bak -> Det forstår jeg ikke - Har du prøvet at køre en subtotaler i XP? Jeg havde problemer med at det ark man kørte en subtotal på ikke ville opdatere skærmen hvorfor man selv måtte køre Application.screenupdating = True for igen at kunne bruge det ark man arbejdede på. Har du prøvet den eller har de fået den rettet i en senere SR.
Jeg har desværre ikke XP længere (skiftet job), men det var ikke nogen macro men standard funktionen fra MS hvor der var fejl. Billedet blev stående og det var ikke muligt at flytte musen eller andre ting. Men når man kørte en Application.ScreenUpdating = True så var den til at arbejde med igen!
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.