Auteur Topic: Automatisch adres weergeven (gelezen 3650 keer)

Jannie · « **Gepost op:** 11 februari 2005, 22:04:31 »

Hallo allemaal,

Ik heb op tabblad B adresgegevens van de klanten.
Op Tabblad A een sjabloon van een faktuur of brief.

Nu wil als ik bv in cel A 1 de naam van een klant ingeef dat dan automatich in cel A2 en A3 de adres gegevens komen.

Met vertikaal zoeken gaat dit NIET goed. Want ik moet op een woord zoeken.

Groeten Jannie

SoftAid · « **Reactie #1 Gepost op:** 11 februari 2005, 23:23:08 »

Hallo Jannie,

met ver.zoeken kan je ook op een woord zoeken.
zet de formule =Vert.Zoeken() in een cel en klik enter.

in de volgende foutmelding klik je op help om al de functies en mogelijkheden van de formule te zien, inclusief voorbeelden.

SoftAid

barthold · « **Reactie #2 Gepost op:** 12 februari 2005, 11:08:27 »

Jannie,

Een meer elegante methode dan vert.zoeken is gebruik maken van een combobox:
- de property ListFillRange laat je verwijzen naar de kolom met de klantnamen.
- de property LinkedCell laat je dan bv. verwijzen naar cel "A1"

Om er dan voor te zorgen dat de andere cellen worden ingevuld na het kiezen van een bepaalde klant, dien je code op te nemen in het combobox event "Private Sub JOUWCOMBO_LostFocus()", rekening houdende met de ListIndex.

Voorbeeld: Range("A2") = sheets(2).cells(2, ListIndex+1)

Succes,
Bart

SoftAid · « **Reactie #3 Gepost op:** 12 februari 2005, 12:05:41 »

Hallo Bart,

ik probeer mee te volgen, want ik bengeinteresseert in deze opgave, ik zou een heel werkblad moeten maken met dergelijke verwijzingen.
ik heb al even een Exceltje geopent en volgende uitgevoerd:

Citaat van: barthold op 12 februari 2005, 11:08:27

Een meer elegante methode dan vert.zoeken is gebruik maken van een combobox:

OK

Citaat

- de property ListFillRange laat je verwijzen naar de kolom met de klantnamen.

OK

Citaat

- de property LinkedCell laat je dan bv. verwijzen naar cel "A1"

OK

Citaat

Om er dan voor te zorgen dat de andere cellen worden ingevuld na het kiezen van een bepaalde klant, dien je code op te nemen in het combobox event "Private Sub JOUWCOMBO_LostFocus()", rekening houdende met de ListIndex.
Voorbeeld: Range("A2") = sheets(2).cells(2, ListIndex+1)

Not OK... ???Moet daar niet nog iets meer bijstaan, Bart. Hoe haal je de ListIndex in je macro?

SoftAid

barthold · « **Reactie #4 Gepost op:** 12 februari 2005, 12:59:46 »

Hi SoftAid,

Ik heb een klein voorbeeld bijgevoegd. Nadat je in de combobox een keuze hebt gemaakt en dan terug ergens in de sheet klikt, worden de cellen Naam en Voornaam aangepast...

Ik gebruik deze methode ook in mijn eigen ExWorks.be facturatie-tool...

Bart

SoftAid · « **Reactie #5 Gepost op:** 12 februari 2005, 13:30:26 »

Bedankt Bart,

Ik zal het dadelijk uitproberen.

Groeten,

SoftAid

SoftAid · « **Reactie #6 Gepost op:** 12 februari 2005, 15:13:27 »

Hallo Bart,

Ik heb je voorbeeld gevolgd, en mijn werkje er naar aangepast, met goed resultaat. Ik heb de:

Citaat

..... dan terug ergens in de sheet klikt .....

weggewerkt door :

Private Sub JOUWCOMBO_LostFocus()

te vervangen door

Private Sub JOUWCOMBO_Change()

Nu kan ik een tijdje verder, maar binnenkort hang ik weer aan jou bel

Groeten, en bedankt voor het (gratis) advies

SoftAid

barthold · « **Reactie #7 Gepost op:** 12 februari 2005, 21:46:39 »

SoftAid,

De reden waarom ik zelf toch voor het event LostFocus heb gekozen is omdat ik de combo ook gebruik om de naam van nieuwe klanten in te geven. Als je dan het event Change neemt, probeert de code de cellen aan te passen elke keer je een nieuw karakter ingeeft. Bij LostFocus gebeurt dat alleen als je de volledige naam hebt ingegeven...

Ik heb niet altijd even veel tijd om oplossing.be te volgen, maar je kan mij ook bereiken via bart@exworks.be.

Groeten,
Bart

SoftAid · « **Reactie #8 Gepost op:** 13 februari 2005, 01:15:14 »

Thanks.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics