if döngüsü ile hücre birleştirme işlemi hk

[chakistes]

merhaba arkadaşlar if döngü ile a21 satırına P satırındaki Erkek ise oğlu kız ise kızı olarak hücre birleştirmede gelmesini istiyorum aşağıdaki şekilde denedim fakat yapamadım.

[a21] = " " & "Yukarıda açık kimliği yazılı " & Sheets("sayfa1").Range("J" & xsat) & "if Sheets("sayfa1").Range("P" & sat) "Erkek" then oğlu"

 

[YUSUF44]

Aşağıdaki gibi deneyin:

if Sheets("sayfa1").Range("P" & sat) = "Erkek" then
    cinsiyet = "oğlu "
elseif Sheets("sayfa1").Range("P" & sat) = "Kız" then
    cinsiyet = "kızı"
else
    msgbox "Lütfen cinsiyet seçiniz", vbcritical
    exit sub
end if
[a21] = " Yukarıda açık kimliği yazılı " & Sheets("sayfa1").Range("J" & xsat) & cinsiyet

 

[chakistes]

teşekkür ederim yardımın için