Solved: If command

[khalid79m]

[vba] Sheets("O_BCDU").Range("I:I").AutoFilter Field:=1, Criteria1:="Man2"
Sheets("O_BCDU").Range("O_BCDU20_CR_Cay_1").SpecialCells(xlCellTypeVisible) .Value = "H"[/vba]

this code FILTERS on range I:I for Man2 then deletes all special cells.

i only want it to do this if Range("O_BCDU20_CR_Cay_1") contains "Man2"
if it does then

[vba] Sheets("O_BCDU").Range("I:I").AutoFilter Field:=1, Criteria1:="Man2"
Sheets("O_BCDU").Range("O_BCDU20_CR_Cay_1").SpecialCells(xlCellTypeVisible) .Value = "H"[/vba]

can anyone help?

[Tom527]

you can try:


[vba]
if instr(1,Range("O_BCDU20_CR_Cay_1") ,"Man2",vbTextCompare) > 0 then

Sheets("O_BCDU").Range("I:I").AutoFilter Field:=1, Criteria1:="Man2"
Sheets("O_BCDU").Range("O_BCDU20_CR_Cay_1").SpecialCells(xlCellTypeVisible) .Value = "H"
end if

[/vba]

[khalid79m]

thanksmate