• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestelbon Bakker

Status
Niet open voor verdere reacties.

stiefemb

Gebruiker
Lid geworden
29 apr 2010
Berichten
102
Hoi allemaal,

Kunnen jullie me even helpen aub?
Heb een voorbeeld bestand bijgevoegd.
In het tabblad Ingave heb ik een lijst met bestellingen.
Om later een etiket te kunnen afdrukken heb ik het resultaat nodig zoals tabblad ETIKET.
Kunnen jullie op één of andere manier deze gegevens zo laten weergeven?

Groeten
Steven
Bekijk bijlage Voorbeeld_Bakker.xlsx
 
Stief,

dat met deze formule kunnen
Code:
=SPATIES.WISSEN(ALS(B2>0;B2&" "&$B$1;"")&ALS(C2>0;" "&C2&" "& $C$1;"")&ALS(D2>0;" "&D2&" "&$D$1;"")&ALS(E2>0;" "&E2&" "&$E$1;""))

zie bijlage
 

Bijlagen

  • Voorbeeld_Bakker (hs).xlsx
    9,4 KB · Weergaven: 48
Macrootje:
Code:
Sub tsh()
    Dim Br, Bq
    Dim i As Long, j As Long
    
    Br = Sheets("Ingave").Cells(1).CurrentRegion
    ReDim Bq(1 To UBound(Br))
    For i = 2 To UBound(Br)
        Bq(i) = Br(i, 1) & "|"
        For j = 2 To UBound(Br, 2)
            If Br(i, j) <> "" Then Bq(i) = Bq(i) & Br(i, j) & " " & Br(1, j) & " "
        Next
    Next
    With Sheets("Etiket").Cells(1, 1).Resize(UBound(Bq))
        .Value = Application.Transpose(Bq)
        .TextToColumns , xlDelimited, , , , , , , 1, "|"
    End With
End Sub
 
het macro'tje of de formule?
 
Mmm, sorry, toch het macrootje gebruikt.
Jou formule was moeilijk uit te breiden.
Toch bedankt!!
 
Geen probleem, was alleen benieuwd.

Voornaamste is dat je geholpen bent :thumb:
 
Beste,

Is het misschien toch nog mogelijk om boven de namen "Naam" en boven de andere kolom "Bestelling" te krijgen.
Deze titel mag er blijven staan.

Zie niet juist waar in je macro ik dit kan aanpassen.
Steven
 
Zet deze regel net boven End With
Code:
.Resize(1, 2) = Array("Naam", "Bestelling")
 
Hier ben ik toch nog eens.
Zou toch graag het aanmaken van het tabblad "etiketten" willen wijzigen.
Is het mogelijk om in plaats van bijvoorbeeld
Piet | 2 brood 3 koek in 1 kolom

te verkrijgen
Piet | 2 brood | Piet | 3 koek in aparte kolommen?

Sorry hoor, zou iets makkelijker zijn bij het opmaken van de etiketten.
Steven
 
Lijkt mij niet logisch.

Bedenk eerst voor jezelf wat je op 1 etiket wilt hebben. Hoe worden de etiketten opgemaakt/samengesteld en afgedrukt? Als je met <F8> door de code van Timshel loopt dan kan je zien wanneer de pipeline wordt toegevoegd. Als je er meerdere wilt dan lijkt mij dat iets wat je zelf ook wel kan.

Het maken van code vinden veel helpers geen probleem maar als de vraag wijzigt (met de kennis van nu):d, dan is het handiger dat je zelf eerst bedenkt wat het moet worden.
 
Van dit excel bestand maak ik een .txt file waarmee ik een datamerge doe in indesign.
Van "pipelines" heb ik spijtig genoeg geen kaas gegeten.
Sorry.
Dus dit kan niet opgelost worden?
 
Natuurlijk kan dat, maar de meeste helpers hebben er een hekel aan dat iets gewijzigd moet worden als de vraagstelling steeds veranderd.

Code:
If Br(i, j) <> "" Then Bq(i) = Bq(i) & Br(i, j) & " " & Br(1, j) &[COLOR=#ff0000] "|"[/COLOR]
 
Werkt het niet eenvoudiger om de gegevens onder elkaar te zetten?

Je kan het ook in 1 keer naar een .txt file schrijven.
Code:
Sub VenA()
  c00 = "Naam" & ";" & "Bestelling" & vbCrLf
  ar = Sheets("Ingave").Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    For jj = 2 To UBound(ar, 2)
      If ar(j, jj) <> "" Then c00 = c00 & ar(j, 1) & ";" & ar(j, jj) & " " & ar(1, jj) & vbCrLf
    Next jj
  Next j
  CreateObject("scripting.filesystemobject").CreateTextFile(ThisWorkbook.Path & "\" & Format(Now, "Bakkertje yyyymmdd hhmmss.txt")).write c00
End Sub
 
Ben even een nieuwe post aan het voorbereiden (Bestelbon bakker 2).
Hierin ga ik de eigenlijke file mee posten.
Er zitten inderdaad enkele bugs in.
Geef me nog 5 minuten.;)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan