Positie 'delete' knop

[Demeter]

Lezer(s),

Op zo een vrijdag middag mag men zo nu en dan even lekker rustig aan doen, nu ben ik bezig geweest om een code boven water te krijgen voor het deleten van de rij (en de onderliggende) waarop ik mijn knop heb bevestigd, mbv recorden,aanpassen en sniplets zoekn op de standaard plaatsen, maar ............. helaas dit heeft nog niks opgeleverd.

Hierbij de vraag: zou iemand van jullie mij in de jusite richting willen wijzen?

Het gaatom het volgende:
Ik heb een sheet met om de regel een opdrachten regel, op het eind van deze regel heb ik een delete knop. Als er op deze knop wordt gedrukt wordt er gevraagt of ik deze opdracht wil verwijderen, druk ik op ja dan verdwint deze regel (en onderliggende). Tevens wordt de knop waarop gedrukt is ook verwijdert (wel zo netjes). In de msbox komt de naam van de opdracht, welke in de 1e cel van de rij staat.

Alle reacties zijn vandaag welkom,
graag sniplets of verwijzingen naar webpagina's voor voorbeelden / methoden!!


Thanks,

Groet,
Ferenc

zzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzz

 

[Wigi]

Hellow

eerst: het is "code snippet" en niet "sniplet" zoals je al een tijdje denkt.

tweede:

dit werkt op voorwaarde dat je alvorens op een knop te drukken eerst een cel aanklikt in de rij waarin de knop staat (die je aanklikt).

Dus om factuur 2 te verwijderen, zet de cursor in een cel in de rij van factuur 2, en druk dan op een knop. Eigenlijk kan je volstaan met 1 knop (die je bv. bovenaan zet).

Sub Delete_project()
Dim ans As String, rij As Long
rij = Selection.Row
ans = InputBox("Wil je hier verwijderen? Typ ja of neen.", "Verwijderen?")
Application.DisplayAlerts = False
If ans = "ja" then Range("A" & rij, "A" & rij + 1).EntireRow.Delete
Range("O" & rij).Select
Application.DisplayAlerts = True
End Sub

Wigi

 

[Demeter]

.........

Thanks Wigi :thumb: ,

Deze zal ik dit weekend eens lekker gaan verbouwen.
enuhhhhhhhhh.................. wat die snippets betreft heb je helemaal gelijk, oeps.

Dank je wel en prettig weekend.


Groet,
Ferenc

 

[Wigi]

Deze zal ik dit weekend eens lekker gaan verbouwen.

Dank je wel en prettig weekend.

Ik heb de macro vereenvoudigd, zie boven dus.

Succes ermee.

Jij ook een prettig weekend, al dan niet Excel