Auteur Topic: VBA Userform : waarde tekstvak wegschrijven naar kolom naargelang keuze combobox (gelezen 33058 keer)

BlackDevil · « **Gepost op:** 17 januari 2019, 21:00:52 »

Hallo iedereen,

Iets meer dan een maand geleden kwam ik als complete leek mbt VBA op dit forum en heb in die
periode al héél wat bijgeleerd over VBA waardoor ik nu al redelijk veel voor mezelf kan uitvissen
maar nu zit ik toch wel een beetje met de handen in het haar

.

Voor een tweede project waaraan ik werk heb ik het volgende probleem.
Ik heb een UserForm aangemaakt met tekstvakken en comboboxen.
Zo heb ik 2x een tekstvak met gekoppelde combobox waarbij de doelkolom in excel voor de waarde
van het tekstvak afhankelijk is van de keuze in de combobox.
Ik had voor het wegschrijven van de data in het UserForm naar excel hiervoor gebruik gemaakt van
het If-statement maar ofwel heb ik de verkeerde procedure gebruikt ofwel ben ik iets belangrijks
vergeten te definiëren of dergelijke maar ik krijg het dus niet voor mekaar.

Vb. van het doel :

Op het UserForm heb ik een tekstvak "hoeveelheid" en een combobox met de keuzes "dag", "week" en "maand".

In het tekstvak word een bepaalde hoeveelheid (bvb. 15) ingevuld en dan word er gekozen voor dag, week of maand.
In excel heb ik dan 3 corresponderende kolommen "/dag", "/week" en "/maand".

Wanneer er gekozen werd voor "dag" moet de waarde "15" dus in de kolom "/dag" geplaatst worden.
Wanneer er gekozen werd voor "week" moet de waarde "15" dus in kolom "/week" geplaatst worden.
enz...

Dit krijg ik dus al niet voor mekaar met mijn If-statement.

Maar het word eigenlijk nog iets ingewikkelder want de 3 kolommen moeten uiteindelijk een corresponderende waarde bevatten.
Als namelijk de kolom "/dag" via de userform word ingevuld dient via een berekeningsprocedure door vba in de kolom "/week" de gegeven waarde onder "/dag" vermenigvuldigd te worden met 7 en in de kolom "/maand" de gegeven waarde onder "/dag" vermenigvuldigd te worden met 30,52.
Als echter de kolom "/week" via de userform word ingevuld dient in de kolom "/dag" de gegeven waarde in "/week" gedeeld te worden door 7 en in de kolom "/maand" de gegeven waarde in "/week" vermenigvuldigd te worden met 4,36.
enz...

Ik zou ongelooflijk dankbaar zijn indien iemand mij hiermee op weg zou willen/kunnen helpen.

vriendelijke en dankbare groetjes,
BlackDevil

emields · « **Reactie #1 Gepost op:** 17 januari 2019, 22:12:09 »

Daar hebben ze bij microsoft de optionbutton voor ontwikkeld.
ps gelieve in het vervolg een voorbeeldbestand te plaatsen.

pitufo · « **Reactie #2 Gepost op:** 18 januari 2019, 10:01:35 »

@ emields

Citaat van: emields op 17 januari 2019, 22:12:09

Daar hebben ze bij microsoft de optionbutton voor ontwikkeld.

Wow, zó ingewikkeld. Niets op tegen anderzijds dat je het idee van een combobox verwerpt, maar ik zou dan toch eerder een listbox als alternatief voorstellen.
En op de koop toe zijn je berekeningen fout !

@ BlackDevil

Hierbij een simplistisch voorbeeldje, maar ik twijfel er niet aan dat je dat moeiteloos in je project verwerkt krijgt !

Groetjes,
pitufo

Ex-lid · « **Reactie #3 Gepost op:** 18 januari 2019, 10:50:39 »

Code kan veel korter.
Als je berekeningen maakt in textboxen voeg een lijntje code toe die een komma omzet naar een punt.
VBA kan nl niet rekenen met komma's.
Omdat jij sprak over een combobox heb ik in het 2de blad een voorbeeld gemaakt met een combobox

Ex-lid · « **Reactie #4 Gepost op:** 18 januari 2019, 10:53:06 »

Edit had het vb van pitufo nog niet gezien.

BlackDevil · « **Reactie #5 Gepost op:** 18 januari 2019, 19:32:07 »

@pitufo en @Dotchiejack,

