VBA code for contains a specific letter

[NoxGalleon106]

Hi Team,

What is the VBA code for something like if activecell. value contains ".ts" And ActiveCell.Offset(0, 25).Value = "" Then
ActiveCell.Offset(0, 25).Value = "MM"

I am unsure on how to correctly code the contains part. Thanks!

 

[Rick Rothstein]

Hi Team,

What is the VBA code for something like if activecell. value contains ".ts" And ActiveCell.Offset(0, 25).Value = "" Then
ActiveCell.Offset(0, 25).Value = "MM"

I am unsure on how to correctly code the contains part. Thanks!

Give this a try...

[table="width: 500"]
[tr]
	[td]If InStr(1, ActiveCell.Value, ".ts", vbTextCompare) > 0 And ActiveCell.Offset(0, 25).Value = "" Then
  ActiveCell.Offset(0, 25).Value = "MM"
End If[/td]
[/tr]
[/table]

 

[NoxGalleon106]

Give this a try...

[TABLE="width: 500"]
<tbody>[TR]
[TD]If InStr(1, ActiveCell.Value, ".ts", vbTextCompare) > 0 And ActiveCell.Offset(0, 25).Value = "" Then
  ActiveCell.Offset(0, 25).Value = "MM"
End If
[/TD]
[/TR]
</tbody>[/TABLE]

It worked! Thank you!