"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Rij verwijderen als er waarde in cellen staan
- Onderwerp starter luc0s
- Startdatum
- Status
Nog even bijgewerkt naar aanleiding van het advies van HSV uit #2
Code:
Option Explicit
Dim answer As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$J$1" Then
answer = MsgBox("Weet je zeker dat je de rij wilt verwijderen?", vbYesNo + vbQuestion, "Rij Verwijderen")
If answer = vbYes Then
With ListObjects(1).DataBodyRange
.AutoFilter 1, "*" & Target & "*"
.EntireRow.Delete
.AutoFilter
End With
End If
Else
End If
Application.EnableEvents = True
End SubHet werkt geweldig.
De laatste vraag aan jullie: Ik merk (en dat ligt aan mezelf), als bijvoorbeeld een foutcode komt kan je oplossing of beëindigen klikken. Daarna krijg ik hem moeizaam met random klikken soms wel aan de gang.
(programma code weergeven; opslaan, afsluiten, excel sheet opslaan) en dan hopen dat het weer doet.
Wat is hierin de juiste volgorde wat ik moet doen.
Ik dank u eeuwig!!
De laatste vraag aan jullie: Ik merk (en dat ligt aan mezelf), als bijvoorbeeld een foutcode komt kan je oplossing of beëindigen klikken. Daarna krijg ik hem moeizaam met random klikken soms wel aan de gang.
(programma code weergeven; opslaan, afsluiten, excel sheet opslaan) en dan hopen dat het weer doet.
Wat is hierin de juiste volgorde wat ik moet doen.
Ik dank u eeuwig!!
Laatst bewerkt:
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.317
- Office versie
- Office 365
Waar zou hier een foutmelding moeten optreden?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$J$1" And Target.Count = 1 And Target.text<> "" Then
With ListObjects(1).DataBodyRange
.AutoFilter 1, "*" & Target & "*"
If MsgBox("rij(en) verwijderen?", vbYesNo) = vbYes Then .EntireRow.Delete
.AutoFilter
End With
End If
Application.EnableEvents = True
End Sub
Laatst bewerkt:
- Status
