YeshyTiger
New Member
- Joined
- Oct 21, 2008
- Messages
- 23
Hello,
I did not know how to describe this problem or where to search for the solution so I will gladly accept redirection.
Right now I am trying to do a check of an Excel sheet that confirms the values are in correct heirarchal order
The one common theme is that the value of certain Cells should be the same as the previous cell minus 5 characters
I created A check that does not work and now I'm trying to test code. I have
The comments are the eventual check. Any idea of how to fix the code are compare the cell values better?
I did not know how to describe this problem or where to search for the solution so I will gladly accept redirection.
Right now I am trying to do a check of an Excel sheet that confirms the values are in correct heirarchal order
The one common theme is that the value of certain Cells should be the same as the previous cell minus 5 characters
I created A check that does not work and now I'm trying to test code. I have
Code:
For I = 63 To 1061
If Cells(I - 1, 5).Value <> Cells(I, 5).Left(Cells(I, 5).Value, Len(Cells(I, 5).Value) - 5) Then
Cells(I, 1).Value = 1
End If
Next I
'For I = 63 To 1061
'If Cells(I, 5).Value Like "*[ML,GN,DL]*" And Cells(I - 1, 5).Value <> Left(Cells(I, 5).Value, Len(Cells(I, 5).Value) - 5) Then
'Application.ScreenUpdating = True
'Cells(I, 5).Select
'Response = MsgBox("Are Milestones in Correct Place?", vbExclamation + vbYesNoCancel)
'Select Case Response
'Case Is = vbYes
'Case Is = vbNo
'ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Desktop\PMP Input Folder\" & ActiveWorkbook.Name, FileFormat:=xlNormal
'Exit Sub
'Case Is = vbCancel
'Exit Sub
'End Select
'End If
'Next I
End Sub
The comments are the eventual check. Any idea of how to fix the code are compare the cell values better?