Return the content of a user selected cell.......THX

Hi guys....

need your help....

I have to create a funciton where the user enters first a column from “A” to “Z” and then a row number from 1 to 20. I have to write a function function getIntData(col as String, row as Integer) as Integer that returns the content of that cell in the active worksheet and shows it in a message box.

THX a LOT.............

FireTheft,

How about this?
Let me know if you need/wnat anything else!


Simeon

thx a lot...

what I also need to be solved would be:

If the number is the maximum negative Integer
show instead a message box with an exclamation mark.
The function getIntData returns an Integer value. If the content of the cell is not numeric then return
the maximum possible negative value (-2^15).


THANK YOU....

Wow!

I am sorry, you totally lost me on that last one!
If I understand this correctly you want the greatest negative power that is equal to a non numeric value?


Simeon

It's meant like this...

if the value is -32,768 (which equals -2^15) than a message box with an exclamation mark should pop up.
and if the content of the cell is not numeric then return the maximum possible negative value -32,768 (-2^15).

THXXXXXXXXXXXXXX

I see...

Do you have an example with real data in it that I would be able to look at?

Simeon

no sorry I have no sample.....

is part of a homework for the university ;-(

Thats Ok.

I think I have figured it out. Now do you need the (-2^15) diplayed ot the number itself?

Ok, try this out and let me know if this works for you!


Simeon

My function look like this:

Function Test()

'The users enters first a column from “A” to “Z” and then a row number from 1 to 20. Write a function
'function getIntData(col as String, row as Integer) as Integer that returns the content of that cell in
'the active worksheet and shows it in a message box. If the number is the maximum negative Integer
'show instead a message box with an exclamation mark.

Dim Col As String
Dim row As Integer

Place:

Col = InputBox("Please enter the column letter.", "Column Letter")
row = InputBox("Please enter the row number.", "Row Number")


If IsNumeric(Range(Col & row).Value) >= [-32768] Then
MsgBox ("!")
End If

If IsNumeric(Range(Col & row).Value) = False Then
MsgBox ("-32768")

Else
MsgBox (Range(Col & row).Value)
End If
End Function

The Problem now is that it puts out as content of the cell with the value -50000 an exclamation mark and afterthat -50000. In this case I just want the ! to pop up....
A similar problem exists when i open a cell with "k" in it.....then it makes an "!" and the value -32768....but in this case i just need the -32768....
The last point should also work for empty cell......but it doesnt......

Thx in advance....