The last results show us that we were in error..
It is time to make an Abort2
ExplorerBefore Double Driver V DriverStore Abort2.xlsm : https://app.box.com/s/yby374gkrprb8lnucvflrpado8gqmspb
And then start again.
So, on further thinking, we actually should have just the second part, 4b) in the Do While Loop
As the macro stands, any second match in DriverStore, will cause section 4b) to detect the color made in the first run in DoiubleDriver and give the underline in error.
The Do While Loop start must be brought down as follows
Code:
If Not FndCel Is Nothing Then ' the range is set, so the file string has been found in a cell in DDAllBefore
'Do While Not FndCel Is Nothing ' Start Find next loop =
Rem 4 we have two matching cells
'4a) but we might already have a match,
If SrchForCel.Font.Color <> 0 Then ' Extra things to do if we already found the cell value in drivers
Let ClrIdx = SrchForCel.Font.ColorIndex ' this will make the line below to colorthe text of this cell redundant but will ensure that we use the same color in the DriverStore worksheet rather than the randomly generated one
WsDD.Activate: SrchForCel.Select
Let SrchForCel.Font.Underline = True
Else
End If
'Debug.Print FndCel.Value
Do While Not FndCel Is Nothing ' Start Find next loop ======
'4b) color matching file names in each worksheet, we do the unecerssary activating and selecting so we can see what is going in
WsDD.Activate: SrchForCel.Select ' This worksheet will be colured
Application.Wait (Now + TimeValue("00:00:01"))
'Let SrchForCel.Characters(((InStrRev(CelVl, "\", -1, vbBinaryCompare)) + 1), (Len(CelVl)) - (InStrRev(CelVl, "\", -1, vbBinaryCompare))).Font.ColorIndex = ClrIdx
Let SrchForCel.Font.ColorIndex = ClrIdx
Let SrchForCel.Font.Italic = True
WsDrSt.Activate: FndCel.Select ' the other workseet
Application.Wait (Now + TimeValue("00:00:02"))
Let FndCel.Font.ColorIndex = ClrIdx
Set FndCel = Application.Range("=DriverStore!D" & FndCel.Row + 1 & ":DriverStore!F4437").Find(what:=FileNmeSrchFor, After:=Application.Range("=DriverStore!F4437"), LookIn:=xlValues, LookAt:=xlPart, searchorder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) '
Loop ' End Find next loop =================================
Else ' No match was found - the thing in the cell in this worksheet is not in the other worksheet
End If
Else ' case no file path string in cell
here is the full macro http://www.excelfox.com/forum/showth...2568#post12568
Once again we re begin in the next posts , the comparisons with the latest macro
Reply With Quote
Bookmarks