vraag op zoeken , tonen medewerker naar uitbreiding bestelbon

Demeter · 17 jan 2007

Om de werking te begrijpen:
Maak een knop op je Userform en noem deze: butPrintGegevens
Dubbel klik op deze knop en voeg de code::

Code:

Me.PrintForm

toe.

Open je userform kies wat data en druk op de print knop.
Nu wordt je formulier uitgeprint.

Groet,
Ferenc

grema · 17 jan 2007

Ferenc

Het werkt ! ( maar dat had je al wel verwacht !)

Pruts weer even verder tot ik vastloop.

Alvast bedankt voor al de hulp.:thumb: :thumb: :thumb:

Kan nu weer rustig slapen .(effe uitrusten .)

HaHa ( grapje )

Heb ondertussen nog : Art nr -- Leverancier - Stokage plaats- Afhaalrek toegevoegd.

Misschien niet op een elegante manier , Maar het werkt .

Wigi en jij voegde : " .Offset(,24) = txb........Text " toe .

Als je nog even tijd hebt : Wat is het verschil met de eerste vesie ???

groet

grema

grema · 17 jan 2007

' k ben er weer even:

na veel aanpassingen en zuchten heb ik in bovenstaande nog een blad bijgevoegd .

Wanneer ik de bestellingen definitief wens te behandelen dacht ik

via 1 handeling alle bestellingen op een blad te krijgen gesorteerd volgens

art nr en aantal ( afkomstig van blad 1 en blad 2 ) .

' k Probeer dit al de ganse avond en dacht aan vert. Zoeken of iets dergelijks . Maar er moet iets eenvoudigers bestaan.

Men kennis rijkt nog niet zover .

jammer . Hoop dat het ooit komt.

In afwachting blijf ik jullie bestoken met vragen .

Weet iemand nog iets .

grema

Demeter · 18 jan 2007

Bekijk dit voorbeeld eens. De code staat achter Blad3.
(rechtermuisknop op tabblad van blad3 en kies voor

rogrammacode weergeven)

Code maakt eerst blad3 leeg zodat deze gevuld kan worden met de gegevens van blad 1 en 2.
Hierna wordt de data gekopieerd vanuit blad1 en daarna vanuit blad2.
Als laatste wordt kolom A gesorteerd.

Groet,
Ferenc

ps.
je kan over dit onderwerp veel vinden hier op Helpmij.
Gebruik ook eens de zoek functie op het forum

.
Tevens krijg je eerder antwoord als je je vraag in een nieuwe thread post.

grema · 18 jan 2007

Bedankt voor de reactie .
Bestudeer het even.

groet

grema

Demeter · 19 jan 2007

Om de post compleet te maken post ik hier deze code, misschien wel handig voor als men een soort gelijk formulier wil maken.
Orginele code komt van Exceltip.com, ik heb deze een klein beetje omgebouwd

.

De code om je kolommen bij elkaar op te tellen en in alfabetische volgerde weer te geven.
Je hebt hier wel een hulpblad voor nodig.

Code:

'Maak hulpblad aan met de naam: hulpdata
'Zet deze code in een nieuwe module
'plaats in UserForm_Initialize van de userform waarin je je lijst wil laden de regel:
'     Run "SorteerEnVerwijderUnieken"

Sub SorteerEnVerwijderUnieken()
Dim c As Range
Dim rListSort As Range
Dim rOldList1 As Range
Dim rOldList2 As Range
Dim strRowSource As String

Set MyRangeI = Worksheets("hulpdata")
Set MyRangeII = Worksheets("bestel_lijst")
Set MyRangeIII = Worksheets("bestel_lijst2")

'tegen flikkeren van beeldscherm
Application.ScreenUpdating = False

'Leeg de oude lijst op blad hulpdata
    MyRangeI.Range("A2:A" & MyRangeI.Range("A65536").End(xlUp).Row + 1).Clear
  
'********************Blad1
'zet het bereik welke je wilt kopieeren naar hulpdata
    Set rOldList1 = MyRangeII.Range("A4:B" & MyRangeII.Range("B65536").End(xlUp).Row)
'kopieer het bereik naar blad hulpdata
    rOldList1.Copy MyRangeI.Range("A2")

'******************* blad 2
    Set rOldList2 = MyRangeIII.Range("A4:B" & MyRangeIII.Range("B65536").End(xlUp).Row)
    rOldList2.Copy MyRangeI.Range("A" & MyRangeI.Range("A65536").End(xlUp).Row + 1)
   
