From Web page how to select check boxes

[Abhijeet]

Hi

If Comments is NO on web page then corresponding checkbox will be clicked or selected.

For Yes comments checkbox won’t be clicked.

After Selecting all the checkbox with “No” comments on webpage, Delete button will be clicked

I want this through be done via Excel VBA please help on this

HTML code and screen shot given below for the reference

HTML Code
<table width="95%" border="0" align="center">
                <tr><td colspan="3"></td></tr>
               
                <tr>
        <td colspan="3">
                                                You are currently logged-in as an Employer for <b>EA 4820 </b>
        </td>
                </tr>
                <tr>
                <td colspan="2">
                To delete any records, please select the checkbox and press delete. <input type="submit" value="Delete" name="Image1"  class="initial2">
        </td>
       
  </tr>
</table>
                   
   



<table width="90%" align="center" border="1" cellpadding="2" cellspacing="0" style="border-color:#000080;">
    <tr class="fieldTitle">
        <td width="10%">DI Number</td>
        <td width="10%">SD Number</td>
        <td width="10%">Surname</td>
        <td width="10%">Forenames</td>
        <td width="10%">DOB</td>
        <td width="5%">DOB Verified</td>
        <td width="10%">EA Ref</td>
        <td width="10%">DOC</td>
        <td width="5%">Emp ID</td>
        <td width="5%">Comments</td>
        <td width="10%">Processed Date</td>
        <td width="5%">Delete</td>
    </tr>

               
            <tr>
       
            <td><a href="sd55_go.cfm?ni=YT171430C&id=4217676" style="color:blue">YT171430C</a></td>
            <td>54110485</td>
            <td>MORLEY</td>
            <td>Wendy Alice Edna</td>
            <td>07-Jun-1954</td>
            <td>Yes</td>
            <td>26609061</td>
            <td>22-May-2017</td>
            <td>4 </td>
            <td>No</td>
            <td>07-Jun-2017</td>
            <td><input type="checkbox" name="del" value="4217676"></td>
        </tr>
       
            <tr class="altRow" >
       
            <td><a href="sd55_go.cfm?ni=YT230657A&id=4218253" style="color:blue">YT230657A</a></td>
            <td>10206582</td>
            <td>Thompson</td>
            <td>Sue  </td>
            <td>07-Apr-1954</td>
            <td>No</td>
            <td>26609738</td>
            <td>01-Apr-2017</td>
            <td>1 </td>
            <td>No</td>
            <td>07-Jun-2017</td>
            <td><input type="checkbox" name="del" value="4218253"></td>
        </tr>
       
            <tr>
       
            <td><a href="sd55_go.cfm?ni=YW075666C&id=4205805" style="color:blue">YW075666C</a></td>
            <td>54051790</td>
            <td>HORSELL</td>
            <td>ELIZABETH JANICE </td>
            <td>16-Sep-1954</td>
            <td>Yes</td>
            <td>26617177</td>
            <td>01-May-2017</td>
            <td>5 </td>
            <td>No</td>
            <td>07-Jun-2017</td>
            <td><input type="checkbox" name="del" value="4205805"></td>
        </tr>
       
            <tr class="altRow" >
       
            <td><a href="sd55_go.cfm?ni=YW193796A&id=4208688" style="color:blue">YW193796A</a></td>
            <td>55092840</td>
            <td>NOBBS</td>
            <td>ELIZABETH MARY </td>
            <td>02-Jan-1955</td>
            <td>No</td>
            <td>26618168</td>
            <td>01-May-2017</td>
            <td>7 </td>
            <td>Yes</td>
            <td>07-Jun-2017</td>
            <td><input type="checkbox" name="del" value="4208688"></td>
        </tr>
       
            <tr>
       
            <td><a href="sd55_go.cfm?ni=YZ086427A&id=4211303" style="color:blue">YZ086427A</a></td>
            <td>56114045</td>
            <td>BAGGETT</td>
            <td>DENISE ROSALIND </td>
            <td>22-Oct-1956</td>
            <td>Yes</td>
            <td>10410171-2</td>
            <td>01-May-2017</td>
            <td>5 </td>
            <td>No</td>
            <td>07-Jun-2017</td>
            <td><input type="checkbox" name="del" value="4211303"></td>
        </tr>

This Web page screen shot

 

[Abhijeet]

We tried with this on our macro but it is not work so please give idea for this

Set ieDoc = IE.Document
          Set ieCom = IE.Document.all

         
          kRow = 0
          kCol = 1
          For k = 1 To ieDoc.all.Length - 1
            If TypeName(ieDoc.all(k)) = "HTMLTable" Then
                Set ieTbl = ieDoc.all(k)

                For kIntRow = 0 To ieTbl.Rows.Length - 1
                  kRow = kRow + 1
                  kCol = 1
                  Com_Flag = "F"

                  For j = 0 To ieTbl.Rows(kIntRow).Cells.Length - 1
                      ThisWorkbook.Sheets("Data").Cells(kRow, kCol).Value = Trim(ieTbl.Rows(kIntRow).Cells(j).innertext)
                      If j = 9 And Trim(ieTbl.Rows(kIntRow).Cells(j).innertext) = "No" Then
                                                Com_Flag = "T"
                                              End If
                      If j = 11 And Com_Flag = "T" Then
                       
                        ie.Document.getElementById("del").Click
                        ieCom.Item("del").Checked = True
                        ieTbl.Rows(kIntRow).Cells(j).Item("del").Click
                        ie.Document.getElementById("del").Click
                        MsgBox (j & Com_Flag)
                        ieTbl.Item("del").Click
                        ThisWorkbook.Sheets("Data").Cells(kRow, kCol).Value = "Delete This Record"
                      End If

                      kCol = kCol + 1
                  Next
                Next