Check values within selection

[mucah!t]

Hi all,

Lets say one selects range A3:F6.
Is it possible via VBA to check if the values in range C3:C6 are equal.
The selection is always a range between A and F but the selected rows differ.

All help welcome

 

[mucah!t]

anyone?

 

[mucah!t]

Impossible?

 

[Jonmo1]

yes it's going to be possible, but we need a clearer explaination of what you want...

Wouldn't it be B3:E6 That is between A3:F6 ?

What logic determines which area to check?

 

[Weaver]

Is it text or numeric data?

If numeric, then this ought to work

Sub seltest
  if worksheetfunction.average(selection) = worksheetfunction.max(selection) then
    msgbox "All values in selection are equal"
  end if
end sub

 

[mucah!t]

Hello Weaver,
I already mentioned it in my first post.
all values in column C, that are selected, need to be the same

 

[Jonmo1]

Hello Weaver,
I already mentioned it in my first post.
all values in column C, that are selected, need to be the same

It was me who asked the question, Not Weaver..

And didn't mean to offend, but your question did not seem that clear to me. But I think I get it now...

Try

Sub test()
With Intersect(Selection, Range("C:C"))
    If Application.CountIf(.Cells, .Cells(1, 1)) = .Cells.Count Then
        MsgBox "All values in selection are equal"
    Else
        MsgBox "All values in selection are NOT equal"
    End If
End With
End Sub

 

[mucah!t]

Thanks for helping Weaver.
The data in column C are date's.
But your codes checks the whole selected range, while I need it to only check a small part of the whole selection [those selected values that are in column C]

 

[mucah!t]

Awesome Jonmo, works great!

 

[Jonmo1]

Glad to help, thanks for the feedback.