Gegevensvalidatieveld leeg of gebruiken via keuzerondje

Gijsbert1960 · 7 dec 2017

Hallo Allemaal

Ik heb een bestand waar je kan kiezen op 2 bladen welke lading bij 1 cel kun je kiezen via gegevensvalidatie. Als de keuze bv grind is dan moet de cel van gegevensvalidatie leeg zijn.

M vr gr
Gijs

Bekijk bijlage 313319

VenA · 7 dec 2017

Benoem man en paard. Wat is concreet de vraag zonder dat alle tabjes doorgenomen hoeven worden?

Cobbe · 7 dec 2017

Als ik het goed begrijp is dit een mogelijkheid.

Gijsbert1960 · 8 dec 2017

Hallo Cobbe

Ik heb het bestand gedownload en dan werkt hij wel maar na opslaan in downloads en dan openen niet meer. Hij wist dan niet inhoud cel H12 bij keuze zand of grind.met de volgende code ook bij optionbutton 53

Code:

Sub Keuzerondje26_Klikken()
[h12].Validation.Delete
[h11].Select
[h12].Select
End Sub

Ik heb via opnemen macro kunnen aanpassen in

Code:

   Sub Keuzerondje26_Klikken()
Range("H12").Select
    Selection.ClearContents
End Sub

Nu werkt het perfect. Bedankt voor Uw hulp.

M vr gr
Gijs

VenA · 8 dec 2017

Mooi dat @Cobbe jou een duwtje in de goede richting gegeven heeft.

Minimaal 2 basisfouten:
- Gebruik geen samengevoegde cellen in combinatie met VBA;
- Het gebruik van Select is overbodig en werkt vertragend. Range("H12").clearcontents doet hetzelfde.
- Repeterende code kan je beter in logica proberen te gieten.

Ipv jouw procedure CM zijn een paar regels code voldoende om hetzelfde te realiseren.

Code:

Sub CM()
  Columns("C:M").Hidden = True
  j = Range("N1")
  If j <> 6 Then Columns(j + 2).Offset(, -(j = 5)).Resize(, 1 - (j = 4) - (j = 5) * 6).Hidden = False
End Sub

ter leering ende vermaeck

Gegevensvalidatieveld leeg of gebruiken via keuzerondje

Gijsbert1960

Gebruiker

VenA

Inventaris

Cobbe

Giga Honourable Senior Member †

Bijlagen

Gijsbert1960

Gebruiker

VenA

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy