Speed up Loop VBA

**Rasm** · 04-07-2012, 06:46 PM

Below is an example of code I use to find values - if a value exists more than once - then you have to loop - just be carefull as it will continue to loop back to where you started. My code below looks in a configuration sheet - then reads the value of that variable - two columns over - so modify the code to suit. But if you Google Foundcell - you will see lots of examples.

Code:

        Astr = ValueToFind
        RangeVal = "A1:" & Split(Cells(1, ColLast).Address, "$")(1) & LastRow
        With .Range(RangeVal)
            Set LastCell = .Cells(.Cells.Count)
        End With
        Set FoundCell = .Range(RangeVal).Find(What:=(Astr), after:=LastCell)
        If FoundCell Is Nothing Then
                Astr = ValueToFind
                Call Message106(Astr)
            Else
                ColDefault = FoundCell.Column + 2
                RowDefault = FoundCell.Row
                ReadValue = .Cells(FoundCell.Row, FoundCell.Column + 2)
        End If

Thread: Speed up Loop VBA

Thread Tools

Display

Threaded View

Similar Threads

VBA Code To Loop Cells In A Column One By One And Search In Another Sheet

VBA Trick of the Week :: Slicing an Array Without Loop - Application.Index

Vlookup Multiple Values By Adding Formula With Loop In VBA

data Transpose in VBA loop, choose the part I want to import!

Speed up excel to word VBA

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions