excel vba teksten samen voegen als waarde in cel 1 is.

[steen12]

Hallo,
Ik heb het volgend probleem.
Ik heb op blad 12 verschillende teksten staan namelijk tabel X19 tot X28
maar ik wil die teksten alleen weergeven als de waarde in een bepaalde cel
(bijv:f20) (aangegeven in de formule hier onder) 1 is.

""""""""""""Sub proWord()
fName = Sheets("blad12").Range("A4").Value
Dim varDoc As Object
Set varDoc = CreateObject("Word.Application")
varDoc.Visible = True
Sheets("blad12").Range("X19").Copy
If Sheets("blad12").Range("F20") = 1 Then Sheets("blad12").Range("X20").Copy
If Sheets("blad12").Range("F25") = 1 Then Sheets("blad12").Range("X21").Copy
If Sheets("blad12").Range("g30") = 1 Then Sheets("blad12").Range("X22").Copy
If Sheets("blad12").Range("g156") = 1 Then Sheets("blad12").Range("X23").Copy
If Sheets("blad12").Range("g34") = 1 Then Sheets("blad12").Range("X24").Copy
If Sheets("blad12").Range("g43") = 1 Then Sheets("blad12").Range("X25").Copy
If Sheets("blad12").Range("g52") = 1 Then Sheets("blad12").Range("X26").Copy
If Sheets("blad12").Range("g59") = 1 Then Sheets("blad12").Range("X27").Copy
If Sheets("blad12").Range("g75") = 1 Then Sheets("blad12").Range("X28").Copy
If Sheets("blad12").Range("F20") = 1 Then Sheets("blad12").Range("g91").Copy
End If
varDoc.documents.Add
varDoc.Selection.Paste
varDoc.ActiveDocument.SaveAs ("T:\bureaublad\" & fName)
varDoc.documents.Close
varDoc.Quit
Application.CutCopyMode = False
End Sub""""""""""""

Ik weet niet of ik nu de IF command goed heb gebruikt. Want met 1x "if" lukt het wel maar ik wel meerdere teksten plakken in word.

Ik hoop dat iemand mij hiermee kan helpen.