Do...Loop Error :: Loop Without Do

Dec 17, 2008

Can't seem to figure out why my Do Loop keeps giving me an Error of "Loop without Do".

View 14 Replies


Loop Within A Loop (repeat The Loop Values)

Mar 31, 2008

With Sheets("regrade pharm_standalone")
For Each r In .Range("standaloneTerritory")
If r.Value = "X101" Then
Sheets("X101").Range("A1").End(xlDown).Offset(1).PasteSpecial xlPasteValues
End If
Next r
End With
I need to repeat this loop for values from X101 to X151. In all cases, the sheet name is equal to the value I'm looking up (eg: value = X102 goes to sheet X102).

I have a named range called 'territories' that contains the list of X101 -> X152.

I'm hoping to make the code perform the loop for each of the territories without my having to copy & paste and change the 'X101' 51 times as this would seem a rather silly thing to do!

View 9 Replies View Related

Loop Through Multiple Files And Call Macros (but Unable To Loop)

May 14, 2014

Macro which loops through a number of files and calls the same macro in each of them. Unfortunately when I add "Application.Run..." to the code, it no longer loops through the process and instead stops after updating the first file in the loop. If I remove the "Application.Run..." code and add any other code, the loop works fine and it continues through the process repeating all the steps for each file found.

Why it stops after one file when using "Application.Run..." to call the macros?

NB I have a list of path and file names starting in row 8 of columns A and C. Each file in the list has a macro called UpdateS1 and promoupdate1.

Sub C_Run_Loop_Macro()
Dim lastRow As Long
Dim i As Long


View 4 Replies View Related

Store Row Number Within Loop And Delete All Stored Rows After Loop?

Sep 11, 2013

I have working code that returns a row number within a for loop based on parameters I set.

Each time the for loop runs I would like to store this row number, then after the loop has finished, delete all stored rows.

for rowNum = 1 to x (some variable end row number which I already have worked out using End(xlUp).Row)
if x = y then
*storedRow = rowNum
end if
next rowNum

Lines with a * are the bits I can't work out. I've been trying to understand arrays by reading posts on what other people have done, but I can't fit (or fully understand) the reDims, or reDim preserves into my code. I've seen what appear to be quite complex ways involving uBounds and LBounds, but unfortunately I can't see how to use them.

All I want is to simply keep adding a row numbers to a variable, (i.e. row 2, 5, 20, 33, 120, etc) and then delete those specific rows.

View 4 Replies View Related

Loop Through Cells And Ranges Reverse Order With Backwards Loop

Aug 30, 2006

I am looping through each cell in a range and I would like to loop in reverse order.

Dim CELL As range
Dim TotalRows As Long
TotalRows = Cells(Rows.Count, 1).End(xlUp).Row
For Each CELL In Range("C1", "C" & TotalRows)
'Code here to delete a row based on criteria

I have tried:

For Each CELL In Range("C" & TotalRows, "C1")