Hartelijk dank beide voor jullie bijdrage.
Deze heeft mij enorm op weg geholpen om de code uiteindelijk volledig naar behoefte te kunnen coderen.
Ik hang mijn versie er eventjes aan zodat jullie eens kunnen zien wat ik ervan gemaakt heb en of er geen
'toekomstige' problemen in zitten aangezien de code véél groter gaat worden met veel meer userforms,
werkbladen, berekeningen, enz... alsook dat er nog een mogelijkheid moet ingewerkt worden om de records
terug op te roepen zodat ze nog kunnen bewerkt worden.

Maar so far, so good dus dit kleine probleempje is (voorlopig) opgelost.
Dus nogmaals mijn oprechte dank!

@emields,

Zoals pitufo reeds vermeldde, ik zocht een oplossing met een combobox en zeker NIET met selectievakjes
en waren bovendien ook jouw berekeningen compleet verkeerd.

Toch ook bedankt voor je bijdrage.

groetjes,
BlackDevil

Ex-lid · « **Reactie #6 Gepost op:** 18 januari 2019, 19:51:57 »

BlackDevil,
Bedankt voor de terugkoppeling.

Tip probeer uw controls( combobox,textbox) zo te benoemen
vb CT_00, CT_01 enz.
Dan kan je makkelijker loopjes maken en zal je op den duur kms code besparen.
(heel origineel CT staat voor ConTrol maar BD_00, BD_01 mag ook)
Waar staat BD nu weer voor?

BlackDevil · « **Reactie #7 Gepost op:** 18 januari 2019, 20:15:28 »

Hey Dotchiejack,

héhé, hmmm..., mja, waarvoor zou die BD nu kunnen staan?...

Bedankt voor je tip omtrent de benamingen.
Maar gemakshalve benoem ik mijn txtboxen altijd "TxtB_***" , de Comboboxen "CmbB_***", Commandbutton "CmdB_***", enz...
waar de *** staan voor afgekorte benamingen mbt hun doel. Dit om naderhand, naarmate er meer van deze boxen en buttons bijkomen,
nog makkelijk en snel te kunnen herkennen welke benaming voor welk item staat.

Maar idd, met jouw tip word de code, horizontaal dan toch, serieus ingekort

.

En wat de terugkoppeling betreft, ik vind het niet meer dan normaal dat als de voorgestelde oplossing behulpzaam is
dat dit dan ook vermeld word

. Dus graag gedaan

.

groetjes,
BlackDevil

Ex-lid · « **Reactie #8 Gepost op:** 18 januari 2019, 20:36:01 »

