Koşullu Yazdırma

[sahir73]

Merhabalar; Personeller sayfamda A,B,C ve sutunlarında veriler var benim istediğim A sutunundaki hücrelere evet hayır anlamında "e" ve "h" harfleri giriliyor. Yapmak istediğim; eğer a sutunundaki hücrede "e" harfi var ise ve B,C,D sutunlarındaki veriler boş olmamak şartıyla e olanları yazdırma "h" olanları yazdırmaması aynı zamanda eğer sadece e harfi girilmiş ise karşısındaki B,C,D sutununa ait hücrelerin boş olduğunun uyarı mesajı ile gösterilmesi
.
kodlarım:

Private Sub Image3_Click()
    Dim wsPeroneller As Worksheet
    Dim wsForm      As Worksheet
    Dim sonSatir    As Long
    Dim X           As Long
    Dim e, h     As String
    
    Set wsPersoneller = ThisWorkbook.Sheets("Personeller")
    Set wsForm = ThisWorkbook.Sheets("Form")
    sonSatir = wsPersoneller.Cells(Rows.Count, "A").End(3).Row
    
 
    
    For X = 2 To sonSatir
   If wsPersoneller.Range("A" & X).Value = "e" Then
    
        wsForm.Range("D7").Value = wsPersoneller.Range("B" & X).Value
        wsForm.Range("F7").Value = wsPersoneller.Range("C" & X).Value
        wsForm.Range("I7").Value = wsPersoneller.Range("D" & X).Value
 
        On Error Resume Next
        wsForm.Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        End If
    Next X
 
  '  MsgBox "test"
End Sub