if ( multiple criteria) then

[christchaaya]

Hello guys.

Range("a" & Cells.Rows.Count).End(xlUp).Select
Range(Selection, "a1").Select
For Each cell In Selection
If Not IsEmpty(cell.Value) Then
[COLOR=#FF0000]If cell.Value <> "2012*" Then[/COLOR]
cell.Copy
cell.Offset(0, 5).PasteSpecial
End If
End If
Next cell

I have a to copy from column A some cells ( e.g "000005PR RODI T.R, S.L.") and paste it in column F. The problem is that in column A i have as well empty cells and cells that have date (e.g "2012 02 14-OCT-2011 CN 100725") . Neither the IF/AND nor the "double" if constructs are working . How can I fix this problem ?

Regards.

 

[VoG]

Try

If Not cell.Value Like "2012*" Then

 

[CLockeWork]

Hi Christchaaya,

If you want multiple criteria in your IF THEN then you can put the AND between the statements:

If [condition] AND [condition] THEN

Hop this helps

 

[christchaaya]

Thank you Vog, works perfectly

Clock thank you for the help but as i said in the first thread i tried as well with the IF/AND but didn't worked

Best regards.