Een voorbeeld
code om textboxen en comboboxen te vullen uit een listbox. (LB_00 is de naam van de listbox)
dit is een code om 86 textboxen en comboboxen te vullen door in een listbox te klikken.
[codePrivate Sub LB_00_Click()
For i = 0 To 86
Me("BD_" & Format(i, "00")) = LB_00.Column(i)
Next
End Sub
Next[/code]
Ga je echter de textboxen en comboboxen benoemen volgens jou methode (TxtB__ en Cmb_) kan je de paar regeltjes vergeten.
Een grote kans dat je eindigt met 86 regels zoals

Code: [Selecteer]

TxtB_01.value =LB_00.Column(0)
Cmb_01.value=LB_00.Column(1) 
enz..

Dat was mijn bedoeling van de tip.

BlackDevil · « **Reactie #9 Gepost op:** 18 januari 2019, 21:23:21 »

Hey Dotchiejack,

Ok, eventjes verkeerd begrepen dus

...

@pitufo en @Dotchiejack,

Het "probleempje" is blijkbaar toch nog niet opgelost....

Ik blijf de foutmelding 'object vereist' krijgen ondanks ik de code op dezelfde wijze heb overgenomen
in mijn project zoals in het oplossingsbestand en in dit laatste werkt het perfect....

dit is mijn code uit mijn werkelijk project :

Code: [Selecteer]

Private Sub CmdB_Opsln_Click()

With InvoerVrbrkslst
    
    Dim Vbl As Worksheet
    Set Vbl = Sheets("Vrbrkslst")
    w = .TxtB_Bndgd_Hvlhd
    vbl_rij = Vbl.Range("A" & Rows.Count).End(xlUp).Row + 1
    
'werkblad vrbrkslst aanvullen

    Vbl.Cells(vbl_rij, 1) = .TxtB_Artkl
    Vbl.Cells(vbl_rij, 2) = .CmbB_Wnkl
    Vbl.Cells(vbl_rij, 3) = .CmbB_Gbrkr
    Vbl.Cells(vbl_rij, 4) = .CmbB_Inhd_Eenhd
    Vbl.Cells(vbl_rij, 5) = .CmbB_Srt_Eenhd
    Vbl.Cells(vbl_rij, 6) = .TxtB_Aantl_Vrpkkng
    Select Case .CmbB_Periode
        Case "dag"
            Vlb.Cells(vbl_rij, 7) = w
            Vlb.Cells(vbl_rij, 8) = w * 7
            Vlb.Cells(vbl_rij, 9) = w * 30.52
        Case "week"
            Vlb.Cells(vbl_rij, 7) = w / 7
            Vlb.Cells(vbl_rij, 8) = w
            Vlb.Cells(vbl_rij, 9) = w * 4.36
        Case "maand"
            Vlb.Cells(vlb_rij, 7) = w / 32.52
            Vlb.Cells(vbl_rij, 8) = w / 4.36
            Vlb.Cells(vbl_rij, 9) = w
    End Select
    

End With

End Sub

Private Sub UserForm_Initialize()
CmbB_Wnkl.List = Sheets("Keuzelijsten").Range("A2:A9").Value
CmbB_Inhd_Eenhd.List = Sheets("Keuzelijsten").Range("C2:C7").Value
CmbB_Srt_Eenhd.List = Sheets("Keuzelijsten").Range("E2:E11").Value
CmbB_Gbrkr.List = Array("G", "Ki", "Ky", "A")
CmbB_Periode.List = Array("dag", "week", "maand")
CmbB_Prs_Eenhd.List = Array("Stuk(s)", "Verpakking")

End Sub

De eerste 6 velden brengt hij over naar mijn tabel maar dan de eerste lijn (onder Case "dag")
bij veld 7 geeft hij in het geel weer nadat hij de hogervermelde foutmelding heeft gegeven.
Ik heb totaal geen idee waar de fout kan zitten aangezien ik nog een complete 'leek' ben betreffende VBA.

Iemand een idee waar de fout zou kunnen zitten?

vriendelijke en dankbare groetjes,
BlackDevil

Ex-lid · « **Reactie #10 Gepost op:** 18 januari 2019, 22:17:01 »

De foutmelding betekend dat je controls niet bestaan.
vb .TxtB_Artkl bestaat niet maar TxtB_Artkl wel (zonder punt)
Vervang

Code: [Selecteer]

 Vbl.Cells(vbl_rij, 1) = .TxtB_Artkl
    Vbl.Cells(vbl_rij, 2) = .CmbB_Wnkl
    Vbl.Cells(vbl_rij, 3) = .CmbB_Gbrkr
    Vbl.Cells(vbl_rij, 4) = .CmbB_Inhd_Eenhd
    Vbl.Cells(vbl_rij, 5) = .CmbB_Srt_Eenhd
    Vbl.Cells(vbl_rij, 6) = .TxtB_Aantl_Vrpkkng
    Select Case .CmbB_Periode

door

Code: [Selecteer]

 Vbl.Cells(vbl_rij, 1) = TxtB_Artkl
    Vbl.Cells(vbl_rij, 2) = CmbB_Wnkl
    Vbl.Cells(vbl_rij, 3) = CmbB_Gbrkr
    Vbl.Cells(vbl_rij, 4) = CmbB_Inhd_Eenhd
    Vbl.Cells(vbl_rij, 5) = CmbB_Srt_Eenhd
    Vbl.Cells(vbl_rij, 6) = TxtB_Aantl_Vrpkkng
    Select Case CmbB_Periode

Ik zou dit proberen, ik typ nl niet graag,jij blijkbaar wel.

Code: [Selecteer]

With Vbl
    .Cells(vbl_rij, 1).Resize(, 6).Value = Array(TxtB_Artkl.Value, CmbB_Wnkl.Value, CmbB_Gbrkr.Value, CmbB_Inhd_Eenhd.Value, CmbB_Srt_Eenhd.Value, TxtB_Aantl_Vrpkkng.Value)
End With

Ik heb liever een vbtje waar het probleem zich voordoet.
Edit: hier ook het punt wissen.

Code: [Selecteer]

Select Case .CmbB_Periode

BlackDevil · « **Reactie #11 Gepost op:** 19 januari 2019, 00:58:30 »

Hey Dotchiejack,

Citaat

De foutmelding betekend dat je controls niet bestaan.
vb .TxtB_Artkl bestaat niet maar TxtB_Artkl wel (zonder punt)
Vervang
Code: [Selecteer]
Code: [Selecteer] Vbl.Cells(vbl_rij, 1) = .TxtB_Artkl Vbl.Cells(vbl_rij, 2) = .CmbB_Wnkl Vbl.Cells(vbl_rij, 3) = .CmbB_Gbrkr Vbl.Cells(vbl_rij, 4) = .CmbB_Inhd_Eenhd Vbl.Cells(vbl_rij, 5) = .CmbB_Srt_Eenhd Vbl.Cells(vbl_rij, 6) = .TxtB_Aantl_Vrpkkng Select Case .CmbB_Periodedoor
Code: [Selecteer]
Code: [Selecteer] Vbl.Cells(vbl_rij, 1) = TxtB_Artkl Vbl.Cells(vbl_rij, 2) = CmbB_Wnkl Vbl.Cells(vbl_rij, 3) = CmbB_Gbrkr Vbl.Cells(vbl_rij, 4) = CmbB_Inhd_Eenhd Vbl.Cells(vbl_rij, 5) = CmbB_Srt_Eenhd Vbl.Cells(vbl_rij, 6) = TxtB_Aantl_Vrpkkng Select Case CmbB_Periode

Ondanks het feit dat deze codering met het "." ervoor in andere bestanden wel werkt,
zoals in mijn oplossingsbestand eerder hier in het topic bijgevoegd, heb ik het toch maar
even geprobeerd om die puntjes te verwijderen maar de fout bleef bestaan.

Toen ik dan een invoer deed met de keuze "week" toen werd bij de foutmelding de eerste regel onder
Case "week" in het geel geplaatst.

Toen ik dan even Vbl.Cells(vbl_rij, *) verving door Cells(vlb_rij, *) toen kreeg ik geen foutmelding
meer maar toen plaatste hij de eerste 6 velden in de tabel waar ze horen te staan maar de velden
waar ik dan die Vbl had weggelaten plaatste hij in mijn Start-werkblad (maar wel in de vermelde kolommen 7, 8 en 9)
Dus er is gewoon ergens iets mis met de Range-bepaling in de Select Case.
Ik probeer het uit te zoeken maar gezien ik nog maar een maand met VBA werk is het niet evident

.

Toch bedankt voor je hulp.

groetjes,
BlackDevil

EDIT : ok...

heb het probleem eindelijk gevonden

de code op zich was volledig ok, er zat gewoon een typfoutje in mijn
benamingen onder de Select Case... Er stond nl. "Vlb" terwijl het "Vbl" moest zijn

domme fout... probleem dus toch opgelost

SoftAid · « **Reactie #12 Gepost op:** 19 januari 2019, 10:23:40 »

Citaat van: BlackDevil op 18 januari 2019, 21:23:21

Code: [Selecteer]
Private Sub CmdB_Opsln_Click() With InvoerVrbrkslst '.................................... Vbl.Cells(vbl_rij, 1) = .TxtB_Artkl '..................................................... End With End Sub

Hallo BlackDevil,

Dotchiejack heeft deze fout gecorrigeerd, maar hij heeft je niet verteld waarom je een foutmelding kreeg.
mijn idee, ook als beginneling is volgende:

Je begint (een deel van) je macro met With InvoerVrbrkslst en je eindigt mooi met End With
InvoerVrbrkslst is een naam die je aan een bereik, werkblad zou moeten gegeven hebben.
Dat heb je echter niet gedaan in deze macro. InvoerVrbrkslst is dus "niets", "leeg"....
Als je in een lijn een . gebruikt vóór een adres, waarde, zoals "TxtB_Artkl" dan slaat de . bij TxtB_Artkl op het adres dat achter With staat.
Dus er staat in werkelijkheid

Code: [Selecteer]

Vbl.Cells(vbl_rij, 1) = InvoerVrbrkslst.TxtB_ArtklDaar InvoerVrbrkslst niet benoemd is en dus leeg, krijg je een foutmelding.

Mijn gedacht hoor met wat vorige code in gedachten.
Mocht ik mis zijn dan zal ik hier snel op mijn donder krijgen (maar dan verwijder ik mijn "bijdrage" snel , hé..;

)

Groetjes,

SoftAid

pitufo · « **Reactie #13 Gepost op:** 19 januari 2019, 11:14:25 »

Hoi SoftAid,

In een 'gewone' procedure zou je absoluut volkomen gelijk hebben.
Uit "Private Sub CmdB_Opsln_Click()" kan evenwel worden afgeleid dat deze code gekoppeld is aan een commandbutton, en dan mogen we er gerust in zijn, gezien de enorme vooruitgang die BlackDevil op vba-gebied reeds heeft geboekt, dat "InvoerVrbrkslst" de naam van het userform is.
Dat gaat dan natuurlijk wel goed.
Nu maar hopen dat dit volgens jou niet onder de noemer "op mijn donder krijgen" valt

Groetjes,
pitufo

SoftAid · « **Reactie #14 Gepost op:** 19 januari 2019, 12:33:28 »

Citaat van: pitufo op 19 januari 2019, 11:14:25

Nu maar hopen dat dit volgens jou niet onder de noemer "op mijn donder krijgen" valt

We reizen om te leren ....

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics