IF and Left

[valemarje]

I currently use the formula

Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(LEFT(RC[-2],5)=""DAVID"",""DAVIDE"","""")))))"

but I would like to be able to put something like this, only I don't know the correct way:

If Range(B2).value (LEFT(RC[-2],5) = "DAVID"
Range("D2").value ="DAVIDE"
else
Range("D2").value =""
end if

Can you help me?

 

[Joe4]

on the simple cell I think it works and that is exactly what I wanted so I thank you.

how do i tell it to repeat for each row from B2 to B6000 row for example?
and put the corresponding data from D2 to D6000?

Do you really want to go down to EXACTLY cell 6000, or just to the last populated cell in column B?
Are there any blanks in the middle of your data in column B or not?

What are all the values you want to check column B for (you mentioned "DAVID", "MIS" and "MISS" so far)?

 

[valemarje]

values are a lot... I think about 32. not only "DAVID", "MIS" and "MISS"
And I'd like to start at B2 all the way down to the last full field.
The first row is sometimes there after 300 rows sometimes after 5000... so I was thinking of taking the maximum.

 

[valemarje]

sorry for translate: i'd like to the last populated cell in column B

 

[Joe4]

values are a lot... I think about 32. not only "DAVID", "MIS" and "MISS"

So what is your intention?
To create 32 separate blocks in your VBA code?
Or do you have list of all the values somewhere, which the corresponding value for each?