Colleagues, is a small macro that should:
1. take the entered data from the tab ("input") 2. create an array based on them (the array is called "ine").
Checking the macro using VBA shows no errors, but the array is created with zero values ...
Please tell me where you can find the error.
Have a look at https://stackoverflow.com/questions/24613101/vba-check-if-array-is-one-dimensional
Try use
ine(a) = Cells(b, 1).Value 'create values of array
instead
ine(a) = Cells(1, b).Value 'create values of array
Also use a debug for check you code.
Vladimir, you are right.
Final solution below.
Sub C_k()
Dim ine() As Currency
Dim r As Integer, a As Integer, b As Integer
Sheets("input").Select
r = Cells(Rows.Count, 1).End(xlUp).Row - 1
ReDim ine(r, 1)
For a = 1 To r
ine(a, 1) = Cells(a + 1, 1).Value
Next a@
End Sub
- Badges
- Science topic
- Similar topics
- Philosophy
- Esthetics
- Interpretation