How do you say "begins with"

[michael_mcclellan]

Hi there,

I am writing a function that needs to have a statement in it that goes

If [data in ActiveCell] begins with "P"
then do something.

How do I do this?

 

[Frank Kabel]

Hi
if left(activecell.value,1)="P" then
.....

 

[Jake Marx]

Hi Michael,

I am writing a function that needs to have a statement in it that goes

If [data in ActiveCell] begins with "P"
then do something.

How do I do this?

Are you writing a VBA user-defined function (UDF), or are you looking for a
worksheet function solution?

If you want to use worksheet functions:

=IF(LEFT(A1,1)="p", "yes", "no")

If VBA:

If UCase$(Left$(ActiveCell.Value, 1)) = "P" Then
MsgBox "yes"
Else
MsgBox "no"
End If

The worksheet example isn't case sensitive. If you want only capital P's to
be matched, remove the UCase$() from the second example.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

 

[Guest]

Perhaps something like this?

Sub StartingwithP()
If Left(Selection.Value, 1) = "p" Then
MsgBox "woohoo"
End If
End Sub

tj

 

[39N 95W]

Hi there,

I am writing a function that needs to have a statement in it that goes

If [data in ActiveCell] begins with "P"
then do something.

How do I do this?

If Left(ActiveCell.Value,1) = "P" Then
Do Something
End If

-gk-

 

[Guest]

Mine should be ActiveCell.Value, like the other answers posted.

tj

Perhaps something like this?

Sub StartingwithP()
If Left(Selection.Value, 1) = "p" Then
MsgBox "woohoo"
End If
End Sub

tj

Hi there,

I am writing a function that needs to have a statement in it that goes

If [data in ActiveCell] begins with "P"
then do something.

How do I do this?

 

[Postman]

Alternative, purely for the sake of diversity ...

If ActiveCell.Value Like "[Aa]*" Then
Do Something
End If

Oh, and I like the "Like" operator ;o)


| If Left(ActiveCell.Value,1) = "P" Then
| Do Something
| End If

 

[Postman]

Alternative, purely for the sake of diversity ...

If ActiveCell.Value Like "[Aa]*" Then
Do Something
End If

Oh, and I like the "Like" operator ;o)


| If Left(ActiveCell.Value,1) = "P" Then
| Do Something
| End If