Quote:
Originally Posted by charlesdh
Hi,
I modified your code. Instead of using a "Array" I have the code look in column
G for blanks. The I joined the data from column A to E.
See code in "Mod1run" for sheet1. I remarked where I made a change. I remarked the code you had.
|
Thanks for you precious time charlesdh.
It looks like it could work, but the concatenation is wrong.
Basically your code (in case of discrepancies between sheet1 and sheee2) is now concatenating the six first columns of sheet1 in column H of the same sheet1.
That is pointless, as what is actually needed (when there is no "V") is to have the first sex columns of Sheet2 being concatenated and reported in Sheet1-H for a quick comparison.
The check will be on hundred of rows and having that concatenation allows to compare and spot the errors without switching between the two sheets.
Do you think we can fix it please?
EDIT: another problems I noticed is that before the check was " currency sensitive" it means that thanks to the function at the end of the code (see below the function) the check was able to spot out differences od currency between Sheet1 and Sheet2 , now this function doesn't seem to work any longer.
Code:
Function CurAdj(WkVal As Range) As String
Dim WkF As String
WkF = WkVal.NumberFormat
CurAdj = IIf(InStr(1, WkF, "$$") <> 0, "$", IIf(InStr(1, WkF, "$¤") <> 0, "¤", "")) & WkVal
End Function