Userform gebruiken in excel.

[danny147]

Beste,

Aangezien ik niet veel respons krijg bij de forum van Visual basic for Applications (VBA), probeer ik het hier maar.

Heb geprobeerd iets in elkaar te steken maar geraak er niet goed aan uit.

Als ik de userform gebruik dan zet hij getallen om in tekst, zodat de formule niet meer kan kloppen in kolom B.

Graag zou ik bij capaciteitsgroep een keuzelijst willen aanmaken maar weet niet hoe.

Bij OK moet hij de gegevens wegschrijven in kolom C,D,E en F plaatsen, dit kan ik enkel zien wanneer ik de userform afsluit. Is dit rechtstreeks te zien als ik op OK duw ?

Bij leeg moet hij de tekstvakken deleten in de userform.

Bij volgende moet hij de gegevens wegschrijven en de tekstvakken deleten in de userform.

Nu heb ik ook geprobeerd dit klaar te spelen zonder userform, maar bij verwijderen moet er nog een code komen die de te zoeken Wa.Nr. zoekt en dan waar hij zich bevind de rij te wissen.
Probleem hier is dan als je de rij wist dat de formule in kolom B niet meer klopt.

Hopelijk geraken jullie hieraan uit ?

Groetjes danny. :thumb:

 

[Roncancio]

Beste,

Aangezien ik niet veel respons krijg bij de forum van Visual basic for Applications (VBA), probeer ik het hier maar.

Heb geprobeerd iets in elkaar te steken maar geraak er niet goed aan uit.

Als ik de userform gebruik dan zet hij getallen om in tekst, zodat de formule niet meer kan kloppen in kolom B.

Graag zou ik bij capaciteitsgroep een keuzelijst willen aanmaken maar weet niet hoe.

Bij OK moet hij de gegevens wegschrijven in kolom C,D,E en F plaatsen, dit kan ik enkel zien wanneer ik de userform afsluit. Is dit rechtstreeks te zien als ik op OK duw ?

Bij leeg moet hij de tekstvakken deleten in de userform.

Bij volgende moet hij de gegevens wegschrijven en de tekstvakken deleten in de userform.

Nu heb ik ook geprobeerd dit klaar te spelen zonder userform, maar bij verwijderen moet er nog een code komen die de te zoeken Wa.Nr. zoekt en dan waar hij zich bevind de rij te wissen.
Probleem hier is dan als je de rij wist dat de formule in kolom B niet meer klopt.

Hopelijk geraken jullie hieraan uit ?

Groetjes danny. :thumb:

Kan je het bestand zippen?

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Kan je het bestand zippen?

Met vriendelijke groet,

Ziehier het zipbestandje


Groetjes Danny. :thumb:

 

[Ginger]

Danny147, Ik vond 't ook wel ff leuk om hier in te springen... Kan je er zo iets mee?
Ik ben zo vrij geweest om ff door al je codes te lopen en her en der in te korten.

Groet, Leo

 

[Roncancio]

Danny147, Ik vond 't ook wel ff leuk om hier in te springen... Kan je er zo iets mee?
Ik ben zo vrij geweest om ff door al je codes te lopen en her en der in te korten.

Groet, Leo

In je ijver ben je de combobox vergeten

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Ok.
Ik heb een aantal punten aangepast.
- Er zit nu een combobox (keuzelijst) op de userform. Kom ik op terug.
- De code is veel compacter
- De tabvolgorde is van boven naar beneden ipv kriskras door de userform
- Bij het wegschrijven verschijnen er automatisch randen om de cellen.

Je kunt userform op verschillende manieren vullen:
1. Intikken. Dit is wel omslachtig.

Private Sub UserForm_Initialize()
With Cbo_Cap_Gr
    .Clear
    .AddItem "Item 1"
    .AddItem "Item 2"
      
      ' Etc
  
End With

End Sub

2. Een bereik opgeven.
Selecteer de combobox en ga naar de eigenschappen van de combobox.
Zet in Rowsource een cellenbereik. Bijv.: =blad1!C12:C28

Opmerking: je kunt ze niet allebei tegelijk gebruiken!

Ik zie dat je ook een frame heeft gebruikt.
Dat is in dit geval niet nodig. Frames worden weinig gebruikt en zijn handig om besturingselementen te groeperen en vooral bij optionsbuttons (keuzerondjes).

Met vriendelijke groet,


Roncancio

 

[Ginger]

In je ijver ben je de combobox vergeten

Met vriendelijke groet,


Roncancio

Verrek, je hebt gelijk!:thumb: JIJ hebt trouwens óók een leuke versie neergezet.

Groet,. Leo

 

[Ginger]

2. Een bereik opgeven.
Selecteer de combobox en ga naar de eigenschappen van de combobox.
Zet in Rowsource een cellenbereik. Bijv.: =blad1!C12:C28

Roncancio, Zelf ben ik met formulieren meestal voorstander om dit soort dingen eerder bij het 'UserForm_Initialize' te zetten dan in de 'eigenschappen' van het object zelf. (voorbeeld)

Private Sub UserForm_Initialize()

    Cbo_Cap_Gr.RowSource = "C12:C28"

End Sub

Zo hou je (vind ik) beter overzicht over al je instellingen.

Groet, Leo

 

[Roncancio]

