for each loop

Hello, i am tring to run a "For Each" Loop in excel with the condition that if cells in selecton trends ("Like") with another range. Range("A:A").Select For Each MyCell In Selection If Mycell.value Like Range("B:B") Now I am not sure if I can run Like function against a range ... it works if...

Hey There. I have a general question. I find myself using the 'For Each' loop when going through either user selected ranges or pre-defined ranges to find cells that have specific values, are blank, or are non-blank. Is there a more efficient way to accomplish this? For example, I have a range...

I am compiling a list of BOMs. It will first list the assembly name, and then list all of it's components in the rows underneath. The assemblies name and fields pulled with it must be bold. The list of components underneath it must be group together, so i can collapse all the groups and just...

Greetings, The code below works correctly on certain sheets. The code is supposed to calculate the percent change from 1990 to 2012 and from 2005 to 2012, and put the calculations on the 4th and 5th row from the last non-empty row, respectively. All the sheets are identical except for 3. The...

Hi all... first post here. I tried looking for this in various Copy/Paste threads but couldn't find exactly what I needed... The following code works fine except for the fact that it takes a long time (2 to 3 secs in 5 lines) for this for loop to run and I'd like it to do the pasting in the...

Hello, I typically don't post questions because I can typically find my answer; however, I am having a very difficult time applying what I have found to my situation. I am new to VBA and have been using the record function to learn the basics of VBA Macros. So please accept my apology if this...

Hi there, I cannot seem to get the Excel vba to read the text/string within a cell, to give a specified result, it just ends up going to the 'Case Else' statement? Code: Sub StandardLifeInsuranceInvestmentBondNewStyleXX() Application.ScreenUpdating = False Dim rng As Range Dim cell As Range...

I have a list around 1,000 cells long in column A with about 100 unique values. I need to set up a For ... Next loop but only want the loop to run once per unique value. I've thought of copying the values to a temporary column and removing duplicates, then running the loop and deleting the...

Hi there, will do my best to be brief: I have the code below to loop through cells in column A and then place a result into column B based upon the value in column A. I also want the value of the cell to be put to Upper Case only for the purposes of comparison, i.e. I do not need it changed in...

Hi, I have the following code: Function Extract(Products As String) As String Dim softProdArray() As String Dim out As String Dim prod As Variant softProdArray = Split(Products, Chr(10)) For Each prod In softProdArray If InStr(prod, "ORACLE") > 0 Or InStr(prod, "SYBASE") > 0 Or...

Hi All New to the forum, please be gentle with me... Please see the macro below I found this combine macro found on the internet, it works perfectly on its own The Macro combines all the files in a particular folder and saves it as one However, I need it to combine the files in 89 separate...

Dim oFile As Object, oFolder As Object Set oFolder = CreateObject("scripting.filesystemobject").GetFolder("C:\") For Each oFile In oFolder.Files If InStr(1, oFile.Name, ".pdf", vbTextCompare) Then MsgBox oFile.Path Else: Next oFile ... Next oFile End Sub Naturally the above will throw up...

Hello, I am currently struggling to get my first loop working. When i run it i get "Run-time error '1004': Application-defined or object-defined error". This is the code that I am currently trying to run: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim oneAddresses As...

Hi all, appreciate any help you can offer On a regular basis I receive a file with multiple worksheets, each with a group of cells that I want to perform a simple conversion. Although I haven't used a For Each loop before, I get the idea and thought this would be the best way to go. The code...

I am trying to write a sub that compares the values from one range to the values in another range, and to perform certain functions if it finds a match. However, if the corresponding value is "N/A" I want the loop to automatically skip to the next checked value "a" . I do not know how to skip to...