MyRangeI.Activate

'Voeg kolom A en B op blad hulpdata samen
    For Rij = 2 To Range("A" & Rows.Count).End(xlUp).Row
            Cells(Rij, 1) = Range("A" & Rij) & ", " & Range("B" & Rij)
    Next Rij

'Zet het bereik welke je wilt sorteren rListSort
  Set rListSort = MyRangeI.Range("A1", MyRangeI.Range("A65536").End(xlUp))
'Sorteer het bereik
    With rListSort
             .Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
    End With
    
'Parse de adressen van de gegevens op hulpdata (maak een string (zet ze achter elkaar) van deze adressen)
    strRowSource = MyRangeI.Name & "!" & MyRangeI.Range("A2", MyRangeI.Range("A65536").End(xlUp)).Address

'LETOP !!!!!!!!!!!
'Let op de naam van je de combobox en je userform
'bestellinginfo.zoeknaam = userformnaam.comboboxnaam
'plaats de gegevens in je combobox
    With bestellinginfo.zoeknaam
      'verwijder eerst de oude lijst in je combobox
      .RowSource = vbNullString
      'Plaats nieuwe lijst
      .RowSource = strRowSource
    End With
    
'Leeg kolom B op blad hulpdata
    MyRangeI.Range("B1:B" & MyRangeI.Range("B65536").End(xlUp).Row).Clear

Sheets("zoeken").Activate

'tegen flikkeren van beeldscherm
Application.ScreenUpdating = True

End Sub

Succes.

Groet,
Ferenc

grema · 19 jan 2007

Ferenc,

merci... bedankt .

Zat echt vast probeer dit deze avond nog ( moet nog even werken )

Tot straks

grema

grema · 19 jan 2007

Ferenc ,

'k heb nog een bijkomend vraagje :

Alles ingegeven zoals in uw bijlage *** cellen voor opzoeken aangepast ***

waaneer ik nu op hulpblad klik krijg ik in kolom A de lijst van de te bestellen artiekels
en ik verondersteld dat ik via copy en zelfde formules het aantal in kolom B krijg.

( de regel voeg kolom A en B samen : heb ik weggelaten = duidelijker )

maar krijg nu foutmelding wanneer ik na Sorteren terug ga naar Bestelinfo .

Dan zoekt hij eerst op artiekel lijst afkomstig uit hulpdata ipv uit lijst met klanten op blad 1 en 2

Je vermelde ;

Code:

  'LETOP !!!!!!!!!!!
'Let op de naam van je de combobox en je userform
'bestellinginfo.zoeknaam = userformnaam.comboboxnaam

heeft het daar iets mee te maken ?? Of moet ik het elders zoeken

grema.

Demeter · 19 jan 2007

Wat de code doet is:
Eerst de data kopieren vanaf blad1 uit kolom A en B.
Hierna wordt er data gehaalt van blad 2 kolom A en B.
Deze data wortd op blad helpdata geplakt in kolom A en B.
Hierna wordt deze data samen gesmolten in Kolom A zodat er naam, referentie komt testaan welke in de combobox wordt geladen zodat er op twee kolommen kan worden gezocht mbv de zoekcode.

Volgens mij is het code plakken in module.
Hierna je intitialize code aanpassen.
En hij doet het.

Anders moet je je bestandeje uploaden dan kijk ik er naar?

Groet,
Ferenc

grema · 19 jan 2007

in bijlage dan toch maar het bestandje

dacht te sorteren op art 1 in kolom A
het aantal in kolom B

enze voor art 2 ook naar kolom A
aantal van kolom 2 ook naar kolom B

enz .

Kreeg vooreerst de artiekels en aantal gescheiden door komma in 1 kolom.

Nadien kreeg ik al artiekel en aantal in 2 kolom ( maar echter nog steeds in kolom a artiekel , aantal)

Nu heb ik niks meer

Zal ik het dan ooit eens snappen ?

versie gaat nu over de 10.3 kb

Kan ze dus nie meesturen wat nu ?,

grema · 19 jan 2007

bestand over de 106.3 KB ipv 10.3 Kb

Sorry

grema · 19 jan 2007

zal je de laatste foutmelding geven ; misschien kan je zo effe helpen ;

hier loopt het zeker al vast : 'Parse de adressen van de gegevens

Code:

