probleemp met if-then statement

[vovo]

Hallo,
ik moet eerlijk bekennen dat ik een absolute "leek" ben wat dit aangaat....
Ik probeer om een oplossing te vinden voor volgend probleempje:
wanneer het een franstalige klant is, moet kolom B, D &F gehide worden.
Echter ik kom er hier niet helemaal uit.
Kan er iemand helpen aub.

thx

Sub taalkeuze()
If MsgBox("Is het een Nederlandstalige klant?", vbYesNo, "Taalkeuze") = vbYes Then
Sheets("VOORSTEL2").Select
Columns("C:E").Select
Selection.EntireColumn.Hidden = True
ElseIf vbNo Then
Sheets("VOORSTEL2").Select
Column("B").Select
Selection.EntireColumn.Hidden = True

End If
End Sub

 

[snb]

Vermijd select en activate in VBA-ode.
Een one-liner is voldoende:

Sub taalkeuze()
  Sheets(1).columns(iif(MsgBox("Is het een Nederlandstalige klant?", vbYesNo, "Taalkeuze") = vbYes,"C:E","B")).hidden=true
End Sub

 

[vovo]

Vermijd select en activate in VBA-ode.
Een one-liner is voldoende:

Sub taalkeuze()
  Sheets(1).columns(iif(MsgBox("Is het een Nederlandstalige klant?", vbYesNo, "Taalkeuze") = vbYes,"C:E","B")).hidden=true
End Sub

Bedankt voor de tip maar mijn kolommen, verdwijnen niet ?!

 

[snb]

Je kijkt niet in het goede werkblad.
Of pas in de code de werkbladnaam aan.

En natuurlijk is dit de volledige code:

Sub taalkeuze()
  Sheets(1).Columns("B:E").Hidden = False
  Sheets(1).Columns(IIf(MsgBox("Is het een Nederlandstalige klant?", vbYesNo, "Taalkeuze") = vbYes, "C:E", "B")).Hidden = True
End Sub

 

[vovo]

Je kijkt niet in het goede werkblad.
Of pas in de code de werkbladnaam aan.

En natuurlijk is dit de volledige code:

Sub taalkeuze()
  Sheets(1).Columns("B:E").Hidden = False
  Sheets(1).Columns(IIf(MsgBox("Is het een Nederlandstalige klant?", vbYesNo, "Taalkeuze") = vbYes, "C:E", "B")).Hidden = True
End Sub

Prima !
Bedankt en weeral iets bijgeleerd.
Ik geraak echt gefascineerd door macro en VBA toestanden. Heb jij geen goede referenties (tutorials) waar ik nog wat kan van bijleren ?

Groeten
Eddy

 

[snb]

Boeken: Guy Hart-Davis VBA in Excel/Word etc.

tutorials etc. kijk eens hier. Voor de bijlagen dien je je eerst te registreren. Kijk bijvoorbeeld naar de T&T's van snb.

 

[vovo]

Boeken: Guy Hart-Davis VBA in Excel/Word etc.

tutorials etc. kijk eens hier. Voor de bijlagen dien je je eerst te registreren. Kijk bijvoorbeeld naar de T&T's van snb.

Bedankt SNB !

Ben bij deze al geregistreerd.

Beste groeten.