alidus
-
Items
8 -
Registratiedatum
-
Laatst bezocht
Inhoudstype
Profielen
Forums
Store
Berichten die geplaatst zijn door alidus
-
-
Heb e.e.a. uitgeprobeerd, doch geeft geen goede weergave. Het eerste advies was wel akkoord. Heb ik nu toegepast en het werkt.
Dank voor jullie adviezen!
-
Zal dit ebij voegen. Probeer het vandaag uit.
HD
-
Sorry ik bedoel de Combobox , dus geen commandbox.
U begrijpt hieruit dat ik wel een behoorlijke leek en beginner ben in deze macro wereld.
Nogmaals dank!
-
Dit werkt met Uw command button en de toegevoegde lijncode c.Range("a1:h1").ClearContents . Kennelijk moet ik een commandbox gebruiken ipv Tekstbox !!
Heeeeel Hartelijk dank voor de oplossing en de assistentie!
PS de opmerking over het plaatje is ook te harte genomen.
Groet Alidus
-
obv een nummer die wordt ingebracht door het volgend "plaatje", dat gekoppeld is aan "de knop Annulering inschrijving" uit de "Textbox" -
En dit plaatje heeft de macro zoals aangegeven:
Private Sub Annulering_Click()
Dim ws As Worksheet
Set ws = Worksheets("Inschrijving")Dim c As Range
Dim TeZoekenWaardeTeZoekenWaarde = Me.flightnummer.Value
Set c = Range("A1:A1000").Find(TeZoekenWaarde)'Delete gegevens
ws.Cells(c.Row, 1).Value = ""
ws.Cells(c.Row, 2).Value = ""
ws.Cells(c.Row, 3).Value = ""
ws.Cells(c.Row, 4).Value = ""
ws.Cells(c.Row, 5).Value = ""
ws.Cells(c.Row, 6).Value = ""
ws.Cells(c.Row, 7).Value = ""
ws.Cells(c.Row, 8).Value = ""MsgBox "Inschrijving geannuleerd!", vbOKOnly + vbInformation, "Inschrijving is geannuleerd!"
Me.flightnummer.Value = ""
Me.flightnummer.SetFocus
End Sub
Private Sub Sluiten_Click()
Unload Me
End SubPrivate Sub UserForm_Click()
End Sub
-
Hierbij het voorbeeld van de 2 gebruikte sheets
Via de sheet "Flightindeling" wordt via een knop "formulier inschrijven zichtbaar maken", de gegevens ingebracht naar sheet "Inschrijving".
Deze sheet zoekt in andere sheets weer de betreffende gegevens bij elkaar , om vervolgens deze weer op een bepaalde manier zichtbaar te maken in de sheet flightindeling" (De formules zijn hierbij weggelaten.)
Als je toch een inschrijving wilt annuleren, heb ik in dezelfde sheet "Flightindeling" een knop gemaakt "Annulering inschrijving" die de bewuste aangegeven macro aanstuurt, dusdanig dat de bewuste regel (in mijn voorbeeld is dit in rij 5 (rood aangemerkt), de gele cellen weer moeten "deleten".
Hopelijk heb ik e.e.a. begrijpelijk weergegeven.
Advies/reactie wordt zeer op prijs gesteld.
HG Alidus
-
Heb een VBA macro gemaakt om in een bepaalde rij van een worksheet, een aantal cellen te “deleten” (Excel 2016)
De te kiezen rij wordt via een aangemaakte module in een andere worksheet aangesproken.
Heb nu een probleem, dat er wel cellen in de bepaalde worksheet worden “ge-delete” , maar de rij nummer is niet goed gekozen.
Ik heb de indruk dat de rijnummer gekozen wordt in de sheet waar de module wordt opgeroepen.
Ik heb geen enkele ervaring met VBA, maar heb hier en daar wat gezocht op het internet en ben tot de volgende macro gekomen. Hetgeen wel enigszins werkt maar het probleem blijft houden, zoals hierboven uitgelegd.
Graag een advies hoe ik e.e.a. zou kunnen aanpassen, zodat de bepaalde cellen wel op de juiste rij worden “ge-delete”
HD Alidus
Private Sub Annulering_Click()
‘ aangeven zoekactie in worksheet
Dim ws As Worksheet
Set ws = Worksheets("Inschrijving")
‘ rijnummer vinden om de actie uit te voeren
Dim TeZoekenWaarde
Dim c As Range
Dim TeZoekenWaarde
TeZoekenWaarde = Me.flightnummer.Value
Set c = Range("A1:A1000").Find(TeZoekenWaarde)
' Delete gegevens
ws.Cells(c.Row, 1).Value = ""
ws.Cells(c.Row, 2).Value = ""
ws.Cells(c.Row, 3).Value = ""
ws.Cells(c.Row, 4).Value = ""
ws.Cells(c.Row, 5).Value = ""
ws.Cells(c.Row, 6).Value = ""
ws.Cells(c.Row, 7).Value = ""
ws.Cells(c.Row, 8).Value = ""
MsgBox "Inschrijving geannuleerd!"
Me.flightnummer.Value = ""
Me.flightnummer.SetFocus
End Sub
Private Sub Sluiten_Click()
Unload Me
End Sub
Delete inhoud worksheetcellen in een bepaalde rij via een macro
in Archief Excel
Geplaatst:
Heel goed geholpen, snel en accuraat! Bedankt!!