Excel/VBA

[Sary]

Beste,

 

Ik heb een vraagje over mijn database in een VBA formulier. Ik wil daar, waar een materiaal nummer moet ingevuld worden, dat 2 vakjes verder bij soort deze automatisch ingevuld wordt. Ik heb een apart blad waar alles opstaat. Bvb: ik vul bij materiaal het nummer in en bij soort verschijnt er automatisch Hoeksalon..

 

Wie kan me helpen?

 

 

[emielDS]

zonder voorbeeldbetand is het voor iedereen gokken waar alles staat.

 het zal zoiets worden waarschijnlijk

=vert.zoeken(materiaal;apartblad:de hoeveelste kolom; juiste waarde)

[Sary]

Dag EmielDS,

 

 

Sorry, dacht dat ik deze erbij gestoken had.

 

Kopie%20van%20Ploegoverdracht(1).xlsm

[emielDS]

en u dacht waarschijnlijk ook dat je er uw beveiliging afgehaald had?

 

een bevieliging op een werkblad is het laatste wat u plaatst.

[bakerman]

Zal zoiets worden op voorwaarde dat op je blad Lijsten de nummers en soort overeenkomen per rij.

 

Private Sub T_03_Change()
    With BL5
        fRow = Application.Match(CDbl(T_03), .Columns(3), 0)
        If Not IsError(fRow) Then
            T_05.Value = .Cells(fRow, 5)
        End If
    End With
End Sub

 

[Sary]

13 uren geleden, emielDS zei:

en u dacht waarschijnlijk ook dat je er uw beveiliging afgehaald had?

 

een bevieliging op een werkblad is het laatste wat u plaatst.

Dag EmielDS,

 

Ik sta hier met blozende wangen, inderdaad its not done.

Mijn excuses hiervoor. Ik had gisterenavond uw mail nog gelezen en dacht snel nog dat bestand door te sturen.

Haast en spoed zeker..

 

Ik heb ondertussen nog een oplossing gekregen van Bakerman. Deze toegepast, en als ik bij materiaal een nummer ingeef komt inderdaad de soort tevoorschijn. Helaas krijg ik een foutcode. Ik post deze erbij

 

Ik heb het er nogmaals bijgestoken en nu zonder beveiliging. 1000x sorry

 

 

groetjes,

Steven

Kopie van Ploegoverdracht(1).xlsm

[Sary]

12 uren geleden, bakerman zei:

Zal zoiets worden op voorwaarde dat op je blad Lijsten de nummers en soort overeenkomen per rij.

 

Private Sub T_03_Change()
    With BL5
        fRow = Application.Match(CDbl(T_03), .Columns(3), 0)
        If Not IsError(fRow) Then
            T_05.Value = .Cells(fRow, 5)
        End If
    End With
End Sub

 

Dag Bakerman,

 

 

Deze toegepast en als ik het materiaalnummer ingeef komt zoals het moet de soort tevoorschijn. Juist krijg ik nog een foutcode bij het afsluiten.

 

Zie bijgevoegd

Kopie van Ploegoverdracht(1).xlsm

[bakerman]

Private Sub T_03_Change()
    If T_03 = vbNullString Then Exit Sub
    With BL5
        fRow = Application.Match(CDbl(T_03), .Columns(3), 0)
        If Not IsError(fRow) Then
            T_05.Value = .Cells(fRow, 5)
        End If
    End With
End Sub

 

[Sary]

16 minuten geleden, dotchiejack zei:

Sorry voor de quote., ik bedoelde de link.

Ik was bezig voor TS, maar ben deze week ziek geweest en niets gedaan met topics of vragen.

Ts heeft mij de hele week lastig gevallen met PMs en dezelfde topic gesloten in bovenstaande link.

Dan antwoord ik zo wie zo niet meer, oplossingen in PMs of Emails vind ik niet in de geest van een forum.

TS heeft dan volgende link gestart.

https://www.oplossing.be/excel/vba-codes/msg238849/?topicseen#new

en daarna hier, deze topic

Gewoon info.

 

Dag Philiep,

 

 

Oei das minder, hopelijk geen corona?

Ik dacht dat het aan mij lag en ik opdringerig overgekomen was, wat zeker niet het geval was. Maar ik begreep het niet waarom ik geen reactie meer kreeg.

 

Nu is het natuurlijk duidelijk.

Mag ik dan de aangepaste versie nog verwachten?

 

Groetjes,

Steven