and it does not make a difference. I need to loop in reverse order since what I am doing in the loop is deleting a row. I am looking at a cell and determining its value. If the value is so much, then the row gets deleted. The problem is that the next row "moves up" one row (taking the pervious cell's address) and therefore the For Each Next loop thinks it has already looked at that row.

View 7 Replies View Related

Copy Cells In Loop Based On Loop Increment Being Multiplied

Feb 7, 2008

I have some numbers in a column that I need to copy 12 times (each one) into another column. The problem is that I got like 200 records that will be converted in 15000 aprox. I've uploaded an example of what I need,

View 3 Replies View Related

Loop Through Index Worksheets Using For Loop And Select Clause

Nov 4, 2013

I have a workbook that contains, say, 50 worksheets: the first two worksheets summarise the data and are static in that they don't move position. However, the next four worksheets contain certain data for any given month. Each time a new month comes along, say, November, I insert four new worksheets after the two static ones as a result October's four worksheets are simply moved down the line in terms of worksheet order.

I need a macro to refer to the first six worksheets only (not the other tabs). I opted for index referencing for each worksheet, ie one - six. Now within these six worksheets in any given month, I need to sort the data by a certain column. The problem: in sheets 1,4,5 and 6 I need to rank by column E, but in sheets 2 and 3 I need to rank by column C. I have stepped through the code, which works for sheets 3-6, but doesn't seem to refer to sheets 1-2.

Sub WorksheetLoop()
' Loop through an indexed number of worksheets; _
' & this ensures that the worksheet range is dynamic _
' and is able to adjust when new sheets are added/removed, etc.
'Dim ws As Worksheet
Dim i As Long
Dim ws As Worksheet


View 2 Replies View Related

Loop Without Do Error

Jul 24, 2009

I have cobbled together some code that I hoped would do the following:

Sort data
Copy all data from one person and put it on a sheet
Create a pivot on that data
populate another sheet based on that persons data
Save as a PDF
Clear the data and start again for the next employee

I have copied this from other macros I have used in the past. Up until now the parts I have been working on have been ok. however when I try and run it now I get a "Loop Without Do" error. I really can't figure out why.

View 3 Replies View Related

VBA Error In For Each Loop

Jan 30, 2012

I'm trying to do a for each loop in a row, I've tried to drill it down to be as simple as possible, but I keep getting the Run-time error '424': Object Required

I've tried to make it simple, with just inserting a 1 into the cells, still get the error.

Dim firstRow As Range
Dim rCell As Range
Set firsRow = Worksheets("MAIN").Range("F3", "AG3")
For Each rCell In firstRow 'error shows here
rCell.Value = 1
Next rCell

View 3 Replies View Related

Loop- Keep Getting Same Error

Sep 4, 2009

I need my macros to search for the word "Cancel" in columns "T". Once found, I need the macros to make that entire row a certain pattern ( .Pattern = xlGray16)

There will be other wording in these cells that contain "Cancel" or "Cancelled".

A compile error keeps occurring. It says "Ambiguous name detected: FormatCell"..

Sub DoCancelCells()

Dim strSearchString As String
Dim wksSheet As Worksheet
Dim rngSearchRange As Range
Dim intSearchCount As Integer

View 9 Replies View Related

Avoid Changing A Loop Counter Within A Loop?

Oct 24, 2009

I've worked on a solution for this thread ( but have been mentally challenged with how to avoid changing the loop counter in one of the loops I have used to resort an array of file names from the getopenfile dialog.

The aim of the shown code (see post 12 of the above link for attached file) is to check if the file containing the macro is included in the array returned by getopenfile while sorting the array of file names, and if so, moving it to the end of the array for "deletion" by redimming the array to exclude the last item. This problem of the open file being selected in the dialog may never arise, but... as the OP's request in the other thread was to allow two-way comparisons between numerous files, I've considered it likely enough to test for.

Here's the code I have settled for esp between the commented lines of hash symbols, which does change the counter (see the commented exclamation marks), but prevents an infinite loop (on my second try!) by using a second boolean flag of "HasCounterBeenChanged". Is there a better way of doing this? Or, alternatively (not in my thread title), is it possible to prevent the active file being selected through one of the arguments in the getopenfilename method?

View 3 Replies View Related

Loop That Keeps Producing Next Without For Error

Mar 24, 2014

I know it has something to do with the way I am trying to complete the loop.

I have tried next i, I have tried if's instead of the do until but can't get it to work.

I want it to cycle through the x and if a value is found then paste into the corresponding i row. If the x value is blank then exit the loop.

View 14 Replies View Related

Prevent Do While Loop From Doing Go To Error

Apr 4, 2014

I've got the following code which opens/gets the excel files from a specified directory and imports them into an open workbook. I've added a GoTo Error before my loop which checks if there are any files in the directory and shows an error message if it's the case. Problem is since the loop goes on till there are no more files in the directory, it goes back to the error. How to change that ?

View 3 Replies View Related

For Each Loop Run Time Error

Nov 24, 2008

I have created a macro to calculate data and add it to sheets over sheet 3. It has to do this for any number of sheets above sheet 3.

Below is the code i have created i am just getting an error at runtime which i dont know how to resolve or what i have done wrong

View 14 Replies View Related

Compile Error: Loop Without Do

Jul 20, 2009

VBA but familiar with other programming languages.

I have looked through previous posts with the same problem and I see that most people forget to add the "endIf" before looping. From what I can tell, I have ended all of my "If" statements.

The goal of this macro is to take temporary data and finding a match in other sheets and copying from "Temp" and pasting into the other sheets (possibly in the first blank cell, depending on the case) then deleting the row and moving on to the next row and repeating the process until "Temp" is empty.

View 9 Replies View Related

Getting Error For For Each Loop With If Statement

Nov 9, 2013

I am getting the Run-time error '380'. Could not set the value propery. Invalid property value.

I have a user form for data entry purpose which is working fine. Now, I am making a code for data editing purpose which pulls out data from the worksheet into the user form.

I am able to do this for text boxes and combo boxes that are not linked with each other. However I am getting a problem in the following case; I have a combo box and a text box that are linked to each other by combo box _change code which is below which may be the reason for the error I am getting for the next code...

Private Sub cmbColor_Change()
If cmbColor.Value = "Other" Then
lblColor.Visible = True


View 6 Replies View Related

VBA Add Error Handling To A Loop

Jan 17, 2014

My current code opens a file ("Report01.CSV") from the directories in column A (one at a time), and copies data into sheet 2.

The problem is that sometimes there is no ("Report01.CSV") file in one or more of the directories.

What I would like to add is an error handler that would remove the directory (delete that cell) that caused the error and continue with the loop. I.e. resume importing data from the other directories.

Dim wrkMyWorkBook As Workbook
Dim lngRow As Long: lngRow = 1
Dim lngColumn As Long: lngColumn = 2

Do Until Sheets("Sheet1").Range("A" & lngRow).Value = vbNullString
Set wrkMyWorkBook = Workbooks.Open(Filename:=Sheets("Sheet1").Range("A" & lngRow).Value & "" & "REPORT01.CSV")
lngRow = lngRow + 1

[Code] ......

View 9 Replies View Related

Sumproduct Loop Error #N/A

Mar 9, 2007

What is the trick for entering the following equation?


When I enter this equation, it yields an #N/A error

Perhaps the { is being entered incorrectly ?

View 9 Replies View Related

Loop Until Reference = Error

Mar 26, 2007

I'm trying to create a simply loop for an easy task of copying and then pasting a formula into other cells. Basically I'm trying to get this script to run until there is no more "slsperson" references to go to.

Sub z_Paste_Sales_Formula()
Dim i As Long
Dim icolumn As Integer
icolumn = 4
Cells(3, icolumn).Select
i = 1
Application.Goto Reference:="slsperson" & i
ActiveCell.Offset(1, 0).Select
sls_row = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
gp_row = ActiveCell.Row
Cells(sls_row, icolumn).Select
Number = i + 1
Loop Until Application.Goto Reference:="slsperson" & number = error
End Sub

View 9 Replies View Related

Receiving Error 1004 In Loop?

Aug 9, 2014

I'm receiving Error 1004 at these 2 lines:

Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

Option Explicit
Private Sub CommandButton1_Click()

'This code pulls only the data we need from Sheet1 and puts it on Sheet6[code]....

View 2 Replies View Related

Worksheet To PDF File LOOP ERROR

Mar 23, 2014

This is the code I am using, I can not remember where I got it from.

Sub PDF()
' Saves marked sheets as PDF file.
Const PDF_path = "c:
Dim Snr As Integer
Dim Name As String
'Process all sheets in workbook


This outputs all worksheets that have a specific value for A1, "Y".

My problem is it always prints exactly one too many, an extra copy. I think it may have to do with a broken loop?

View 1 Replies View Related

Print Area Loop Error

May 20, 2014

I have written a piece of code that sets the print area for the cells whose formulas are not blank as the result of the if formulas in them. The code works across the page.

In it's current state the loop should repeat four times as that is the number of non-blank cells. The loop I have is:

Do While CollSheet.Offset(0, i).Value ""
i = i + 1

This however, gets as far as i = 2 before completing the loop. To test why I wrote the following piece of code which loops the four times it is meant to. The trouble is I can't work why they aren't returning the same value as to my knowledge, they do the same thing. If I had to guess I think it's something to do with the cell being a merged cell.

Do While ActiveCell.Offset(0, 1).Value ""
ActiveCell.Offset(0, 1).Select

View 9 Replies View Related

Each Loop Says Object Or Application Defined Error

Aug 7, 2014

I am trying to run for_each_loop to in a module run an activity on other excel file.

Other excel file is having 8 sheets and loop is working fine till 4th. but when loop goes to 5th sheet it says Application defined or object defined error. I am confused because i have defined the objestSh as worksheet in the beginning.

This line of code creating problem.

Sh.Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible).Offset(1, 0).Copy

View 1 Replies View Related

Error Filling Array With Only Few Values Within Loop

Feb 26, 2014

I am trying to fill an array with only a few values within a loop (when XspacingA is 0.5, add the value of the Line to the array) and keep getting the error "Subscript out of range".

View 3 Replies View Related

Delete 5 Rows With Loop Without Throwing Up Error?

Dec 31, 2012

I have some code that is working great except that it throws up an error on the last run through because it doesn't find any more rows to delete. I've tried "On Error GoTo" but it doesn't catch it. It seemed to work on my home computer which is running Excel 2010 but then on Excel 2007 I get the debug screen and I don't want that to show up for other users that I share the code with.

Sub DeleteHeaders()
Dim lastrow As Integer
lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row


View 3 Replies View Related

Run-time Error 424: Object Required In For Each Loop

Oct 3, 2006

I am running regression statistics for several different columns of data. In order to help me analyze the data, I am organizing the output on a specified worksheet called "Best Subset." I have stored the column names of the data used in different regression calls in a range array called Reg_Labels. The Reg_Labels array may contain one, two, or sixteen column labels in one specific location (where each column label is stored in a separate cell). All possible column names are stored in the Labels array (each name is stored in a separate location). I basically need to check to see which column names were present in a particular array location in Reg_Labels. When a column name from a cell in Reg_Labels(I-1) matches a column name from Labels(K), I am placing an "X" on the designated spreadsheet to indicate which variable(s) has been used.

My For..Each Loop will not work for some odd reason, and I need to figure out why. I keep getting an error that an object is required. I need each cell in Reg_Labels(I-1) compared with Labels(K), and I thought the For..each loop would be the easiest way to do it.

I just don't understand what's going on if C is a range object and Reg_Labels(I-1) is a range object. Wouldn't this loop supposedly cycle through every cell in Reg_Labels(I-1)?

Have I messed up some sort of object reference? ....

View 6 Replies View Related

Loop Through Worksheets And Format Chart 1 - Runtime Error

Jun 27, 2014

I wrote a chart formatting macro, which works when applied to a specific sheet, and I'm trying use it in a for each loop. The macro is supposed to loop through a list of sheets and only format chart 1. I'm getting a "run time error 438: object doesn't support this property or method" at this line:

.ActiveChart.Shapes("TextBox 1").TextFrame.Characters.Text = "Bodily Injury (BI) Liability Claim Trends" & vbLf & " 2005-" & Range("K5").Value & " Percentage Change"

Here is my for each loop:

Sub UpdateTextAllStateCharts()
'This macro loops through worksheets in a list and performs the assigned task
Dim sheet_name As Range
For Each sheet_name In Sheets("WS").Range("C:C")
If sheet_name.Value = "" Then

[Code] .....

This line is also causing the same error:

With .Characters(42, 68).Font

View 2 Replies View Related

Loop Syntax: Method Range Global Error

Aug 31, 2007

This line fails, is Method Range Global error.... What is wrong w/ this, and how should it read?

If Range("D", i).Value = "Need Parent" Then
2nd Question- The following line is my normal method in doing a simple For Next Loop. What is the difference between using this one, looping through the cells and the first one referring to a Range for the loop?

If Cells(i, "D").Value = "Need Parent" Then

View 9 Replies View Related

Looping: Run The First Macro An Error Pops Up Saying That A Variable Within The Loop Is Not Set

Mar 27, 2007

the following code should determine whether the searched value can be found in more than just one row and than enlist certain values from each of those rows in ComboBox4 using a loop. Then I have a second macro which would assign appropriate values from a Sheet to other text boxes whenever one changes the value of the ComboBox4:

Private Sub ComboBox2_Change()
Dim vFind
Dim Firstaddress
Dim rFound As Range
Dim wsName As String
Dim SrchRng As Range
wsName = Me.ComboBox1.Value
With Worksheets(wsName)
vFind = UserForm2.ComboBox2.Value
Set rFound = .Range("B1")
Set SrchRng = .Range("B:B")
Option Explicit
End With...............................

While trying to run the first macro an Error pops up saying that a variable within the loop is not set. I've got no idea how to fix it

View 9 Replies View Related

OverFlow Error In For Loop Stepping Backwards With Byte

Sep 11, 2007

we would use a byte data type as a counter in a For Loop, but just today I have been having trouble with this. When I try to count backwards with " Step -1" I get an "error 6: overflow" on the FOR LOOP line. When I count forwards it works fine.

For example ....

View 9 Replies View Related

Copyrights 2005-15, All rights reserved