MyCell. Value = "total"

  • Thread starter Thread starter simplymidori76
  • Start date Start date
S

simplymidori76

A wonderful programmer provided me with this code and I would like for
it to work only if the row "contains" the text "total".

This doesn't work unless the cell specifically says "total".

Thanks for your help in advance.


Option Explicit
Dim MyCell, MyRng As Range
Dim i As Integer


Private Sub CommandButton1_Click()
Set MyRng = [a1:a65000] 'set your range
For Each MyCell In MyRng
If MyCell.Value = "total" Then
MyCell.Offset(1, 0).Select
Do While i < 4
ActiveCell.EntireRow.Insert
i = i + 1
Loop
ActiveCell.Value = "Avails"
ActiveCell.EntireRow.Interior.ColorIndex = 5
ActiveCell.Offset(1, 0).Value = "Left"
ActiveCell.Offset(1, 0).EntireRow.Interior.ColorIndex = 6
End If
Next MyCell
End Sub
 
Hi
Replace the offending bit with
If Instr(MyCell.Value,"total")>0 then

regards
Paul
 
Does this look right. For some reason it doesn't work still...


Option Explicit
Dim MyCell, MyRng As Range
Dim i As Integer


Private Sub CommandButton1_Click()
Set MyRng = [a1:a5000]
For Each MyCell In MyRng
If InStr(MyCell.Value, "total") > 0 Then
MyCell.Offset(1, 0).Select
Do While i < 4
ActiveCell.EntireRow.Insert
i = i + 1
Loop
ActiveCell.Value = "Avails"
ActiveCell.EntireRow.Interior.ColorIndex = 5
ActiveCell.Offset(1, 0).Value = "Left"
ActiveCell.Offset(1, 0).EntireRow.Interior.ColorIndex = 6
End If
Next MyCell
i = 0
End Sub
 
Ahh it works. Had to change the casing. "Total"

Now just 1 more thing... to this code and I will post separate.

Thanks for your help!!!!!

Paul
 
Back
Top