vraag op zoeken , tonen medewerker naar uitbreiding bestelbon

[Demeter]

Ga alle beginnende if's en afsluitende end if's na.
Bij iedere If hoort een End If.

Zoiezo kan die laatste Exit sub eruit, met de volgende regel wordt namelijk je macro al afgesloten.

Kijk ook in een werkend vb wat er anders in dan in je nieuwe versie. Zo leer er het meeste van.

Kom je er geheel niet uit post dan hier je laatste file, misschien kijk ik er vanavond no wel naar.

Groet,
Ferenc

 

[grema]

Ferenc

probleem gevonden :thumb:

Alleen : probleem bij ingeven van telefoon of gsm nr .

Indien ik beide nrs ingeef == geen probleem
Indien ik 1 nummer gsm of telefoon ingeef

Geeft dit bij zoekfunctie wel een probleem .

Alles w . opgeslagen op werkbladen 1 of 2 zoals gevraagd.

Maar vind gegevens niet terug .

Indien ik dan als getal " 01 " invul , dan geen probleem

Bij ingave ; naam ( kleiner dan 3 karakters ) wel op lijst === niet via zoekfunctie



'k zet je nogal aan het werk

Maar denk dat het voor anderen ook nuttig kan zijn .

 

[grema]

opzoeken alfabetisch op naam ???

'k heb nog een vraagje ??
Ben het nr van de vraag allang kwijt.

( hoppelijk beschouw je me niet als een hopeloos geval)

hier is i dan : " kan je bij opzoeken de lijst niet alfabetisch laten verschijnen ? "

Dit is dan veel eenvoudiger naar opzoeken toe.

Misschien kan het probleem opgelost worden via sorteren in blad 1 en blad 2 op naam volgorde . Maar ik denk dat medewerkers (of ikzelf) dan veel te gemakkelijk een fout kunnen maken en bestellingen wissen ; wat zeker niet de bedoeling is.

Weet je ook hiervoor een antwoord. ?

Alvast bedankt voor al het geduld .

grema

 

[grema]

... deze keer op m'en kouse voetjes..

Heb er nog eentje :

In de laatste versie zoek ik nog bij opzoeken : de lijst te laten verschijnen waar de
gegevens werden opgeslagen .

Heb een " Textbox " gemaakt in bestelinfo : genaamd " txtlijstblad " Deze zou moeten gelinkt geraken aan de knop op ingave blad " chbLijst1 OptionButtom " of "chbLijst2 OptionButtom " Zodanig dat ik de Textbox op blad " Bestelinfo " het blad zou terugvinden om leverancier op te zoeken en besteldata of om eenvoudig bestellingen te kunnen verwerken .

Kan dit nog of is dit te ver gezocht ??

grema

 

[grema]

de bijlage

Sorry ( vermoeid van al dat denken en puzzellen )

 

[Demeter]

Probeer deze eens.

Het op volgorde zetten wordt een gehele klus.
Maar zal er binnenkort wel naar kijken.


Groet,
Ferenc

 

[grema]

Ferenc,


Het resultaat is goed.( neen ; gewoon verbluffend) Toch moet ik zeggen dzt ik er een heel pak mee heb bijgeleerd . Deze Site " HelpMij.nl = verslavend !! Daarom ook " Help mij "

Het sorteren kan eenvoudig op de celbladen gebeuren ( al blijft het risico of een fout)

Alvast bedankt.

Test het de volgende dagen in " real " uit . ( De ultieme test)

Alvast bedankt :thumb: :thumb:

tot een dezer voor het verder verloop.

Laat je nu even uitrusten ( wel verdiend )

 

[grema]

toch weer even verder ( verslavend he) getest

bij ingave artiekels en opzoeken voor een eerste maal geen foutmelding

Bij tweede opzoeking foutmeding ivm Lijn H en andere

   If txbVoornaam.Text = "" Then
        For Each c In MyRangeII.Range("A3:A300")
            If c = stZoekenLinks And c.Offset(, 1) = stZoekenRechts Then
            txbVoornaam.Text = MyRangeII.Range("A" & c.Row)
            txbReferentie.Text = MyRangeII.Range("B" & c.Row)
            txbTelefoonnummer.Text = MyRangeII.Range("C" & c.Row)
            txbGSM.Text = MyRangeII.Range("D" & c.Row)
            txbArtikel1.Text = MyRangeII.Range("E" & c.Row)
            txbArtikel1aantal.Text = MyRangeII.Range("F" & c.Row)
            txbStokartikel1.Text = MyRangeII.Range("G" & c.Row)
            txbBOartikel1.Text = MyRangeII.Range("H" & c.Row)

en ingave :

     MyRangeII.Range("H" & c.Row) = "=F" & legeregel & "-G" & legeregel

hier loopt het nog even vast
Kijk je er de volgende dagen nog even naar

thanks

grema

 

[Demeter]

Kan je foutmelding niet herproduceren, hier werkt alles naar behoren.

