Multiple Problems with a loop

Radtastic10 · #1 06-08-2017, 01:17 PM

I am currently having a problem with this loop.

Code:

 last_col = 1
 Do Until IsEmpty(Cells(last_col, 1))
    tempstr = ActiveSheet.Range(last_col & First_row).Value
    If InStr(tempstr, "(Apple)") > 0 Then
       str = Split(last_col & First_row, "(")
       ActiveSheet.Range(last_col & First_row).Value = str & "Red Apple"
    End If
    last_col = last_col + 1
  Loop

It is getting hung up when I try to store the value of the current cell in a temporary string. The goal of the loop is to go through the row of column titles and check if the substring is contained in that cell then switch it to the new title. However, it does not store anything in the temporary string when stepping through the loop.

NoSparks · #2 06-08-2017, 05:23 PM

Try using Cells, as you do in the IsEmpty line, rather than Range

Radtastic10 · #3 06-09-2017, 09:20 AM

Quote:

Originally Posted by NoSparks

Try using Cells, as you do in the IsEmpty line, rather than Range

I Just tried this and no luck. I appreciate the idea though; that had never even crossed my mind.

The incrimination portion of the loop works great. The only real problem as of now is getting the title of each column to save to the temporary string.

Radtastic10 · #4 06-09-2017, 09:38 AM

Figured out the problem. On the

Code:

tempstr = ActiveSheet.Cells(last_col, First_row).Value

The last_col and First_row needed to be flipped and have First_row, last col. I it was looking in row 1 column whatever instead of column 1 row whatever.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro Loop Help	Twizzle008	Word VBA	15	09-18-2015 03:20 PM
Loop - Row increment	jrt	Excel Programming	1	04-16-2015 01:46 PM
Having Problems with Multiple Keys	sorengg	Mail Merge	5	03-14-2013 10:06 PM
How to a For loop in VBA	Jennifer Murphy	Word VBA	1	01-29-2013 03:30 AM
While loop not working right	Cbrehm	Excel Programming	0	05-11-2011 11:05 AM