Cell value is preceded by an apostrophe.

On trigger to that cell, I need to detect and...
- show msgbox "apstrophe detected"
- remove apstrophe
- show msgbox "apstrophe removed"


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=395245

Hi,
This assumes first character is apstrophe:

If Left(ActiveCell, 1) = "," Then
MsgBox " Apostrophe detected "
Range("a1") = Replace(ActiveCell, ",", "")
' Or
Range("a1") = Right(ActiveCell, Len(Range("a1")) - 1)
MsgBox " Apostrophe removed "
End If

"ilyaskazi" wrote:


Cell value is preceded by an apostrophe.

On trigger to that cell, I need to detect and...
- show msgbox "apstrophe detected"
- remove apstrophe
- show msgbox "apstrophe removed"


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=395245

I want Apostrophe = "*::'::*"
and not comma = "*::-,-::*

--
ilyaskaz
-----------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...fo&userid=2396
View this thread: http://www.excelforum.com/showthread.php?threadid=39524

If Left(ActiveCell, 1) = "'" Then
MsgBox " Apostrophe detected "
Range("a1") = Replace(ActiveCell, "'", "")
' Or
Range("a1") = Right(ActiveCell, Len(Range("a1")) - 1)
MsgBox " Apostrophe removed "
End If


"ilyaskazi" wrote:


I want Apostrophe = "*::'::*"
and not comma = "*::-,-::*"


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=395245

Oops again! Sorry!

Range("a1") = Replace(ActiveCell, "'"' "")

"Toppers" wrote:

If Left(ActiveCell, 1) = "'" Then
MsgBox " Apostrophe detected "
Range("a1") = Replace(ActiveCell, "'", "")
' Or
Range("a1") = Right(ActiveCell, Len(Range("a1")) - 1)
MsgBox " Apostrophe removed "
End If


"ilyaskazi" wrote:


I want Apostrophe = "*::'::*"
and not comma = "*::-,-::*"


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=395245

Dear Toppers,

Removing apostrophe is not the problem for me. Problem is to detect and
show msgbox saying "Apostrophe detected"

Removing is working perfect if seprated from the if loop.
Please check with the if loop to detect.

Regards
ilyaskazi


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=395245