concatenate the currency too

isasa74 · #1 12-14-2015, 01:19 PM

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

isasa74 · #2 12-14-2015, 01:37 PM

I have attached the file with the entire tool, basically you have a step one (three macros unified by the one called "MAIN") that cleans up blank spaces and get rid of weird formats and the second step, the one you already know, that actually compare the two sheets.

then you have a very rudimental Macro that is meant to reset the tool.

Maybe it is easier for you if you have the all tool.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Use Two (concatenate) Fields If Condition Is Met (If... Then... Else)	SoonerLater	Mail Merge	1	09-30-2015 05:40 PM
how to concatenate text box on new slide	wichitawx	PowerPoint	5	05-19-2015 05:17 AM
Concatenate with @ symbol	anickles	Excel	2	02-06-2015 09:39 AM
Concatenate if in descending order	pgeorgilas	Excel Programming	2	12-10-2014 01:35 AM
If, move and concatenate in VBA	devcon	Excel Programming	0	07-04-2011 12:44 AM