Alle codes in onderstaand bestand heb ik gepikt van de specialisten op dit forum.
Met de KNOP Namen op blad1 kan je een naam kiezen die moet verwijderd worden in heel het bestand.
Met de onderstaande code lukt het om de gekozen naam op blad2 te verwijderen.
PROBLEEM: Ook op blad3 moet de gekozen naam uit alle kolommen verwijderd worden.
Ook moet na het verwijderen alles met [xlShiftUp] Bewerkt worden.
Wie Kan dit oplossen?
Grtn Wieter
Met de KNOP Namen op blad1 kan je een naam kiezen die moet verwijderd worden in heel het bestand.
Met de onderstaande code lukt het om de gekozen naam op blad2 te verwijderen.
Code:
Private Sub CommandButton1_Click() 'Naam wissen
If ComboBox1.Value = "" Then
MsgBox ("Eerst een naam kiezen in de keuzelijst."), vbCritical, "Fout!"
ComboBox1.SetFocus
Exit Sub
End If
If MsgBox("LET OP ! De naam: " & ComboBox1.Value & " , wissen uit de lijst? Ben je zeker?", vbQuestion + vbYesNo, "Bevestig Wissen") = vbNo _
Then GoTo oeps
With Sheets(2)
.Range("A6").Resize(Application.CountA(.Columns(1))).Find(ComboBox1.Value).EntireRow.Delete xlShiftUp
.Range("A36").EntireRow.Insert
End With
With Sheets(3)
'Naamkeuze in de ComboBox, moet uit alle kolommen op Blad 3 verwijderd worden
'.Range("A2").Resize(Application.CountA(.Columns(1))).Find(ComboBox1.Value).Delete xlShiftUp
End With
oeps:
Unload Me
End Sub
Ook moet na het verwijderen alles met [xlShiftUp] Bewerkt worden.
Wie Kan dit oplossen?
Grtn Wieter