Automatisch cellen leegmanken

[Eggie]

Hallo,

ik heb een tabel in excel en wil graag een macro toevoegen zodat alle rijen met een waarde groter dan 2 in kolom H automatisch leeggemaakt worden (clear contents).

Dus de tabel staat in range A1:H100.
Als in kolom H de waarde > 2 is, dan wil ik graag dat automatisch A:H van de betreffende rijen leeg gemaakt wordt.

Heeft iemand een idee of zoiets mogelijk is?? Alvast bedankt!

Eggie

 

[etri]

Je zou dat met de volgende macro kunnen doen:

Sub ClearRowsGT2()
    Dim iRow As Integer
    Dim icol As Integer
    Dim myRange As Range
        
    Set myRange = Range("A1:H100")
    For iRow = 1 To 100
        If myRange(iRow, 8) > 2 Then
            For icol = 1 To 8
                myRange(iRow, icol) = ""
            Next icol
        End If
    Next iRow
End Sub

Succes!

 

[Eggie]

Hallo,

bedankt voor je snelle reactie!! Heb de macro getest maar bij mij wil het niet echt lukken.

Gebeurd helemaal niks nu ik deze heb toegevoegd.

Ik heb de macro als volgt toegevoegd: Private Sub Worksheet_change(ByVal Target As Range)

Dus de bedoeling is dat bij elke verandering gecheckt wordt of de waarden in kolom H > 2 is en die rij dan leeggemaakt wordt.. Enig idee wat ik fout doe??

Bedankt!

 

[etri]

Zit je in de goede worksheet te werken? Elke worksheet heeft zijn eigen Change event...
Verder zou je nog de verwijzing naar je range explicieter kunnen maken:

Set myRange = Worksheets("Sheet1").Range("A1:H100")

 

[Finch]

Een alternatieve methode:

Sub ClearAboveTwo()

   Range("A1:H100").AutoFilter field:=8, Criteria1:=">2"
   Range("A1:H100").SpecialCells(xlCellTypeVisible).ClearContents
   ActiveSheet.AutoFilterMode = False

End Sub

Evt. ook nog met meer detail voor het range object.