Roncancio, Zelf ben ik met formulieren meestal voorstander om dit soort dingen eerder bij het 'UserForm_Initialize' te zetten dan in de 'eigenschappen' van het object zelf. (voorbeeld)

Private Sub UserForm_Initialize()

    Cbo_Cap_Gr.RowSource = "C12:C28"

End Sub

Zo hou je (vind ik) beter overzicht over al je instellingen.

Groet, Leo

Klopt wat je zegt.:thumb:
Bovendien is jouw methode flexibeler.
Ik heb dit geschreven om aangegeven aan de TS wat onder meer de mogelijkheden zijn.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio en Ginger

Sorry voor de late reactie

Tot nu toe werkt alles naar behoren, maar voor capaciteitsgroep moet hij kiezen uit het volgende bereik "L3:AE3"

Private Sub UserForm_Initialize()

    Cbo_Cap_Gr.RowSource = "C12:C28"

End Sub

Heb "C12:C28" veranderd in "L3:AE3" , maar dit lukt niet
Heb ook een extra annuleer_button toegevoegd, waarbij ik de volgende code wil : als men op de button klikt moet hij het venster sluiten ipv op het kruisje te klikken.

Ook wil ik een code die bij het zoeken van een Wa. Nr. de rij wist waar deze Wa.Nr. zich bevind en deze dan toevoegen in de knop Verwijderen op Blad1.

Groetjes Danny. :thumb:

 

[Roncancio]

Heb "C12:C28" veranderd in "L3:AE3" , maar dit lukt niet

Ik heb een lus gemaakt die de gegevens van dit bereik erin zet, mits de cel niet leeg is.

Heb ook een extra annuleer_button toegevoegd, waarbij ik de volgende code wil : als men op de button klikt moet hij het venster sluiten ipv op het kruisje te klikken.

Is toegevoegd.

Ook wil ik een code die bij het zoeken van een Wa. Nr. de rij wist waar deze Wa.Nr. zich bevind en deze dan toevoegen in de knop Verwijderen op Blad1.

Is ook toegevoegd.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

We zijn er bijna, maar bij verwijderen van rij dmv op de knop te klikken krijg ik de volgende foutmelding:

Range("B" & WA.Row - 1).AutoFill Destination:=Range("B" & WA.Row - 1 & ":B" & WA.Row), Type:=xlFillDefault

Ook zie ik dat de formule in B niet meer werkt naar behoren.

kan je hier nog iets aan doen ?

Groetjes Danny. :thumb:

 

[Roncancio]

Beste Roncancio

We zijn er bijna, maar bij verwijderen van rij dmv op de knop te klikken krijg ik de volgende foutmelding:

Range("B" & WA.Row - 1).AutoFill Destination:=Range("B" & WA.Row - 1 & ":B" & WA.Row), Type:=xlFillDefault

Ook zie ik dat de formule in B niet meer werkt naar behoren.

kan je hier nog iets aan doen ?

Groetjes Danny. :thumb:

Bij mij werkt het nu zoals gewenst. Indien het niet zo is, dan hoor ik het graag.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Ik krijg nog steeds een foutmelding nl :

Fout 424 tijdens uitvoeren

object vereist

Ook de formule in kolom B geeft #VERW! als fout.

Groetjes Danny :thumb:

 

[Roncancio]

Beste Roncancio

Ik krijg nog steeds een foutmelding nl :

Fout 424 tijdens uitvoeren

object vereist

Ook de formule in kolom B geeft #VERW! als fout.

Groetjes Danny :thumb:

Ik verstuurde de verkeerde versie
Dit is de juiste versie.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Enkel als ik de eerste regel wis met nr 1 dan gaat het fout.

Nr 1 wordt dan Nr. en regel 2 wordt dan 1
Kan ook aan de formule liggen, nog niet bekeken.

Groetjes Danny. :thumb:

 

[Roncancio]

Beste Roncancio

Enkel als ik de eerste regel wis met nr 1 dan gaat het fout.

Nr 1 wordt dan Nr. en regel 2 wordt dan 1
Kan ook aan de formule liggen, nog niet bekeken.

Groetjes Danny. :thumb:

Dat komt door de verwijzingen naar de regel die er boven staat.
De computer kan niet rekenen met het woord nr.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Is er voor dit probleem geen oplossing ?
Als ik een rij onder Nr. toevoeg en ik verberg deze, en geef als nummer 0 of 1 in kan je dan hiermee vooruit ?

Groetjes Danny :thumb:

 

[Hoornvan]

Hallo danny147,

Nee dit heb geprobeerd en dan zet hij een 0.

Kun je die verwijzing naar Nr. Niet weg halen?
Heb je iets aan deze simpele formules?
De bovenste daar begin je mee en die er onder trek je door.
Het is maar een idee.

=ALS(C9="";"";1)
=ALS(C10="";"";B9+1)

 

[Roncancio]

Beste Roncancio

Is er voor dit probleem geen oplossing ?
Als ik een rij onder Nr. toevoeg en ik verberg deze, en geef als nummer 0 of 1 in kan je dan hiermee vooruit ?

Groetjes Danny :thumb:

Ik kan nu niet echt goed testen, maar het is zeker het overwegen waard om een rij in te voegen en te verbergen. Naar die cel kan je de formule van de cel eronder slepen.

Met vriendelijke groet,


Roncancio