UserForm gebruiken voor Vert.Zoeken

[Jack Nouws]

Jack Nouws,

Het is mij duidelijk ik ben aan het puzzelen.

Ik heb het al gevonden gebruik deze code maar eens. Daarmee bereik ik precies wat ik wil

Met vr gr
Jack

Private Sub CboPlantnaam_Change()
Dim MyRange             As Variant
Dim c                         As Range
Dim i                          As Long
 
Set MyRange = Workbooks("Voorraad").Worksheets("Voorraad")
    If CboPlantnaam.Text <> "" Then
        With MyRange.Range("B35:B100")
            Set c = .Find(CboPlantnaam)
            If Not c Is Nothing Then
            
            MyRange.Range("D14") = MyRange.Range("D34")
            MyRange.Range("G14") = MyRange.Range("E34")
            MyRange.Range("J14") = MyRange.Range("F34")
            MyRange.Range("D20") = MyRange.Range("G34")
            MyRange.Range("G20") = MyRange.Range("H34")
            MyRange.Range("J20") = MyRange.Range("I34")
            MyRange.Range("D16") = MyRange.Range("D" & c.Row)
            MyRange.Range("G16") = MyRange.Range("E" & c.Row)
            MyRange.Range("J16") = MyRange.Range("F" & c.Row)
            MyRange.Range("D22") = MyRange.Range("G" & c.Row)
            MyRange.Range("G22") = MyRange.Range("H" & c.Row)
            MyRange.Range("J22") = MyRange.Range("I" & c.Row)

            End If
        End With
    End If

End Sub

 

[Hoornvan]

Jack Nouws,

Ik heb het al gevonden gebruik deze code maar eens. Daarmee bereik ik precies wat ik wil

Ik zal het proberen, was al aardig op weg had het voor Prijzen al zo ver.
Nu maar hopen als je het voor de andere knoppen doet niet in de knoop kom, (had ik last van)
Suc6

 

[Jack Nouws]

Nu maar hopen als je het voor de andere knoppen doet niet in de knoop kom

het is wel zo achter elke knop moet wel een aparte Userform geplaatst worden.
Hmmm ik kan natuurlijk ook wel uitvragen met keuze rondjes
Ik denk dat ik dat eens zal proberen

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

het is wel zo achter elke knop moet wel een aparte Userform geplaatst worden

Daar ben ik nu mee bezig, anders lukt het denk ik niet.
Ik stop zo dan ga ik slapen moet er om 6 uur weer uit, ben wel met pensioen maar ben er op tijd uit.

 

[Hoornvan]

Jack Nouws,

De knoppen Prijzen en Aantallen werken.
Als ik het goed heb is dit de bedoeling?

 

[Jack Nouws]

Beste Wim

Dit is idd de bedoeling zoals ik het wilde hebben. Het was lastig te omschrijven hoe ik het wilde, maar het is dan toch gelukt.:thumb: In ieder geval bedankt voor de medewerking hiervoor.

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Dit is idd de bedoeling zoals ik het wilde hebben

Graag gedaan en ik vond het leuk en leerzaam.