If statments, PLEASE HELP

[imported_unknown]

Is it possible for me to set an IF statement to do nothing if a criteria is not met. For example:

my IF statement in the D column is

IF(A:A = "dog", "bark")

I want to be able to do this without affecting the D column for records that do not currently have "dog" in the A column, right now, what happens is if the records don't have "dog" in the A column FALSE is entered in the D column.

 

[imported_unknown]

On 2002-10-04 17:15, lenze wrote:
You will need to use code. Something like:

Sub Fixit()
Dim cel As Range
Dim myVar As Range
Set myVar = Selection
For Each cel In myVar
If cel.Value = "dog" Then cel.Offset(0, 1).Value = "bark"
Next

End Sub

Select the cells in column A and run the macro

here is my code:
Sub Battery()

Dim cel As Range
Dim myVar As Range
Set myVar = Selection
For Each cel In myVar
If cel.Value = "PPC6V2.5M" Then cel.Offset(0, 2).Value = "B01054"
Next

End Sub

I selected the entire A column and tried to execute the macro and then the error

 

[lenze]

I don't know what is wrong. I put sample data in column A including your test data
PPC6V2.5M and copied your code to a module. I selected the column and ran the Macro. It worked fine. Where are you placing your code? It needs to be in a regular module.
It's Friday and I'm leaving, but maybe someone else can check it out and see if they get an error.
This message was edited by lenze on 2002-10-04 17:55

 

[rikrak]

Hi,

What happens if you select only 1 cell containing "PPC6V2.5M" and run the macro?

 

[Juan Pablo González]

The macro should work as well...

 

[imported_unknown]

Thank you for the help, it did work.
If I want to input info into two columns at once shouldn't this code work? Or do I need to declare another variable?

Dim cel As Range
Dim myVar As Range
Set myVar = Selection
For Each cel In myVar
If cel.Value = "PPC6V2.5M" Then cel.Offset(0, 2).Value = "B01054" And cel.Offset (0, 3).Value = "6V"
Next

End Sub

 

[lenze]

Try it this way

Sub Fixit()

Dim cel As Range
Dim myVar As Range
Set myVar = Selection
For Each cel In myVar
If cel.Value = "PPC6V2.5M" Then
cel.Offset(0, 2).Value = "B01054"
cel.Offset(0, 3).Value = "6V"
End If
Next

End Sub