Simple Doubt

[irisqueiroz]

Hi!


I'm trying to locate where is the word "ALUGUEL" in column C, and if it finds then write "abc" in column D (same line where "ALUGUEL" is)


For i = 1 To LstRow


If Cells(i, 3).Value = "ALUGUEL" Then

ActiveCell.Offset(0, 1) = "abc"

End If


Next


Could anyone help me?


Thanks!

 

[shrivallabha]

Hi irisqueiroz,


You can simply use Autofilter to find "all" entries in one go and then put desired word in column D.


While doing this keep macro recorder ON. You should get your macro code as well.

 

[jason]

im not strong enough with VBA, but if "Aluguel" the only content in the cell then a simple IF function would work...

 

[NARAYANK991]

Hi ,


Jason has suggested one approach , since a formula such as =IF(C1="ALUGUEL","abc","") should do the job ; enter this in D1 , and copy downwards as far as your data in column C extends.


Your code will also work , provided you take care of a minor mistake :


Your IF statement is checking for Cells(i,3).Value , but the entry of "abc" is being done using Activecell , which could be anywhere else. Change your code as follows , and it will work :

[pre]

For i = 1 To LstRow
If UCase(Cells(i, 3).Value) = "ALUGUEL" Then
Cells(i, 4).Value = "abc"
End If
Next

[/pre]
Narayan