*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Afdrukken samenvoegen  (gelezen 3704 keer)

0 leden en 1 gast bekijken dit topic.

Offline secuboy

  • Lid
  • *
  • Berichten: 20
Afdrukken samenvoegen
« Gepost op: 22 maart 2003, 11:37:51 »
Hello,

volgend groot probleem.

Ik heb een 1 excell document (folder) dat ik wil koppellen aan een database met 150 adressen. Iedere adres moet dus zijn folder kunnen krijgen die gepersonaliseerd is.

In word gaat dit simpel door gewoon afdruk samenvoegen te doen.  

Hoe doe ik dit in excell??  ???

groeten,

secuboy  
Gelogd
Win XP - AMD 1000MhZ - 384MB SD Ram - Telenet - IE 6.0 -

Offline @1971

  • Lid
  • *
  • Berichten: 13
  • De Oplossing!
Re:Afdrukken samenvoegen
« Reactie #1 Gepost op: 23 maart 2003, 12:19:05 »
Hallo,

En die database staat ook in excel? of gebruik je hiervoor bijvoorbeeld Acces voor?

Mag ik dan ook even vragen welke office jij gebruikt?

Groet,
Rob
Gelogd
AMD 800 MHz., 256 Ram., Windows XP.

Offline secuboy

  • Lid
  • *
  • Berichten: 20
Re:Afdrukken samenvoegen
« Reactie #2 Gepost op: 23 maart 2003, 13:53:56 »
Rob,

Origineel staat de database in acces natuurlijk maar ik kan er perfect een excell document van maken via data / externe gegevens ophalen / nieuwe databasequery.

Office versie is XP versie.

Groeten,
secuboy
Gelogd
Win XP - AMD 1000MhZ - 384MB SD Ram - Telenet - IE 6.0 -

Offline Mikael

  • Lid
  • *
  • Berichten: 22
  • The truth is out there...
Re:Afdrukken samenvoegen
« Reactie #3 Gepost op: 24 maart 2003, 08:11:39 »
Hallo Secuboy,

Is me nog niet volledig duidelijk wat je juist wilt doen?

Wil je voor elk adres een nieuw werkblad hebben, of een nieuwe folder?
Moet dit telkens geupdate worden als je een download maakt uit Acces?

Wat is juist de bedoeling?

Groeten,

Mikael
Gelogd
Windows 2000 Professsional 5.0.2195 Service pack2 - X86 Family 6 Model 8 Stepping 6 - AT/AT compatible - 261 Mb RAM - IE 6.0

Offline secuboy

  • Lid
  • *
  • Berichten: 20
Re:Afdrukken samenvoegen
« Reactie #4 Gepost op: 31 maart 2003, 18:36:34 »
Hello Mikael,

tis het volgende, ik maak het misschien veel moeilijker dan het is...    ???

Ik heb een database van laat ons zeggen 100 klanten.
Ik heb 19 folders (produktfiches)
Elke folder is 1 excell document.

Nu is het de bedoeling om naar al de klanten die 19 folders te sturen maar iedere folder zou van iedere respectievelijke klant het adres moeten bevatten.

Bv: Klant beco bvba - Folder Meubelkluizen
Dan wil ik voor klant Beco een folder kunnen maken van de meubelkluizen waar het adres van Beco links onderaan staat ingevuld.
Dit is om ervoor te zorgen dat klant beco die folder niet meer moet afstempelen met zijn adresgegevens nadat hij deze heeft afgeprint.

De enige oplossing dat ik tot nu toe heb is voor iedere folder appart de adresgegevens van Beco invullen.

Groot probleem: 100 klanten * 19 folders = 1900 excelldocumenten!!!! die ik meot aanmaken.

Hoop dat dit iets duidelijker is.  ;)

Groeten,

Secuboy
Gelogd
Win XP - AMD 1000MhZ - 384MB SD Ram - Telenet - IE 6.0 -

Offline Mikael

  • Lid
  • *
  • Berichten: 22
  • The truth is out there...
Re:Afdrukken samenvoegen
« Reactie #5 Gepost op: 31 maart 2003, 19:39:22 »
Hallo Secuboy,

De enige oplossing die ik zie is het schrijven van een macro die het werk voor jouw doet.

Ik zou wel slechts 1 Excel document aanmaken met 1 folder per werkblad.

Stel dat je dan je klanten ook in 1 excel file staan hebt, dan kan je volgende doen.  Veronderstel dat naam klant in kolom 1 staat, straat in kolom B en gemeente in C.

Je file folders staat op C drive.

Copieer dit in de klantenfile.

Sub klant()
    For i = 1 To Workbooks("klant.xls").Sheets("Sheet1").[a65536].End(xlUp).Row
        Workbooks.Open Filename:="C:\folders.xls"
        For j = 1 To Workbooks("folders.xls").Worksheets.Count
            Workbooks("klant.xls").Activate
            klantnaam = Range("a" & i).Value
            Range("A" & i & ":C" & i).Select
            Selection.Copy
            Windows("folders.xls").Activate
            Worksheets("sheet" & j).Select
            Range("A22").Select
            Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
         Next j
            fileSaveName = Application.GetSaveAsFilename(initialfilename:=klantnaam, _
            fileFilter:="Excel Files (*.xls), *.xls")
            ActiveWorkbook.SaveAs Filename:=fileSaveName
   
    'message als men Cancel drukt
    If fileSaveName = False Then
        MsgBox "De file wordt niet gesaved "
        End If
   
       
    Next i
End Sub

Groeten,

Mikael

PS: er kan wel nog wat aan verbeterd worden, maar ik had niet veel tijd.  Andere liefhebbers ?  :)
Gelogd
Windows 2000 Professsional 5.0.2195 Service pack2 - X86 Family 6 Model 8 Stepping 6 - AT/AT compatible - 261 Mb RAM - IE 6.0

Offline secuboy

  • Lid
  • *
  • Berichten: 20
Re:Afdrukken samenvoegen
« Reactie #6 Gepost op: 31 maart 2003, 23:19:45 »
Hey Mikael,

Bedankt voor je reactie. Morgen ga ik het zeker eens proberen. Ik laat wel iets weten.

By the way, iedere folder is een appart excell werkblad, zelfs een appart excell document. En die database had ik al ingeladen vanuit acces (oorspronkelijk zelfs vanuit Vero, boekhoudprogramma)

Thanks en greetings,

Secuboy
Gelogd
Win XP - AMD 1000MhZ - 384MB SD Ram - Telenet - IE 6.0 -

Offline Mikael

  • Lid
  • *
  • Berichten: 22
  • The truth is out there...
Re:Afdrukken samenvoegen
« Reactie #7 Gepost op: 01 april 2003, 07:55:13 »
Nog eens hallo,

Macro zal enkel werken als alle folders in 1 file zitten (in voorbeeld folders.xls).  Alle werkbladen worden namelijk afgelopen en op positie A22 (verander naar wens) worden de adresgegevens onder elkaar "geplakt".

Vergeet ook niet het path van de folders.xls te wijzigen.  Nu staat het op C:/.

Groeten,

Mikael
Gelogd
Windows 2000 Professsional 5.0.2195 Service pack2 - X86 Family 6 Model 8 Stepping 6 - AT/AT compatible - 261 Mb RAM - IE 6.0
Pagina's: [1]   Omhoog
 


www.combell.com