Heb nog wel iets van de code aangepast.

'code aangepast zodat er altijd begin hoofdletters in je naam worden geplaatst
                MyRange.Range("A" & legeregel) = Application.WorksheetFunction.Proper(txbVoornaam.Text)
                ''code aangepast zodat er altijd begin hoofdletters in je adres worden geplaatst
                'tevens referentie aangepast naar adres :)
                MyRange.Range("B" & legeregel) = Application.WorksheetFunction.Proper(txbAdres.Text)

en

'pas hier je cel eigenschap aan van de cel in kolom W
                MyRange.Range("W" & legeregel).NumberFormat = "[$-413]dddd dd mmmm yyyy;@"

Groet,
Ferenc

ps
Toegevoegd, na believen aanpassen.
dddd dd mmmm yyyy kan je goed bekijken als je deze invoert onder speciaal in je cel eigenschappen. eerste wel een datum in de geselecteerde cel invoeren.

attachment verwijderd ivm server ruimte.

 

[grema]

Ferenc,


Efkens onder middag in de vlucht .

Indien je een nieuwe klant bijvoegd en dzn via bestelinfo opzoekt : geen probleem
Indien je infobestelling een wijziging ( vb extra artiekel) invult en knop " Gegevens opslaan gebruikt dan foutmelding in volgende lijn :

   txbBOartikel1.Text = MyRange.Range("H" & c.Row)

Daarom gisteren mijn vraag .

Groet

grema

 

[Demeter]

Code van Wigi over genomen. Is later wat makkelijker aan te passen thanks to Wigi:thumb:

We lieten bij het toevoegen een code produceren in de cel in kolom H, bij het opslaan via infobekijken werd het regelnummer weer toegepast, hierdoor liep de code spaak.

Bekijk deze eens.

Groet,
Ferenc

 

[grema]

goed he !!


de manier waarop bekijk ik deze avond (nacht wel weer) en test nu weer even verder uit.

Toch prachtig dat je dit kan realiseren . Merci allemaal :thumb:


tot horens

grema .

 

[grema]

' k heb nog gauw een rechtzetting gedaan bij annuleren van bestelling

nml : Adres kwam niet in VB ... Nu wel ( txb. kwam niet overeeen)

Tof da ik da zelf heb gevonden . Geen kritiek op uw werk. ( gewoon ter info )

groet

grema

 

[grema]

uitprint voor in geval van .... en copie naar klant toe

Ferenc en collega s

nog maar eentje ivm met" item."

Kan ik als ik de opdracht geef tot opslaan op blad1 of 2
gelijktijdig een print doen op papier ( als dubbele controle ; voorals de pc uitvalt of er verkeerd wordt opgeslagen )

Met alleen de ; txb met al de gegevens ; maar zonder de achtergrond ( teveel inkt -verbruik) .

Hierdoor kan ik ook een copi van bestelling aan klant geven.

Groet

grema

 

[Wigi]

Ferenc en collega s
...

Ik denk dat het toch ENKEL Ferenc is hoor...

Gaan jullie door tot de 100 posts hier?

Wigi

 

[grema]

Gaan jullie door tot de 100 posts hier?

Misschien wel ; t is geen streefdoel .

Het item is " te boeiend " . De antwoorden te goed .

Grema

 

[Demeter]

if chb1 = true then printopdracht sheet1
elseif chb2 = true then printopdracht sheet2
end if

zoiets dergelijks, deze code zet je dan als laatste in je formuler onder je opslaan knop.
tevens kan je hiervoor nog een msgbox plaatsen om te vragen of het blad moet worden geprint.

print opdracht kan je met de macrorecorder opnemen en bewerken na gelieve.


groet,
ENKEL Ferenc (LOL).

 

[grema]

Ferenc ( Alleen Ferenc ) zoals wigi aangaf (( de rest mag ook hoor )) .

De printopdracht via de macro recorder opnemen : Als leek moetik je vragen hoe je dit doet ? Sorryhoor . Moet nog veel bijleren !!

Groet

Grema

 

[Demeter]

Start de macro recorder (op toolbar: visual basic het rode rondje)
Selecteer het blad wat je wilt printen
print je pagina zoals je hem wilt hebben
stop de recorder (blauw vierkantje op je toolbar).

Ga nu naar de vb-editor en daar zie je in een nieuwe module de gegeneerde code.
Deze kan je bewerken zodat hij aan je eisen voldoet.


Groet,
Ferenc

 

[grema]

Ferenc ,


probeer je geduld nu even niet te verliezen aub .(ben echt nog een leek)

Maar zit weer met volgend probleempje.:

  Selecteer het blad wat je wilt printen
print je pagina zoals je hem wilt hebben

Selecteer het blad : Ik neem het blad dat op scherm verschijnt " Bestelinfo "
en dan wil ik dit printen zoals je aangeeft . Maar dit gaat niet . Ben ik dan zo verkeerd ??

Grema