Leveringsbon op basis van gegevens in artikellijst

[timboth]

Hoi,

in mijn zoektocht op het net naar hulp bij mijn probleem kwam ik op dit forum terecht en ben echt verbaasd over de hoeveelheid kennis van de mensen hier en daarmee ook eigenlijk gelijk over de hoeveelheid mogelijkheden van het programma!

wat ik probeer uit te zoeken is het volgende:

ik maak op de zaak altijd een bon als ik wat goederen lever en hierop vul ik dan de prijzen in zoals ze staan in mijn lijst met artikelen die ik verkoop, maar dit is niet aan elkaar gekoppeld en als ik dan de laatste bon pak om daarvan een nieuwe te maken uit het mapje leveringen bij die klant, en in de tussentijd is er iets gewijzigd aan dat artikel, bv hieveelheid, prijs, etc... dan staat dat dus nergens op die bon...

Wat ik zou willen maken is het volgende:

in mijn kolom artikelnummer typ ik het betrefende nummer en dan haalt ie de overige in te vullen gegevens uit het bestandje artikellijst, zodat verpakking, prijs, omschrijving altijd up-to-date is wanneer ik een afleverbon maak.

Is dit mogelijk in excel? het zijn tenslotte 2 verschillende bestandjes dus hoe communiceren die met elkaar?

ik hoop dat iemand deze vraag zou kunnen en willen beantwoorden, dan kan ik weer verder met deze voor mij grote uitdaging.

Ik zal de 2 huidige bestandjes bijvoegen,

vriendelijke groeten,

Tim Both

 

[Joske2000]

Dat kan met de formule vert.zoeken

=VERT.ZOEKEN(A15;'[Artikellijst HelpMij.xlsx]2010'!$B$1:$K$16;2;0)

 

[danny147]

Beste timboth

Met de formule van Joske2000 gaat dit lukken, MAAR hou er rekening mee dat beide bestanden moeten openstaan.

Groetjes Danny. :love:

 

[Haije]

alles in een

of je zet alles in 1 bestand

 

[Warme bakkertje]

Of met een stukje VBA
Onderstaande in de bladmodule van Leveringsbon Blad1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A15:A24]) Is Nothing Then
        If Not BookOpen("Artikellijst.xlsx") Then Workbooks.Open ThisWorkbook.Path & "\" & "Artikellijst.xlsx"
        With Workbooks("Artikellijst.xlsx").Sheets("2010").Columns(2)
            Target.Offset(, 2) = .Find(Target, , xlValues, xlWhole).Offset(, 1).Value
            Target.Offset(, 3) = .Find(Target, , xlValues, xlWhole).Offset(, 3).Value
            Target.Offset(, 4) = .Find(Target, , xlValues, xlWhole).Offset(, 4).Value
        End With
    End If
End Sub

Onderstaande in een standaardmodule

Function BookOpen(wbName As String) As Boolean
'BookOpen("MyBook.xls")
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(wbName)
BookOpen = Not (Err.Number > 0)
End Function