Range Selection error, please help

[dhlesg]

Hello,
I want to select a (moving) Range of cells so I can change some format on these cells
If my numberofcriteria =2 in this case I want to select Range "I7:K9"
-----------------------------
My code is
Dim numberofcriteria As Integer
numberofcriteria = Range("c7").Value
StartRange = Cells(7, 9)
EndRange = Cells(7, 9).Offset(numberofcriteria, numberofcriteria)
Cells(StartRange, EndRange).Interior.ColorIndex = 19

It got an error mesage when I run the code

-------------------------------

Thanks for your help

 

[nightcrawler23]

Dim numberofcriteria As Integer
Dim StartRange As Range

numberofcriteria = Range("c7").Value
Set StartRange = Cells(7, 9)
StartRange.Resize(numberofcriteria, numberofcriteria).Interior.ColorIndex = 19

 

[mirabeau]

Were you thinking of something like this?

Dim numberofcriteria As Integer
numberofcriteria = Range("c7").Value
Cells(7, 9).Resize(numberofcriteria, numberofcriteria).Interior.ColorIndex = 19

Since you didn't declare StartRange and EndRange as variables, might one assume that you weren't interested in them anyway?

 

[dhlesg]

Thank you nightcrawler and mirabeau. It works nicely

 

[dhlesg]

Another question.
Now I have square matrix, how do I select the range of the top half of the matrix

Thanks

 

[mirabeau]

Another question.
Now I have square matrix, how do I select the range of the top half of the matrix

Thanks

Maybe like this.

Sub selecttophalf()
Dim matr As Range
Set matr = Range("C10:F13")
matr.Resize(Int(matr.Rows.Count / 2)).Select
End Sub

Assuming your matrix is defined as the ordered elements of a range that is already specified somehow.

 

[dhlesg]

Sorry It is a diagonal half

 

[mirabeau]

Sorry It is a diagonal half

Maybe a bit more complex. But try

Sub selecttopdiaghalf()
Dim matr As Range, u As Range
Dim i As Long, j As Long
Set matr = Range("C10:F13")
Set u = matr(1, 1)
For i = 1 To matr.Rows.Count
    For j = 1 To i
    Set u = Union(u, matr(j, i))
Next j, i
u.Select
End Sub

 

[dhlesg]

Thank you very much. It works well.
I have a long way to go to be that good