Auteur Topic: Adres overzeten naar andere tab voor stickers (gelezen 3129 keer)

mtcnl · « **Gepost op:** 13 december 2016, 11:27:07 »

Hallo,

Ik heb een vraag is het mogelijk om van Tab 2 de gegevens over te kopiëren naar tab 1 maar dat de info netjes onder elkaar komt???

bv
naam
adres
poscode plaats

Zo dat ik die als sticker kan uitprinten voor op de envelop, wij hebben al een bestaande adres lijst, en wat ik als bij lage heb gedaan is een voorbeeld.

Groetjes
Marco Klasema

pitufo · « **Reactie #1 Gepost op:** 13 december 2016, 12:45:01 »

Gewoon met een formule misschien ?

Code: [Selecteer]

=Adres!A2&TEKEN(10)&Adres!B2&" "&Adres!C2&TEKEN(10)&Adres!D2&" "&Adres!E2

SoftAid · « **Reactie #2 Gepost op:** 13 december 2016, 14:04:16 »

Lukt mij niet met die formule

Resultaat is ook niet wat mctnl verwacht, namelijk een sticker/afdruk-adres-vorm:

naam
adres
poscode plaats

Met onderstaande macro wordt dit wel verkregen:

Code: [Selecteer]

Sub Knop1_Klikken()

laatsteNr = Sheets("Adres").Cells(Cells.Rows.Count, 1).End(xlUp).Row
Plaats = 1  ' rij in kolom 1 van "Stickers"
For tel = 1 To laatsteNr 'gekozen rij in "Adres"
Worksheets("Stickers").Cells(Plaats, 1) = Worksheets("Adres").Cells(tel, 1)
Worksheets("Stickers").Cells(Plaats + 1, 1) = Worksheets("Adres").Cells(tel, 2) & ",  " & Worksheets("Adres").Cells(tel, 3)
Worksheets("Stickers").Cells(Plaats + 2, 1) = Worksheets("Adres").Cells(tel, 4) & "   " & Worksheets("Adres").Cells(tel, 5)
Plaats = Plaats + 4 ' 3 (+ 1 lege rij ten behoeve van stickers)
Next
End Sub

Ik heb de macro met een knop in een voorbeeldbestandje gezet.

SoftAid

RedHead · « **Reactie #3 Gepost op:** 13 december 2016, 15:06:58 »

Persoonlijk zou ik kiezen voor Mailmerge (afdruk samenvoegen) met Word... Excel als database en Word als label-designer.

pitufo · « **Reactie #4 Gepost op:** 13 december 2016, 15:17:07 »

@ RedHead,
Vind ik zelf ook (voor de volle 100 %) maar soms beperk ik me eens tot het gewoon beantwoorden van de vraag...

@ SoftAid,
Lukt prima met die formule, hoor, en past netjes binnen het voorbeeld van TS (zie cel A1) . Uiteraard wel "tekstterugloop" activeren.

Groeten,
pitufo

SoftAid · « **Reactie #5 Gepost op:** 13 december 2016, 15:29:25 »

Citaat van: pitufo op 13 december 2016, 15:17:07

Uiteraard wel "tekstterugloop" activeren.

Vergeten

Mea Culpa..

SoftAid

mtcnl · « **Reactie #6 Gepost op:** 13 december 2016, 18:15:50 »

Hallo,

Bedankt zal het even testen of ik hem kan printen met de sticker printer van ons.

Het is niet mogelijk dat het in Cel komt en dan onder elkaar zeker??

Maar weer bedankt voor jullie snelle reactie en hulp

Groetjes

Marco / mtcnl

SoftAid · « **Reactie #7 Gepost op:** 13 december 2016, 18:17:27 »

Citaat van: mtcnl op 13 december 2016, 18:15:50

Het is niet mogelijk dat het in Cel komt en dan onder elkaar zeker??

Dat doen alle voorgestelde oplossingen....

SoftAid

mtcnl · « **Reactie #8 Gepost op:** 13 december 2016, 20:42:16 »

Hallo

Ik krijg de adres via macro alles in zijn eigen regel bv naam in 1 straat+ nr in 2 en poscode en plaats in 3,
en niet in 1 cel bv alles in A1 van klant 1 en A2 van klant 2 etc.

Groetjes
Marco

SoftAid · « **Reactie #9 Gepost op:** 13 december 2016, 21:03:11 »

Citaat van: mtcnl op 13 december 2016, 20:42:16

Ik krijg de adres via macro alles in zijn eigen regel bv naam in 1 straat+ nr in 2 en poscode en plaats in 3,
en niet in 1 cel bv alles in A1 van klant 1 en A2 van klant 2 etc.

Hallo Marco,

dat is opzettelijk zo gedaan, zodat je de rij-afstanden kan aanpassen aan je etiket, evenals lettertype en lettergrootte voor elke lijn afzonderlijk.

Als je alle gegevens per adres in 1 cel wilt, gebruik dan de code van Pitufo in cel "A1" van het tabblad Stickers, en trek de formule door tot het rijnummer dat overeenkomt met het aantal gebruikte rijen in je tabblad "Adres".

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics