Flette liste til modtager fra regneark med stor liste

Kan du vba ?

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

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

Noget nyt?

Lykkedes det?