I am trying in vain to incorporate an If Then Else into a macro; the basis
is as follows

Sheet Name = 'Search'

If -Cells in the ranges (B5:F5) AND (B8:F8) AND (C8) AND (F9) = ""
Then
Do this
Else
Do that
End If

The bit between 'If' and 'Then' eludes me. Any offers?

Sandy

What do you want to do? Let's say you want to change the values of those
cells.

Cells(RowNum, ColNum).value = 10 '<~~~changes the value in the cell at the
location given
Range("C8").value = 10 '<~~changes the value in C8 to 10

It's tough to know how to answer without a more specific question.

"Sandy" wrote:

I am trying in vain to incorporate an If Then Else into a macro; the basis
is as follows

Sheet Name = 'Search'

If -Cells in the ranges (B5:F5) AND (B8:F8) AND (C8) AND (F9) = ""
Then
Do this
Else
Do that
End If

The bit between 'If' and 'Then' eludes me. Any offers?

Sandy

One way:

With Sheets("Search").Range("B5:F5,B8:F8,F9")
If Application.CountA(.Cells) < .Count Then
'Do This
Else
'Do That
End If
End With




In article ,
"Sandy" wrote:

I am trying in vain to incorporate an If Then Else into a macro; the basis
is as follows

Sheet Name = 'Search'

If -Cells in the ranges (B5:F5) AND (B8:F8) AND (C8) AND (F9) = ""
Then
Do this
Else
Do that
End If

The bit between 'If' and 'Then' eludes me. Any offers?

Sandy

Are you checking to see if the cells are empty?

Dim myRng As Range
Set myRng = Worksheets("Sheet1").Range("b5:f5,B8:f8,F9")
If Application.CountA(myRng) = 0 Then
'all empty
Else
'not all empty
End If

=counta() will count any cell that has a formula that evaluates to "".

And C8 is part of B8:F8, so it doesn't need to be checked twice.

Sandy wrote:

I am trying in vain to incorporate an If Then Else into a macro; the basis
is as follows

Sheet Name = 'Search'

If -Cells in the ranges (B5:F5) AND (B8:F8) AND (C8) AND (F9) = ""
Then
Do this
Else
Do that
End If

The bit between 'If' and 'Then' eludes me. Any offers?

Sandy

--

Dave Peterson