VBA kodu olarak if komutunda Or ve And

[DeliBalta58]

Personelimizin melbusat çizelgesi hazırlanırken bir kaç seçeneğe göre ayrım yapılması gerekmekte.
Benim yazdığım kod :
İlk Önce Sayfa1 G sutununda Erkek / Bayan ayrımına Bakacak
sonra sıra ile
E sutununda Rütbe Bölümündeki Müdür,Emniyet Amiri,Başkomiser,Komiser,Komiser Yrd. , Polis Memuru olanları alacak

'==================== Pantolon BAY  =================================
If s1.Cells(a + 1, 7) = "Erkek" And s1.Cells(a + 1, 5) = "Müdür" Or s1.Cells(a + 1, 5) = "Emniyet Amiri" Or s1.Cells(a + 1, 5) = "Başkomiser" Or s1.Cells(a + 1, 5) = "Komiser" Or s1.Cells(a + 1, 5) = "Komiser Yrd." Or s1.Cells(a + 1, 5) = "Polis Memuru" Then
s2.Cells(a + 5, 16) = s1.Cells(a + 1, 14) 'Pantolon Müdür / Amir - Memur
Else
s2.Cells(5 + a, 16) = "'--"
End If
'=======================================================================

If s1.Cells(a + 1, 7) = "Erkek" [COLOR=red]Or[/COLOR] s1.Cells(a + 1, 5) = "Müdür" Or s1.Cells(a + 1, 5) = "Emniyet Amiri" Or s1.Cells(a + 1, 5) = "Başkomiser" Or s1.Cells(a + 1, 5) = "Komiser" Or s1.Cells(a + 1, 5) = "Komiser Yrd." Or s1.Cells(a + 1, 5) = "Polis Memuru" Then
s2.Cells(a + 5, 16) = s1.Cells(a + 1, 14) 'Pantolon Müdür / Amir - Memur
Else
s2.Cells(5 + a, 16) = "'--"
End If

olarak ta denedim. Bu defa tümünü aktardı.
Dosya Ekte.

 

[DeliBalta58]

Bu kodu nasıl düzeltmeliyiz ?

 

[redex]

Aradığın Erkek mutlaka olacak
Müdür , Emniyet Amiri , Başkomiser , Komiser , Komiser Yrd. , Polis Memuru
farketmeden dolduracak ise kod aşağıdaki gibi olmalı

Kolay gelsin

If s1.Cells(a + 1, 7) = "Erkek" Then
    If s1.Cells(a + 1, 5) = "Müdür" Or s1.Cells(a + 1, 5) = "Emniyet Amiri" Or s1.Cells(a + 1, 5) = "Başkomiser" Or s1.Cells(a + 1, 5) = "Komiser" Or s1.Cells(a + 1, 5) = "Komiser Yrd." Or s1.Cells(a + 1, 5) = "Polis Memuru" Then
        s2.Cells(a + 5, 16) = s1.Cells(a + 1, 14) 'Pantolon Müdür / Amir - Memur
    End If
Else
    s2.Cells(5 + a, 16) = "'--"
End If