Rittenschema met userform.....(excel)

[Takelwagen]

Ben druk bezig om ervoor te zorgen dat bepaalde waarde die moeten worden ingevuld op ons ritten schema veel sneller worden ingevuld. Dit wordt nu zonder userform gedaan en het is enorm tijd rovend. De mensen die deze transport gegevens invoeren zijn niet bepaald handig in excel en het moet dus éénvoudiger en sneller.

Er moet een horizontale lijn worden geselecteerd aan de hand van combobox1 en 2
Met deze gegevens kan denk ik wel de juiste horizontale rij worden geselecteerd.

Dan moet vervolgens de waarde (in de gele cellen in de juiste horizontale rij) ingevuld worden die wordt ingevoerd in de andere text en comboboxen. Die alles moet verwerkt worden via de O.k button op het userform.

Enkele rijen zijn verborgen en er is een tabblad waar de lijsten staan die wordt gebruikt door combobox 1&2

Ik heb een voorbeeld bestand bijgevoegd om te laten zien wat de bedoeling is.


Iedereen bedankt....

 

[Takelwagen]

Is er dan helemaal niemand???

Ben ondertussen bezig geweest met de autofilter maar daar wordt het allemaal niet sneller op...Is er dan niemand die me kan helpen?

 

[gast0667]

Ben ondertussen bezig geweest met de autofilter maar daar wordt het allemaal niet sneller op...Is er dan niemand die me kan helpen?

Probeer eens onderstaande code in te vullen önder "CommandButton1_Click":

Private Sub CommandButton1_Click()

vRitnr = ComboBox1.Value
vFiliaal = ComboBox2.Value

With Worksheets(1).Range("B1:B18")
Set a = .Find(vRitnr, LookIn:=xlValues, lookat:=xlWhole)
    If Not a Is Nothing Then
        With Worksheets(1).Range("F1:F18")
        Set b = .Find(vFiliaal, LookIn:=xlValues, lookat:=xlWhole)
            If Not b Is Nothing Then
                vRij = b.Row
                Worksheets(1).Range("H:H").Cells(vRij).Value = ComboBox3.Value
            End If
        End With
    End If
End With

Unload Me
End Sub

Je moet e.e.a. nog even verder uitbreiden naar de andere 'gele' cellen.
Bedoel je dit ?

 

[Takelwagen]

Masterlijk...

Bedankt ik ga het eens even testen als ik thuis ben. Nogmaals bedankt