Converting FIND function for a Macro

[Puppetgrass]

Hi Everyone I have a workbook which I am trying to automate with a macro. This workbook has a formula which basically takes data pasted in from a third party system (standardized data) and converts it to a syntax for a different vendor system. The issue I am having is with the amounts. I have to have amounts shown as hundreds (i.e. 4.99 = 499) but because excel lops off 0's, I have to have a function to determine how many decimal places it records (i.e. 1.99 = 2 decimal places, 1.90 = 1 decimal place, 1.00 = 0 decimal places) to make sure the right number of characters are used for the amount and subsequent fields. In the workbook, I have the following formula which tells me the amount of decimal places: =LEN([CELL WITH AMOUNT])-FIND(".",[CELL WITH AMOUNT],1) Now that I am trying to do this as a macro, it seems that Find is something else. Does anyone know the best way to do this as a macro?

 

[TheNoocH]

Welcome to the board...


look at the vba function INSTR
it does essentially the same thing as FIND

 

[Puppetgrass]

Thanks so much! I knew there had to be an easy way but unfortunately googling on "find" brings up too non-specific results For reference in case this comes up in a search, it now looks like: iVar1 = Len(Cells(iCount2, iAmountcol)) - InStr(1, Cells(iCount2, iAmountcol), ".", vbTextCompare)