Hi everybody,
I'm pretty new at VBA and I'm not really sure how to group things so that the code can be shortened. As of right now I get an error saying that my procedure is to long. What I'm trying to do is count the number of times that a certain word appears in cell range D11: D24 and insert the total into cell T78
Thanks in advance for any help
I'm pretty new at VBA and I'm not really sure how to group things so that the code can be shortened. As of right now I get an error saying that my procedure is to long. What I'm trying to do is count the number of times that a certain word appears in cell range D11: D24 and insert the total into cell T78
Thanks in advance for any help
Code:
If Sheets("sheet metal take off").Range("D11") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D12") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D13") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D14") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D15") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D16") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D17") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D18") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D19") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D20") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D21") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D22") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D23") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If
If Sheets("sheet metal take off").Range("D24") = "Cap flashing" Then
Sheets("sheet metal take off").Range("T73").Value = 1 + Sheets("sheet metal take off").Range("T73").Value
Else
Sheets("sheet metal take off").Range("T73").Value = 0 + Sheets("sheet metal take off").Range("T73").Value
End If