invullen aanvullende informatie naar email en toekennen opleiding op naam

[HSV]

Kleine aanpassingen gedaan op de bladnamen in de code.

Sub hsv()
Dim sv, i As Long
With Sheets("BHV registratieformulier Q1")
sv = .Range("a13", .Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Value2
  For i = 1 To UBound(sv)
    If sv(i, 2) <> "" And sv(i, 8) = "" Then
     sv(i, 8) = "verzonden"
      With Sheets("overzicht trainingen Q1").Cells(Rows.Count, 1).End(xlUp).Offset(1)
         .Resize(, 2) = Array(sv(i, 2), sv(i, 3))
         .Offset(, Application.Match(sv(i, 7), Sheets("overzicht trainingen Q1").Range("a7:g7"), 0) - 1) = sv(i, 1)
      End With
       With CreateObject("Outlook.Application").createitem(0)
          .To = sv(i, 6)
          .Subject = sv(i, 7)
          .body = "Beste " & sv(i, 2) & " " & sv(i, 3) & "," & String(2, vbCrLf) & "Op " & sv(i, 1) & " is er de cursus " & sv(i, 7)
          .display
          '.send
       End With
     End If
    Next i
 .Range("a13", .Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Value2 = sv
End With
End Sub

 

[Ray88]

had ik nu goed gezien dat je met 2 x marco;s heb gewerkt ?

 

[HSV]

Nee, hoe dat zo?

 

[Ray88]

ik heb de code erin opgenomen in Q1 maar er is geen uitwerking

 

[HSV]

Namen ingevuld en Kolom H leeg van "verzonden"?

 

[Ray88]

yep, we komen al verder, ik krijg een runtime error 13, mismatch. De eerste pakt ie maar als je dan naar de volgende training gaat loopt ie vast.

 

[HSV]

Zoek het verschil; Oefeningen blusmiddelen → Oefening blusmiddelen.

 

[Ray88]

eerste is helemaal in orde nu, kan ik hem dan overzetten naar de andere Q of loopt ie dan vast?

 

[HSV]

Dan Q1 veranderen in Q2.

 

[Ray88]

en dan appart opslaan zeker, anders overschrijft hij de vorige volgens mij

 

[Ray88]

en om het af te maken, ja ik weet het ik vraag veel. Een afbeelding standaard meesturen in de mail, is die optie er? en is het mogeljik om een .pdf met informatie van de training mee te sturen op het moment dat je de mail bevestigd.

 

[HSV]

en dan appart opslaan zeker, anders overschrijft hij de vorige volgens mij

Niet nodig, het zet de gegevens onder de vorige.

en om het af te maken, ja ik weet het ik vraag veel. Een afbeelding standaard meesturen in de mail, is die optie er? en is het mogeljik om een .pdf met informatie van de training mee te sturen op het moment dat je de mail bevestigd.

Ook dat is mogelijk.
Waar staat de afbeelding en de pdf?

 

[Ray88]

ik heb de afbeelding in dezelfde map (los van) als het andere bestand en pdf heb ik opgenomen in map bijlage PDF

 

[HSV]

Even de s0 en attachments.add regels aanpassen.

Sub hsv()
Dim sv, i As Long
With Sheets("BHV registratieformulier Q1")
s0 = ThisWorkbook.Path & "\BHV.jpg"
sv = .Range("a13", .Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Value2
  For i = 1 To UBound(sv)
    If sv(i, 2) <> "" And sv(i, 8) = "" Then
     sv(i, 8) = "verzonden"
      With Sheets("overzicht trainingen Q1").Cells(Rows.Count, 1).End(xlUp).Offset(1)
         .Resize(, 2) = Array(sv(i, 2), sv(i, 3))
         .Offset(, Application.Match(sv(i, 7), Sheets("overzicht trainingen Q1").Range("a7:g7"), 0) - 1) = sv(i, 1)
      End With
       With CreateObject("Outlook.Application").createitem(0)
          .To = sv(i, 6)
          .Subject = sv(i, 7)
          .body = "Beste " & sv(i, 2) & " " & sv(i, 3) & "," & String(2, vbCrLf) & "Op " & sv(i, 1) & " is er de cursus " & sv(i, 7)
          .htmlbody = "<center><img src=" & Chr(34) & s0 & Chr(34) & " ></center>" & .htmlbody
          .attachments.Add "c:\users\Ray\documents\bijlage PDF\bijlagenaam.pdf"
          .display
          '.send
       End With
     End If
    Next i
 .Range("a13", .Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Value2 = sv
End With
End Sub

 

[Ray88]

sorry voor het wachten maar had hiervoor even geen tijd, heb het geprobeerd maar krijg een error in de With Sheet. Heb deze al aangepast aan de nieuwe naam die dexlms draagt maar werkt niet.

 

[HSV]

Controleer de naam van het werkblad.

 

[Ray88]

dat idee had ik ook dus heb hem veranderd naar de nieuwe naam maar nog pakt ie hem niet

 

[edmoor]

Die gele regel wijst naar een werkboek, niet een werkblad.

 

[Ray88]

het spijt me maar ik snap even niet wat ik moet doen, miss teveel nachten Kan iemand mij nog helpen met de laatste stappen?

 

[edmoor]

Haal dat .xlsm gedeelte eens uit die gele regel weg.
De code heb ik verder niet getest, alleen bekeken.