afdruk samenvoegen met meerdere data uit excel

[daanblaauwgeers]

Hallo,

Ik heb de volgende vraag:

Via een e-mail wil ik door een aantal personen gegevens laten controleren. Dit heb ik vaker gedaan, alleen nu verschilt het aantal te controleren gegevens per persoon. Zo kan persoon 1 6 regels in excel hebben om te controleren en persoon 2 slechts 3. waar ik ervaring mee heb is dat elke persoon slechts 1 regel heeft. Ik heb een bijlage als voorbeeld toegevoegd. In kolom 1 staat de geadresseerde. In kolom 2, 3 en 4 staan gegevens die gecontroleerd moeten worden. In het voorbeeld is dit bij persoon 1 4 regels en bij persoon 2 5 regels. Onderaan staan de voorbeelden zoals ik ze graag per e-mail zou willen versturen. De vraag is of dit kan en zo ja wat ik daarvoor in excel moet doen (of eventueel in word of outlook). Alvast bedankt voor het meedenken!!!!!!!!!!

Nb. Ik weet niet goed of deze vraag thuishoort in forum excel, word of outlook, maar omdat het bestand waar de gegevens uit komen excel is heb ik gekozen voor excel.

Mvg,

Daan

 

[spaarie]

Probeer het zo eens?
Let wel dat ik het 2e blad als 'hulp' blad gebruikt heb en niet dat je het test in een bestand waar hier data staat...

Sub Spaarie()
    Dim uniek As New Collection
    With Sheets(1)
        On Error Resume Next
        For Each i In .Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
            uniek.Add i.Value, CStr(i.Value)
        Next
        On Error GoTo 0
        For Each w In uniek
            .Cells.AutoFilter 1, w
            .Range("A1:D" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets(2).Range("A1")
            
            tabel = "<table border=1 bgcolor=#FFFFF0#>"
            b = Sheets(2).Cells(1).CurrentRegion
            For j = 1 To UBound(b)
                tabel = tabel & "<tr><td>" & Join(Application.Index(b, j), "</td><td>") & "</td></tr>"
            Next
            t = t & "</table><P></P><P></P>"
            With CreateObject("Outlook.Application").CreateItem(0)
                .To = ""
                .Subject = "Controle"
                .HTMLBody = "Hallo " & w & ",<br><br>" & _
                            "Graag onderstaande controleren.<br><br>" & _
                            tabel
                .Display 'of .Send
            End With
            Sheets(2).Rows("1:" & Sheets(2).Rows.Count).Delete xlUp
        Next
        .UsedRange.AutoFilter
    End With
End Sub

 

[snb]

Sub M_snb()
   sn= Sheet1.Cells(1).CurrentRegion.offset(1)
   
   y = sn(1, 1)
   For j = 1 To UBound(sn)
      If sn(j, 1) = y Then
        c00 = c00 & "," & j
      Else
         sp = Application.Index(sn, Application.Transpose(Split(Mid(c00, 2), ",")), Array(2, 3, 4))
         c00 = "<table><tr>"
         For jj = 1 To UBound(sp)
            c00 = c00 & "<td>" & Join(Application.Index(sp, jj, 0), "</td><td>") & "</td></tr>"
         Next
         
         With CreateObject("outlook.application").createitem(0)
             .To = sn(j - 1, 1)
             .Subject = "controle"
             .htmlbody = c00 & "</table>"
             .send
         End With
         y = sn(j, 1)
         c00 = "," & j
      End If
   Next
End Sub

 

[daanblaauwgeers]

Uhhh spaarie en snb, bedankt voor jullie reactie, maar nu voel ik me echt een leek . Ziet er uit als programmeertaal en doen jullie dan waarschijnlijk in VBA? Ik heb hier totaal geen kaas van gegeten. Ik heb wel even in VBA gekeken (alt f11) en daar jullie reacties ingevoerd, en dan op uitvoeren gedrukt (kreeg foutmelding 424 object vereist). Zoals gezegd geen verstand van. Zeggen jullie dan vanaf blijven of zijn er andere opties?

Alvast bedankt.

MVG,
Daan

 

[spaarie]

Knop toegevoegd en de module aan vast geknoopt

 

[daanblaauwgeers]

Ga ernaar kijken, dankjewel spaarie!!!!!!