Solved

Sweep a defined area replacing certain values with data contained within an array

Posted on 2014-01-26
1
140 Views
Last Modified: 2014-02-01
Hi,

What I am trying to do is define a two dimension array,

dim mydata (1 to 5, 1 to 2) as string

mydata(1,1)="[version]"
mydata(1,2)="v1.4.3"

Then, when a certain defined range within the sheet is changed, it does a check to see if any of the cells equal mydata(1,-) contain [version] and if they do it replaces them with mydata(,2)

So in this if I type into C3 "[update]" it will become v1.4.3 straight away.

This is my current code, which did work until I tried adding arrays in...

Private Sub Worksheet_Change(ByVal Target As Range)
   
Dim mydata(1 To 5, 1 To 2) As String
   
mydata(1, 1) = "[version]"
mydata(1, 2) = "v1.4.3"
   
    For lp = 1 To 40
        For lp2 = 1 To 40
       
            For lp3 = 1 To 5
                If Sheets("Sheet1").Cells(lp, lp2) = mydata(lp3, 1) Then
                    Sheets("Sheet1").Cells(lp, lp2) = mydata(lp3, 2)
                   
                   
                    Beep
                End If
            Next
       
       
        Next
    Next
   
End Sub




As you can see I am using a for loop to check 40 x 40 cells, other than fixing the above so it works please :)  Is there a better way to scan 40x40 cells and change values based on criteria from array?

Cheers
0
Comment
Question by:DemonForce
1 Comment
 
LVL 81

Accepted Solution

by:
byundt earned 500 total points
ID: 39810755
Assuming that the users are changing the values of the cells (rather than formulas), you should restrict the operation of the macro to those cells that are changed within the 40 x 40 cell grid of interest. Having done that, you can use VLOOKUP to return the new value.

Note that you need to fully populate the mydata array within the sub.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, targ As Range
Dim mydata As Variant, v As Variant
Set targ = Range("A1:AN40")     'Watch these cells for user-initiated changes
Set targ = Intersect(targ, Target)
If targ Is Nothing Then Exit Sub

    'Add additional Array blocks within the outer array for other rows in mydata array
mydata = Array(Array("[version]", "v1.4.3"), Array("[version1]", "v1.4.3a"))
    
For Each cel In targ.Cells
    Set v = Nothing
    v = Application.VLookup(cel.Value, mydata, 2, False)
    If Not IsError(v) Then
        Beep
        Application.EnableEvents = False
        cel.Value = v
        Application.EnableEvents = True
    End If
Next
End Sub

Open in new window

0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

INDEX and MATCH can be used to great effect to replace HLOOKUP and VLOOKUP as it does not have the limitation of needing the data to be sorted so that the reference value is in the first column or row. It also has the ability to perform a bi-directi…
Approximate matching with VLOOKUP and MATCH seems to me to be a greatly under-used technique, and one which is vital for getting good performance out of large lookups. Until recently I would always have advised using an exact match for simplicity an…
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.

805 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question