Avatar billede larsjul Novice
14. januar 2014 - 11:27 Der er 5 kommentarer

Flette liste til modtager fra regneark med stor liste

Flette liste til modtager fra regneark med stor liste

Jeg har brug for at flette en specifik liste til hver modtager. Således her link til hvordan det jeg skal bruge ser ud (forsimplede eksempler).
Her en simpel liste der skal flettes fra:
https://dl.dropboxusercontent.com/u/4538434/Excelliste%20der%20skal%20flette%20fra.xlsx

Her hvorledes resultatet skal se ud:
https://dl.dropboxusercontent.com/u/4538434/Wordeksempel%20der%20skal%20flettes%20til.docx

I virkeligheden er der ca 10.000 rækker med kunder og 240 modtagere/ejere. Dvs jeg skal have flettet til 240 dokumenter med hver deres liste over kunder...

Jeg håber der er nogen der kan hjælpe relativt hurtigt.

På forhånd MANGE tak for hjælp!.
Avatar billede finb Ekspert
14. januar 2014 - 14:33 #1
Kan du vba ?
Avatar billede larsjul Novice
14. januar 2014 - 14:45 #2
Kun meget begrænset - er meget rusten hertil :) - men jeg kan nok godt implementerer/tilpasse et script hvis det er lavet andetsteds :)

(og forventer selvfølgelig ikke at andre skulle skrive det til mig)

Vh Larsjul
Avatar billede supertekst Ekspert
14. januar 2014 - 17:43 #3
Nedenstående kode er indsat i filen med data.
Ved udførelsen "pakkes" alle rækker til en leverandør sammen i en celle i samme ark til højre.

Filen kan herefter anvendes i brevfletning helt ukompliceret.
Ved fletningen "foldes rækkerne ud" så de stort set ligner det eksemplet under opgavebeskrivelsen.

Filerne kan tilsendes - @-adresse under min profil.

Sub Test()
Dim xRæk As Integer
Dim ejer As String, kunde As String, antalRæk As Integer
    ejer = Range("A2")
    kunde = ""
    xRæk = 2
   
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 2 To antalRæk
   
        If Range("A" & ræk) = ejer Then
            kunde = kunde & Range("B" & ræk) & vbTab & Range("C" & ræk) & vbCr
        Else
            Range("E" & xRæk) = ejer
            Range("F" & xRæk) = kunde
           
            xRæk = xRæk + 1
           
            ejer = Range("A" & ræk)
            kunde = Range("B" & ræk) & vbTab & Range("C" & ræk) & vbCr
        End If
    Next ræk
   
    Range("E" & xRæk) = ejer
    Range("F" & xRæk) = kunde
   
    Columns.AutoFit
End Sub
Avatar billede supertekst Ekspert
18. januar 2014 - 09:31 #4
Noget nyt?
Avatar billede supertekst Ekspert
28. januar 2014 - 14:04 #5
Lykkedes det?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester