Loop through an Array, change values

[Darth269]

Hi there!

I want to loop through an array looking for the below values. IF it finds them, I want to change the value, if it doesn't, just move on.

[TABLE="width: 147"]
<colgroup><col></colgroup><tbody>[TR]
[TD]10 Very Easy[/TD]
[/TR]
[TR]
[TD]10 Demonstrated Well[/TD]
[/TR]
[TR]
[TD]10 Very Satisfied[/TD]
[/TR]
[TR]
[TD]1 Not Demonstrated[/TD]
[/TR]
[TR]
[TD]1 Not Satisfied[/TD]
[/TR]
[TR]
[TD]1 Not Easy

[/TD]
[/TR]
</tbody>[/TABLE]


The value will change to either 10 or 1 accordingly. Hope someone can help. The array is called FeedbackArray.

 

[Darth269]

That sounds like you have a 2d array in which case try

   Dim Sp As Variant
   Dim i As Long
   FeedbackArray = (Range("E3:E8").Value)
   For i = LBound(FeedbackArray) To UBound(FeedbackArray)
      Sp = Split(FeedbackArray(i, [COLOR=#ff0000]1[/COLOR]))
      If Sp(0) = "1" Or Sp(0) = "10" Then FeedbackArray(i, [COLOR=#ff0000]1[/COLOR]) = Sp(0)
   Next i

You wonderful human you.

Thanks, thats got it.

with my limited understanding of the code, I'm having to create multiple instances of this for each of the "columns" that I need to scan through, but thats still saving loads of time!


Thank you

 

[Fluff]

If you need to do it on all the columns in the array you could use

   Dim FeedbackArray As Variant
   Dim Sp As Variant
   Dim i As Long, j As Long
   FeedbackArray = (Range("E3:E8").Value)
   For i = LBound(FeedbackArray) To UBound(FeedbackArray)
      For j = LBound(FeedbackArray, 2) To UBound(FeedbackArray, 2)
         Sp = Split(FeedbackArray(i, j))
         If Sp(0) = "1" Or Sp(0) = "10" Then FeedbackArray(i, j) = Sp(0)
      Next j
   Next i