'Zet het bereik welke je wilt sorteren rListSort
  Set rListSort = MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp))
      rListSort = MyRangeI.Range("F1", MyRangeI.Range("A65536").End(xlUp))
'Sorteer het bereik
    With rListSort
             .Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
        
    End With
    
'Parse de adressen van de gegevens op hulpdata (maak een string (zet ze achter elkaar) van deze adressen)
   strRowSource = MyRangeI.Artikel1 & "!" & MyRangeI.Range("E2", MyRangeI.Range("A65536").End(xlUp)).Address

Demeter · 19 jan 2007

Zoek de verschillen:

Code:

Set rListSort = MyRangeI.Range("[COLOR="red"]E1[/COLOR]", MyRangeI.Range("A65536").End(xlUp))
      rListSort = MyRangeI.Range("[COLOR="Red"]F1[/COLOR]", MyRangeI.Range("A65536").End(xlUp))

En?

grema · 19 jan 2007

je zal me als hopeloos beschouwen

maar in onderstaande zoek ik artiekel1 en artikel1aantal te plaatsen

moeten de Lsort dan identiek zijn

onderdtaand doet ie het ook niet :

Code:

'Voeg kolom A en B op blad hulpdata samen
    For Rij = 2 To Range("A" & Rows.Count).End(xlUp).Row
            Cells(Rij, 1) = Range("A" & Rij) & ", " & Range("B" & Rij)
    Next Rij

'Zet het bereik welke je wilt sorteren rListSort
  Set rListSort = MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp))
      rListSort = MyRangeI.Range("F1", MyRangeI.Range("A65536").End(xlUp))
'Sorteer het bereik
    With rListSort
             .Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
        
    End With
    
'Parse de adressen van de gegevens op hulpdata (maak een string (zet ze achter elkaar) van deze adressen)
       strRowSource = MyRangeI.Artikel1 & "!" & MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp)).Address
       strRowSource = MyRangeI.Artikel1aantal & "!" & MyRangeI.Range("F1", MyRangeI.Range("A65536").End(xlUp)).Address

Demeter · 19 jan 2007

Zie vorige post: ze moeten alle twee E1 zijn

Demeter · 20 jan 2007

Ahhh, zie dat je de regel 2 keer hebt geplakt, regel met F1 moet er uit.
Zie ook origineel stuk code.

Edit:

Code:

'Zet het bereik welke je wilt sorteren rListSort
  Set rListSort = MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp))
      [COLOR="Red"]rListSort = MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp))[/COLOR]
'Sorteer het bereik
    With rListSort
             .Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
        
    End With

moet zijn

Code:

  Set rListSort = MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp))
'Sorteer het bereik
    With rListSort
             .Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom

Waarom zou je 2x een bereik plaatsen?

grema · 20 jan 2007

fout blijft :

Code:

 '********************Blad1
'zet het bereik welke je wilt kopieeren naar hulpdata
    Set rOldList1 = MyRangeII.Range("E4:F" & MyRangeII.Range("B65536").End(xlUp).Row)
'kopieer het bereik naar blad hulpdata
    rOldList1.Copy MyRangeI.Range("A2")

'******************* blad 2
    Set rOldList2 = MyRangeIII.Range("E4:F" & MyRangeIII.Range("B65536").End(xlUp).Row)
    rOldList2.Copy MyRangeI.Range("A" & MyRangeI.Range("A65536").End(xlUp).Row + 1)
   
MyRangeI.Activate
'Voeg kolom A en B op blad hulpdata samen
    For Rij = 2 To Range("A" & Rows.Count).End(xlUp).Row
            Cells(Rij, 1) = Range("A" & Rij) & ", " & Range("B" & Rij)
    Next Rij

'Zet het bereik welke je wilt sorteren rListSort
  Set rListSort = MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp))
      rListSort = MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp))
'Sorteer het bereik
    With rListSort
             .Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
        
    End With
    
'Parse de adressen van de gegevens op hulpdata (maak een string (zet ze achter elkaar) van deze adressen)
       strRowSource = MyRangeI.Artikel1 & "!" & MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp)).Address
       strRowSource = MyRangeI.Artikel1aantal & "!" & MyRangeI.Range("E1", MyRangeI.Range("A65536").End(xlUp)).Address

Kan je het nog eens bekijken ;

' duik nu men nest in " morgen weer werkdag "

alvast bedankt

grema

grema · 20 jan 2007

