Aanvulling op bestelformulier

[Warme bakkertje]

Zo dan?

 

[HWV]

Fantasties

Rudi,

Helemaal goed ben erg blij mee.
Zoals je misschien nog weet zijn de afleveradressen , afnemers, en artikelen in een ander bestand gezet. Hoe de afnemers en de artikelen gekoppeld moeten worden dat weet ik , waarschijnlijk zal dit ook voor de afleveradressen gelden. Maar zijn er nog beplaade koppelingen waar ik rekening mee dient te houden.

In deze werkmapen staan de gegevens namelijk

Workbooks("PPP afnemer1 bewerkt.xls").Sheets("Opslag").
Workbooks("PPP artikelbestand.xls").Sheets("Opslag").
Workbooks("PPP afleveradressen.xls").Sheets("Opslag").

-Waar kan ik terug vinden dat je de beginwaarde op 1 heb gezet
- Hoe komt het dat ik nu wel meer als 20 afleveradressen kan zien in de dropdown.

Misschien met antwoord op deze vragen kan ik het misschien iets beter begrijpen allemaal.

Zowel Rudi en Daniel wil ik alvast bedanken voor hun inzet.

groet Henk

 

[trucker10]

Beste Henk , geen dank het was voor mij ook leerrijk en nu zeker met de super hulp van Rudi , kijk eens bij de macro " vinden " daar zal je een betere kijk krijgen hoe de range kan aangepast worden , vergelijk de twee bestandjes met elkaar .

 

[Warme bakkertje]

Kijk bij Sub Vinden, Worksheet_Change onderdeel Afleveringen en bij Naam>>Definieëren>>Afleveradressen

 

[trucker10]

Henk , even dit nog rechtzetten ( bijvoegen ) op je formulier bestellijst wil je Postc./ woonpl. in 1 cel dit kan met volgende aanpassing in je macro code .

'adres gegevens
'=============================
Dim wsFrom As Variant
Set wsFrom = Sheets("Afnemers").Range("A2:BL3000")
If Target.Address = [E6].Address Then
Call vinden
Application.EnableEvents = False
Range("E7").Value = Application.VLookup(Target.Value, wsFrom, 3, 0)
   If Range("E7") = "" Then Range("E7") = "Geen naam gevonden!"
   Range("E8").Value = Application.VLookup(Target.Value, wsFrom, 5, 0)
   Range("E9").Value = Application.VLookup(Target.Value, wsFrom, 6, 0) & "/" & Application.VLookup(Target.Value, wsFrom, 7, 0)
  Range("E10").Value = Application.VLookup(Target.Value, wsFrom, 10, 0)
   End If
Application.EnableEvents = True
'==============================
' afleveringen
'==============================
Set wsFrom = Sheets("Afleveradressen").Range("L2:T50")
If Target.Address = [O6].Address Then
Application.EnableEvents = False
Range("Q7").Value = Application.VLookup(Target.Value, wsFrom, 2, 0)
   If Range("Q7") = "" Then Range("Q7") = "Geen naam gevonden!"
   Range("Q8").Value = Application.VLookup(Target.Value, wsFrom, 4, 0)
   Range("Q9").Value = Application.VLookup(Target.Value, wsFrom, 5, 0) & "/" & Application.VLookup(Target.Value, wsFrom, 6, 0)
   Range("Q10").Value = Application.VLookup(Target.Value, wsFrom, 9, 0)
   End If
Application.EnableEvents = True

Suc6 ermee

 

[HWV]

Daniel,

Bedankt voor de aanvulling.
Ik wis niet dat je deze ook kon samen voegen, had het al eerder gezien dat je dat deed met vertikaal zoeken formule in de bestellijst.

Ik ga deze niet toepassen, ivm dat het bestand wordt opgeslagen als:
Naam, Plaats, debnummer, datum.
Ik verwijs het schript save naar de cellen waar deze in staan vandaar.
Toch bedankt voor het meedenken hierin.

Ik ben helemaal tevreden dus zal de topic afsluiten

Groet Henk