Matix

**oglcngcmn** · 01-12-2015, 08:04 AM

I need a matrix that I do not know 4x4 or 5x5. It changes case by case.
So how can I creat a matrix?

**TMS** · 01-12-2015, 08:42 AM

Sub Test()

Dim vMatrix()

Const x As Long = 4
Const y As Long = 4

vMatrix = Range("A1:C3")

'ReDim vMatrix(1 To x, 1 To y)
ReDim Preserve vMatrix(1 To x, 1 To y)

End Sub

Regards, TMS

**oglcngcmn** · 01-12-2015, 08:48 AM

Originally Posted by TMS

Sub Test()

Dim vMatrix()

Const x As Long = 4
Const y As Long = 4

vMatrix = Range("A1:C3")

'ReDim vMatrix(1 To x, 1 To y)
ReDim Preserve vMatrix(1 To x, 1 To y)

End Sub

Regards, TMS

Why did you write Last 2 line? for what?

**TMS** · 01-12-2015, 08:56 AM

vMatrix = Range("A1:C3")

reads in a fixed worksheet range

ReDim vMatrix(1 To x, 1 To y)

would resize the matrix BUT destroy the contents

ReDim Preserve vMatrix(1 To x, 1 To y)

would resize the matrix but retain (preserve) the contents

I wrote them because they are examples of resizing an array. I do not know what you will be doing or how you will be doing it hence some variations on a theme.

Regards, TMS

**oglcngcmn** · 01-12-2015, 08:59 AM

One more question,

 Dim matrix()
For i = 2 To 10000

If Cells(i, "C").Value = main_part Then
matrix= Cells(i, "A").Value

End If
Next i

Why it is not working? I cannot appoint variable to matrix

**TMS** · 01-12-2015, 09:09 AM

Where is main_part defined? What does it contain?

Option Explicit

Sub Test2()

Dim matrix(), i As Long
Const main_part As String = "Test"

ReDim matrix(1 To 10000)

'For i = 2 To 10000
For i = 2 To 30 ' for testin
    
    If Cells(i, "C").Value = main_part Then
        matrix(i) = Cells(i, "A").Value
        Debug.Print Range("A" & i); Range("C" & i); matrix(i)
    End If
Next i
End Sub

Regards, TMS