need to prevent pasting of wrong format

[flyers2thecup]

I have a payment request spreadsheet that goes out to different business lines. On this form, are people who are getting incentive awards. I have to take the awards and save as .csv files and load the awards into peoplesoft. Some of the awards are based on sales. Therefore, some of the business lines use their own formulas to derive the amount that goes onto my template. But I need the awards to stay two decimal places. They are cutting and pasting and I get numbers like 1244.4596825. Is there a way to make a message popup to say, "The amount you are trying to paste is more than two decimal places. Please correct and enter a valid number."


Also, is there a way to lock just a CELL? not the sheet. I need them to be able to enter info...but some people change my formulas and it makes me very angry!!!

Thanks in advance!!!

 

[Oorang]

You can do a dynamic range of rows by find the bottom row.
If you go down to cell A65536 and press ctrl-Up Arrow you will notice it takes you to the first row it finds. You can program this refrence by doing this:

Range("A65536").End(xlup).Address  
Or
Range("A65536").End(xlup).Row

So once you know that range you could then select a range of rows by doing something like:

Rows("2:"&Range("A65536").End(xlup).Row).Select
Or
Range("A2",Range("A65536").End(xlup)).Select

You can find a address in relation to another address by using offset. So say you knew your row is never more than 10 columns wide and you wanted to select just the 10 cells of the bottom row, you could do this:

Range(Range("A65536").End(xlUp), Range("A65536").End(xlUp).Offset(0, 10)).Select

 

[flyers2thecup]

excellent info. I'll give it a shot <GULP>! I'm done work for the day...so i'll get on it tomorrow. i'll post back with results...unless i blow up my machine in the process!

Thanks for the help!!!

 

[just_jon]

You don't need to worry about the decimals there.

This part of your code:

AwdAmt = Round(Cells(i, "e"), 2)

should take care of that for you, as it is the AwdAmt variable that is written to the .csv file in lieu of the cell value:

Tempstr = Cells(i, "a") & "," & Cells(i, "b") & "," & AwdAmt & "," _
                  & AwdAmt & "," & n & "," & n & "," & n & "," & Cells(i, "i")
        Print #FileNum, Tempstr

 

[just_jon]

FYI, related post.