Ferenc ,

krijg nu op " Hulpdata" het artikel1 in kolomA
en het aantal in kolom B

krijg nog wel volgende foutmelding :

Code:

   'Sorteer het bereik
    With rListSort
       .Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
           
    End With

a) Wat gaat er fout ??

b) Weet je ook hoe ik artikel 2 en aantalartikel2 enz..

onder artiekel 1 ( dus in kolomA) en aantal ( in kolom B) krijg.

c) Indien je alles reset op " Hulpdata " dan krijg ik elke dag de volledige lijst van te bestellen goederen ook van diegene die al besteld zijn ( wat een overstock !! ) zou dit geven. Kunnen we niet sorteren op de laatse dag van bestellingen of op de artikels in de bestelboninfo waarbij nog geen leverancier werd ingevoerd ??

't zijn weer veel vragen op 1 avond , ' k weet het , hoop dat iemand kan helpen en nog kan volgen , voor mij begint het meer op " chinees " te trekken dan op "VB" alhoewel ik in de verte toch al een lichtje begin te zien .

Blijf dus maar hopen dat het zonlicht ooit helder zal schijnen en mijn " Geest helder verlicht"

grema · 20 jan 2007

de prog.

Misschien zie je zo makkelijker wat er fout gaat en waar .

Ik duim :thumb: :thumb:

Code:

'********************Blad1
'zet het bereik welke je wilt kopieeren naar hulpdata
    Set rOldList1 = MyRangeII.Range("E4:F" & MyRangeII.Range("B65536").End(xlUp).Row)
        
'kopieer het bereik naar blad hulpdata
    rOldList1.Copy MyRangeI.Range("A2")
    
'******************* blad 2
    Set rOldList2 = MyRangeIII.Range("E4:F" & MyRangeIII.Range("B65536").End(xlUp).Row)
                  
    rOldList2.Copy MyRangeI.Range("A" & MyRangeI.Range("B65536").End(xlUp).Row + 1)
   
MyRangeI.Activate
'Voeg kolom A en B op blad hulpdata  niet samen
    For Rij = 2 To Range("A" & Rows.Count).End(xlUp).Row
            Cells(Rij, 1) = Range("A" & Rij)
            Cells(Rij, 2) = Range("B" & Rij)
    Next Rij

'Zet het bereik welke je wilt sorteren rListSort
  Set rListSort = MyRangeI.Range("E1", MyRangeI.Range("E65536").End(xlUp))

'Sorteer het bereik
    With rListSort
       .Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
           
    End With
    
'Parse de adressen van de gegevens op hulpdata (maak een string (zet ze achter elkaar) van deze adressen)
       strRowSource = MyRangeI.Artikel1 & "!" & MyRangeI.Range("E1", MyRangeI.Range("E65536").End(xlUp)).Address
       strRowSource = MyRangeI.Artikel1aantal & "!" & MyRangeI.Range("E1", MyRangeI.Range("E65536").End(xlUp)).Address

'LETOP !!!!!!!!!!!
'Let op de naam van je de combobox en je userform
'bestellinginfo.zoeknaam = userformnaam.comboboxnaam
'plaats de gegevens in je combobox
    With bestellinginfo.zoeknaam
      'verwijder eerst de oude lijst in je combobox
      .RowSource = vbNullString
      'Plaats nieuwe lijst
      .RowSource = strRowSource
    End With

Demeter · 21 jan 2007

Zo te zien haal je je kolommen door elkaar.
Met welke wil je je combobox vullen?
En welke kolommen gebruik je in je hulpdata sheet.
Zo te zien vul je hulpdatasheet kolom a en b maar wil je soreten in kolom E

Tevens kloppen je bereiken welke je "set" ook niet. kijk eens goed naar de kolommen welke jij als bereik hebt ingevoer.

Gooi anders jouw data uit je sheet en post hem hier.
scheelt een hoop geklooi.

Groet,
Ferenc

vraag op zoeken , tonen medewerker naar uitbreiding bestelbon

Verenigingslid

Gebruiker

Gebruiker

Verenigingslid

Bijlagen

Gebruiker

Verenigingslid

Gebruiker

Gebruiker

Verenigingslid

Gebruiker

Gebruiker

Gebruiker

Verenigingslid

Gebruiker

Verenigingslid

Verenigingslid

Gebruiker

Gebruiker

Gebruiker

Verenigingslid

Wij waarderen jouw privacy