een nieuw probleempje,

Ik wil een delete knop maken met ok en cancel.
deze deleteknop zorgt ervoor dat ik een volledige rij kan deleten, maar ik ehb een autonummering in kolom B bijvoorbeeld dus als ik een volledig rij delete kloppen deze nummers niet meer (formule b1+1,b2+1 enzoverder).
de nummers mogen ook niet opnieuw gerenamed worden dus als ik een record verwijder dat de nummering dezelfde blijft. bijvoorbeeld
   B           C
0001     jeroen1
0002     jeroen2
0003     jeroen3

na het deleten
0001    jeroen1
0003    jeroen3


Heeft er iemand hier een oplossing voor ??
of een code?
in VBa voor een deletknop
hij moet ook die rij deleten waar ik op de knop heb gedrukt

dank bij voorbaat
MVg
jeroen
 

Hallo,

't Is nog niet helemaal wat je zoekt, maar mss ben je hier toch al een heel eind op weg.

Deze macro zal namelijk eerst via een inputbox aan jou vragen welke rij je wil verwijderen.

Private Sub CommandButton1_Click()

Dim Rij As Integer

Rij = InputBox("Geef nummer van de rij op die je wil verwijderen")

Rows(Rij).Select
    Selection.Delete Shift:=xlUp
End Sub

Wat je er nog zal moeten zien in te bouwen is 'de rij met actieve cel verwijderen'.

Groeten,
StriKe

Hmm, 'k wil je toch ook bedanken voor 't stukje code, 't lijkt ook voor mij interessant, weeral iets bijgeleerd.

Groeten,
StriKe

bedankt

dit heeft mij goed geholpen
echt hartelijk bedankt

Heb de code aangepst zodat hij wle degelijk delete in
 
Private Sub Deletejeroen_Click()
confirm = MsgBox("Delete rij " & ActiveCell.Row & " ?", vbYesNo)
If confirm <> vbYes Then Exit Sub
ActiveCell.EntireRow.Select
Selection.Delete
End Sub


Maar nu is het zo zoals u in mijn vroge bericht kan zien werk ik met een autonemmering die telkens +1 doet als ik een rij verwijder is deze nummering fout
mss los ik het dus beter op om bij deze rij de achtergorndkleur te veranderen dus eigenlijk zo:

Private Sub Deletejeroen_Click()
confirm = MsgBox("Delete rij " & ActiveCell.Row & " ?", vbYesNo)
If confirm <> vbYes Then Exit Sub
ActiveCell.EntireRow.Select
Selection.BackColor = vbgrey
End Sub


Maar dit werkt echter niet, ik krijg steeds een error
ziet iemand de fout??

MVG
jeroen

Jeroen,

Normaal werkt die code wel degelijk zonder de rij eerst te selecteren... Welke versie van Excel gebruik je?

En wat betreft die autonummering. Waarom gebruik je hier formules? Je kan toch gewoon een "fill series" doen.?

Bart

Jeroentjes code aangepast.

Private Sub Deletejeroen_Click()
confirm = MsgBox("Delete rij " & ActiveCell.Row & " ?", vbYesNo)
If confirm <> vbYes Then Exit Sub
Cells(ActiveCell.Row+1, 2).Value = Cells(ActiveCell.Row + 1, 2).Value
ActiveCell.EntireRow.Select
With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
End Sub