Invoervelden laten wissen (voor gebruik meerdere malen)

[Janussie]

Hallo,

Totale leek op Excel gebied...... dus misschien stel ik mijn vraag ook wel verkeerd

Wat ik wilde weten: Is er in Excel een mogelijkheid "invoervelden" voor gebruik de 2de (en andere keren) te laten wissen ??

Alvast bedankt !!

groetjes,
Jan

 

[Roncancio]

Je kunt invoervelden, cellen, e.d. meerdere keren vullen en leegmaken.
Kan je een voorbeeld sturen van wat je wilt doen?

Met vriendelijke groet,


Roncancio

 

[Janussie]

@ Roncancio: Sorry, zie al dat ik mijn vraag verkeerd gesteld heb:

Moet zijn ALLE invoervelden via een opdracht wissen !!

groetjes, Jan

 

[Roncancio]

Dat kan zeker, maar wat bedoel je precies met invulvelden?
Kan je een voorbeeld bijvoegen?

Met vriendelijke groet,


Roncancio

 

[Janussie]

Bekijk bijlage Uitslagen formulier voorbeeld site.xlsx

Ik noem het maar invoervelden...... geen idee of ze zo wel heten. (Echte leek dus !)

Eigenlijk zouden de velden waar "niets" ingevuld moeten worden "beveiligd" moeten worden, zodat daar de invuller niets aan kan veranderen

 

[Roncancio]

- Selecteer de cellen die WEL veranderd mogen worden.
- Klik op je rechtermuisknop en kies voor Celeigenschappen...
- Kies daar voor tabblad Bescherming en vink Geblokkeerd uit.

Als je hiermee klaar bent, beveilig je het werkblad/bestand via Controleren op het lint.
Je kan er een wachtwoord opzetten maar deze is snel te kraken indien gewenst.

Met vriendelijke groet,


Roncancio

 

[Janussie]

@ Roncancio: Duidelijk wat betreft beveiligen !! En............. is via Excel zelf de mogelijkheid: ALLE invoervelden wissen er ?? Indien neen.... hoe krijg je dat dan voor elkaar !

Bedankt !! groetjes, Jan

 

[Roncancio]

Waar komt "nee" te staan?
Automatisch wissen gaat overigens via VBA.
Welke cellen moeten precies gewist worden?

Met vriendelijke groet,


Roncancio

 

[popipipo]

Maak er een 'alleen lezen' bestand van.
Je kunt het dan opslaan onder een andere naam en het origineel houd je in stand.

 

[Janussie]

Waar komt "nee" te staan?
Automatisch wissen gaat overigens via VBA.
Welke cellen moeten precies gewist worden?

Met vriendelijke groet,


Roncancio

Hallo Roncancio, De "invoervelden" (dus wat er ingevoerd is) zouden dan gewist moeten worden om het formulier weer in gebruik te laten nemen voor de volgende keer (en er dus geen fouten gemaakt worden, omdat er nog wat staat !)

"Alleen lezen" lijkt me gene optie (kan er niets ingevoerd worden ....; toch ?)

groetjes en bedankt alvast, Jan

 

[Roncancio]

Bij alleen lezen kan je nog steeds gegevens invoeren alleen dien je het bestand dan wel op te slaan onder een andere naam.
Hierdoor blijft het origineel onveranderd.

Met vriendelijke groet,


Roncancio

 

[Janussie]

@ Roncancio en popipipo: Dan ben ik eruit. Bedankt !!! groetjes, Jan
Had het als Opgelost gezet, maar zou toch wel héél graag de mogelijkheid hebben om met 1 knop alle invoervelden te laten wissen (dit omdat er straks toch onder de originele naam opgeslagen wordt !!)

Iemand de oplossing voor mij ?

Bedankt alvast en groetjes, Jan

 

[Janussie]

Misschien had ik bovenstaande beter in een ander bericht kunnen zetten ? Weet niet of bij verandering er een email verstuurd wordt ? groetjes, Jan

 

[Roncancio]

Code schrijven om met een knop velden leeg te maken is zo gebeurd.
Het is wel handig als je aangeeft welke cellen leeggemaakt moeten worden.

Met vriendelijke groet,


Roncancio

 

[Janussie]

@ Roncancio: Okay, dan kom ik erop terug als het Uitslagenformulier (plus alle velden) definitief is. Want anders werkt het straks niet meer, als het formulier aangepast is
Bedankt alvast !
groetjes, Jan

 

[Janussie]

@ Roncancio: Of kun je het zo maken, dat de "niet beveiligde velden" gewist worden (door een knop), want dan is het op meerdere formulieren toepasbaar. Het is maar een vraag hoor, totaal geen idee wat er wel/niet kan !

 

[VenA]

Alles kan. Ik weet niet welke velden je hebt vrijgegeven. Maar met zoiets moet het wel lukken.

Sub leegmaken()
With Sheets("Blad1")
    .Unprotect
    For Each cl In Range("B13:O16")
        If Not cl.Locked Then cl.Value = ""
    Next cl
    .Protect
End With
End Sub

Het oranje gedeelte in het voorbeeldje heb ik vrij gegeven en mag dus leeggemaakt worden het grijze gedeelte niet en blijft dus staan.

 

[Janussie]

@ VenA: Definitieve formulier(en) moeten nog komen. Maar met deze optie gaat het "Wissen" prima. Ga het proberen zelf te maken in de def. formulier(en). Als het niet lukt.... meld ik me nog een keertje

Bedankt, Jan

 

[VenA]

We zien je vraag wel verschijnen. Wil je deze nog wel even op opgelost zetten?