Clearing values for invisible controls

[Noz2k]

Is there a way of clearing the value for all controls on a userform where visible = false?

I have a lot of textboxes, comboboxes, etc on my userform which only show up dependant on values elsewhere in the form, however if I input in 1 and then change an input in another textbox which influences thus making it invisible the value still posts to my worksheet when I submit.

 

[Ruddles]

Something along these lines:-

dim ctl as control
 
for each ctl in userform1.controls
  if typename(ctl)="TextBox" or typename(ctl)="ListBox" or typename(ctl)="ComboBox" then
    if ctl.visible=false then ctl.value=""
  endif
next ctl

(Not tested.)

 

[Noz2k]

Thank you, that works.

Problem I have now is that I have image controls which call on the 'change' events of my textboxes so when the textbox is cleared the image appears when it should be hidden.

Will work out a way around this, thank you for your help

 

[Ruddles]

Disable events before clearing each control:-

    if ctl.visible=false then
      [COLOR=red]application.enableevents=false[/COLOR]
      ctl.value=""
      [COLOR=red]application.enableevents=true[/COLOR]
    endif