Macro om te printen

[jarre2]

Hallo experts,

Bijgaand een (uitgekleed) naw bestand.
De bedoeling was, een bepaald adres te selecteren door hiervoor een "s" te zetten. Als er een aantal zijn geselecteerd, de standaardbrief in één keer uit te printen voor alle geselecteerden.

De vraag is; heeft iemand een idee waarom deze macro niet werkt?

Vr. gr.
Jarre

 

[Niels28]

Jouw macro werkt niet omdat je niet aangeeft dat deze vaker uitgevoerd moet worden.
Gebruik volgende macro, je hebt hierbij ook geen formules nodig.

Sub prnbrief()
For Each cl In Sheets("naw").Range("B:B").SpecialCells(2)
If cl.Value = "s" Then
With Sheets("brief")
.Range("c8:c10").Value = Application.Transpose(cl.Offset(0, 1).Resize(1, 3).Value)
cl.Value = ""
.PrintOut
End With
End If
Next
End Sub

Niels

 

[jarre2]

Niels,

Hartelijk dank voor de fantastische oplossing, ik was er zelf niet uit gekomen. Het werkt perfect!
Een klein vraagje nog: indien geen "s" geselekteerd is, is het dan mogelijk om de foutmelding af te vangen?

Vriendelijke groet,
Jarre

 

[Niels28]

bij deze:

Sub prnbrief()
On Error GoTo errhandler
For Each cl In Sheets("naw").Range("B:B").SpecialCells(2)
If cl.Value = "s" Then
With Sheets("brief")
.Range("c8:c10").Value = Application.Transpose(cl.Offset(0, 1).Resize(1, 3).Value)
cl.Value = ""
.PrintOut
End With
End If
Next
errhandler:
If Errornumber = 1004 Then Exit Sub
End Sub

Niels

 

[jarre2]

Hallo Niels,

Wederom een goede oplossing voor het probleem. Het is nu helemaal zoals ik het wilde hebben. Nogmaals dank voor de ondersteuning, ben er erg mee geholpen.

Vriendelijke groet,
Jarre