door selectie in combobox andere berekening

[Doohan]

Deze beginner heeft weer een vraag. voorbeeld in bijlage

Dit bestand heeft op blad 1 een knop om de formulieren te starten.(zeeeer groot)
De vraag gaat over de combobox en textbox op frmEXHAUST. de txtbox plaatst na het aanklikken van de butBerekenExhaust een waarde in cel C12 op sheet EXHAUST dit is nu altijd m3/min. nu wil ik dmv de combobox andere eenheden kunnen kiezen. En als ik daarn op butBerekenExhaust zou deze dit terug moeten rekenen naar m3/min een deze waarde neer moeten zetten in cel C12 op sheet EXHAUST.

Hopende duidelijk genoeg geweest te zijn wacht op uw antwoord. Bekijk bijlage Engineering_Book.xlsm

m.vr.gr.Martin

 

[HSV]

Bedoel je het zo?

In een standaard module:

Option Explicit
Public GasFlow As Double

Verander in frmExaust:

Private Sub butBerekenExhaust_Click()
    
    'Bereken Button voert berekening uit van werkblad EXHAUST
    'De ingevulde txtboxen vullen bepaalde cellen op blad EXHAUST
    'Een aantal labels haalt info uit bepaalde cellen op blad EXHAUST
    
    Worksheets("EXHAUST").Range("c12") = Format(GasFlow, "0.00")
    
End Sub

De cases in frmExaust.

Private Sub ExhaustFlowCombox_Change()
  With Sheets("EXHAUST")
        Select Case ExhaustFlowCombox.Text
      
            Case "m3/s"
              GasFlow = txtExhaustGasFlow * 60
            Case "m3/min"
              GasFlow = txtExhaustGasFlow
            Case "m3/hr"
              GasFlow = txtExhaustGasFlow / 60
              
        End Select
     End With
End Sub

 

[Doohan]

Bedankt Harry,

Het werkt maar nog niet perfect je moet nl. 1st de textbox invullen want als je 1st de eenheid selecteerd krijg je fout 13. En hij doet het maar 1 malig.

 

[Doohan]

Sorry Harry,

Het werkt wel, mijn pc'tjes hing gewoon.
Dit gaat me een eind op weg helpen.

m.vr.gr.
Martin

 

[HSV]

Wellicht werkt dit beter Martin.
Enige codes aangepast.
Ook module1.

 

[Doohan]

bedankt harry,

Het werkt beter, maar op 1 of andere manier is het toch een lapmiddel. Ik heb dit soort interfaces wel vaker gezien maar het is me nooit opgevallen dat ik meldingsteksten kreeg in dat soort gevallen "vul eerst het tekstvak in. Maar ik ben zeer tevreden bedankt.
Echter nog 1 klein dingetje dan. stel ik had 1st 200 m3/min en bereken geklikt niks aan de hand maar als je daarna enkel het getal in de tekstbox wijzigt en weer op bereken klik dan verandert er niks meer op werkblad exhaust.

Als dit euveltje weg is, dan zit hier een zeer tevreden persoon.

m.vr.gr.
Martin

 

[HSV]

Dag Martin,

Code aangepast.

 

[Doohan]

Dank je Harry,

Ik heb je code overgenomen en mijn combobox is weg. Geeft niks ik heb nog een back-up. Ik vermoed dat jij je antwoorden niet checkt mbt resulaat.
Dus ik zal Engineering Book2 maar negeren. Ik hoop nog wel dat je mijn euveltje wil helpen verhelpen.

groet
Martin

 

[HSV]

Uiteraard check ik, en ik hoop dat het wederzijds is.
Pas als je de textbox vult, verschijnt je combobox.

 

[Doohan]

sorry ik was in paniek. Het werkt perfect. Bedankt
Lijntje kan gesloten worden. Als je een meisje was zou ik je kussen.
groet Martin

 

[HSV]

Graag gedaan Martin.
Het als opgelost zetten kan ik niet voor je doen.