VBA script gevraagd voor gegevens laden in userform en getalformaat

Status
Niet open voor verdere reacties.
J

jan excel

Gebruiker
Lid geworden
4 mrt 2007
Berichten
437
Hallo Experts,

Ik heb twee vragen.

1. hoe gegevens zichtbaarmaken in textboxen en ComboBox en CheckBoxen aanvinken
2 gegevens vanuit TextBoxen als getal formaat wegschrijven.

Bijlage toegevoegd ter verduildelijking.

Alvast bedankt toppers!!
Jan Evers
 

Bijlagen

  • voorbeeld1.1.xlsm
    22,3 KB · Weergaven: 53
Dag Jan,

Kijk eens of dit is wat je zoekt:
 

Bijlagen

  • Jan Excel .xlsb
    25,5 KB · Weergaven: 52
Hoi SjonR,

Dit is bijna goed, getal Format werk goed en gegevens spreatsheet zijn in de Textboxen en combobox terug te lezen.
Nog één punt werkt niet, namelijk ik zou ook graag de dagen die staan vermeld in kolom E, dat die dagen ook automatisch zijn aangevinkt in in de Checkboxen, is dit mogelijk.
Als hiervoor geen oplossing is valt mee te leven !

in ieder geval bedankt voor de codes.

groet,
Jan
 
Dat zal ook wel moeten lukken, maar dat was me ontgaan. Tenzij iemand me voor is, kijk ik er morgen effe naar. Ben nu niet bij PC in de buurt.
 
Zo?
Code: 
Private Sub UserForm_Initialize()
 ComboBox1.List = Split("kuipers|nijboer|ten broeke|boerhof|van essen|", "|")
 
 With Sheets("Blad1")
    sn = .Range("E4").CurrentRegion.Offset(1).SpecialCells(2)
      For Each it In sn
        Me("CB" & it).Value = True
      Next
    TextBox1 = .Range("G4").Value
    TextBox2 = .Range("G6").Value
    ComboBox1 = .Range("G8").Value
 End With
End Sub
 
Dan kan je die variabele sn wel weg laten:
Code: 
For Each it In .Range("E5").CurrentRegion.Offset(1).SpecialCells(2)
 
Vraagje @ edmoor,
heeft het enig voorkeur waarom jij start bij range("e5") ?
 
Omdat daar die dagnamen beginnen.
 
Maar ik had niet de juiste aanpassing geplaatst, dus je vraag was niet onnodig ;)
Dit moet het zijn:
Code: 
For Each it In .Range("E5:E11").SpecialCells(2)
 
Juist ja, ik maak zelf snel gebruik van de currentregion methode maar ik had beter naar de aanpassing van SjonR moeten kijken.
 
En iedere dag leren we allemaal weer :D
 
Daar zeg je wat.

Met een betere struktuur van het werkblad en van het userform kun je je een hoop VBA-code besparen.
Daarmee wordt de code overzichtelijker, minder luisgevoelig en gemakkelijker te onderhouden/aan-te-passen.
 

Bijlagen

  • __out of the box snb .xlsb
    22,9 KB · Weergaven: 53
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan