Non-consecutive Loop Counter: The Counter Skip Values In Between

Jun 29, 2006

How can I write a For-Next Loop and have the counter skip values in between. For example:

For i = 8 to 17

When that is completed, the counter jumps to 21:

For i = 21 to 30

When that is completed, the counter jumps to 34:

For i = 34 to 43

View 3 Replies


Assign Loop Counter To Range Row

Jun 22, 2006

How do you assign a loop counter value to a range row value? Scenario: Add cells from a column that arenít successive. SUM C10 + C17 + C24 etc

Private Sub CommandButton1_Click()
Dim total As Integer
Dim counter As Integer
For counter = 10 To 700 Step 7
total = total + Range("Ccounter")
Next counter
End Sub

View 2 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

To Assign A Counter To The MsgBox- Exit Loop

Aug 31, 2007

This loop is to find if there is the string "Need Parent " in the range. If so the Msgbox notifies the user.

After it finds the string, the loop needs to exit- I tried to assign a counter to the MsgBox, but no go....

For i = 6 To lLrw
If Range("D" & i).Value = "Need Parent" Then
MsgBox "Stop. Parent Records Still Need To Be Created."
End If
ii = MsgBox + 1
If MsgBox > 0 Then Exit For
End If
Next i

View 9 Replies View Related

Put A Counter To 001 Rather That 1?

Feb 3, 2010

I want to use the macro to run an XML file but I would like the images to run from 001 to what ever say 300 is this possible? So rather that 1,2,3 the counter would be 001, 002, 003 etc.

View 3 Replies View Related

How To Put A Counter

Apr 28, 2009

I would like to put a counter (number) in my excel sheet. Consider that like a bill number. Any time I open my Excel I want to have new number on top. For example 201, 202 so on and so forth. I would appreciate if anyone had this project before and willing share it with me.

View 9 Replies View Related

Sum With Counter

Apr 13, 2007

I am using excel with system called PI, where i can retrive datas from network

I have proble with calculating day (With sum) becoz date is virying daily and data changes accordingly

22-Mar-07 23:40:101
23-Mar-07 23:40:101
24-Mar-07 23:40:101
25-Mar-07 23:40:101
26-Mar-07 23:40:101
27-Mar-07 23:40:101
28-Mar-07 23:40:101
29-Mar-07 23:40:101
30-Mar-07 23:40:101
31-Mar-07 23:40:101
01-Apr-07 23:40:101
02-Apr-07 23:40:100
03-Apr-07 23:40:100
04-Apr-07 23:40:100
05-Apr-07 23:40:100
06-Apr-07 23:40:100
07-Apr-07 23:40:100
08-Apr-07 23:40:100
09-Apr-07 23:40:101
10-Apr-07 23:40:101
11-Apr-07 23:40:101

For this example Now i want to start counting from 9th April.
Sure i dont want to calculate from 22 march to 1st april

Sure this wont be same every time, becoz after 10-15 days this figure will become zero and stays for 0 for 10-12 days and again become 1 and keep continue
So every day automatically 1 day go out from top and 1 day will add on bottom with either 0 or 1 (But if zero it will continue for few days or 1 than also case is same)

So i like to start counting from where it changes from 0 to 1 again
Hope i explained question properly

View 7 Replies View Related

Counter Reset To Zero?

Sep 15, 2014

Reset Counter to Zero:

I have Record ID on Column A: Auto Increment
I have a vendor Name on Column B: Vendor 1, Vendor 2, Vendor 3
I have a Code on Column C, Code A, Code B

What I want to happen is the Counter to count +1 each time. it sees the same vendor, same code and only to count to 4. As soon as it counts to 4; the next counter should be 0 (Zero).

Col A Col B Col C Col D
======= ====== ===== =======
Record ID Vendor Code Counter
======= ====== ===== =======
1 Vendor 1 Code A 1
2 Vendor 1 Code A 2
3 Vendor 1 Code A 3
4 Vendor 2 Code B 1
5 Vendor 1 Code A 4
6 Vendor 1 Code A 0
8 Vendor 2 Code B 2
9 Vendor 2 Code B 3
10 Vendor 1 Code B 4
12 Vendor 1 Code A 1
13 Vendor 1 Code A 2
14 Vendor 1 Code A 3
15 Vendor 2 Code B 0

It can be either in VBA or formula...

View 2 Replies View Related

Add A Counter To A Spreadsheet

Mar 28, 2008

we have a spreadsheet which we encourage our employees to use but not sure if they are or not. is it possible to put a counter onto the spreadsheet so we can see how many times it is being opened

View 10 Replies View Related

Offset(counter, 0)

Jun 11, 2009

I'm copying values from one workbook to another. Each value has to be checked, so I do this in two steps.

View 2 Replies View Related

VBA Counter With Increment Of 1

Sep 22, 2011

I have a input worksheet and in this user have to manually enter the sequence no. The sequence no. heading is not always in one cell that can be in any between any cell from D14 to D21.

I need some code which start the sequence no. with 1 and everytime I click add button. It find the sequence no. in range between D14: D21 and add 1 in the relavant adjacent cell (which can be in from E14 to E21).

See Table below

Start withColumn DColumn ERow No. can be any from 14 to 21Sequence No.1Clicked AddDesiredColumn DColumn ERow No. can be any from 14 to 21Sequence No.2DesiredColumn DColumn ERow No. can be any from 14 to 21Sequence No.previous val +1 and so on

View 2 Replies View Related

Use Sumproduct As Counter?

Feb 5, 2014

I am trying to use the sumproduct as a counter. I have done it numerous time with success; however, I am trying to use it where it incorporates a wildcard text to include or exclude as part of my count criteria:


My issue is that it does not recognize the wildcard, and does not return the correct item.

View 7 Replies View Related

Counter Macro

Apr 23, 2008

I will include the macro that I have completed so far. The problem is that Each time the macro is run, I need it to place a number next to the info in consecutive order. This should make sense after you run the macro.

Sub MacroIllinois()
'1 a Number
'2 Text (a string)

Dim i As String 'Give me a variable to save the name in
i = Application.InputBox("Enter your name please", Type:=2)

ActiveCell.FormulaR1C1 = ActiveCell.Value & Chr(10) & i
With ActiveCell.Characters(Start:=1, Length:=17).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 11
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub

View 9 Replies View Related

Season Day Counter

Sep 21, 2009

i have this formula in cell C14

="Today Is The "&U3-V7+1&"th Day Of "&IF(VLOOKUP(U3,AC10:AD17,2)="winter","Winter","")&IF(VLOOKUP(U3,AC10:AD17,2)="Fall","Fall","")&IF(VLOOKUP(U3,AC10:AD17,2)="Summer","Summer","")&IF(VLOOKUP(U3,AC10:AD17,2)="Spring","Spring","")

it returns " Today is the 92th Day Of Summer " *number and "Season" changes*

i want changing the 92th when the number changes.

so if it was 1 it would be "1st"

2 would be "2nd"

3 would be "3rd"

than 4-9 would be "4th,5th,6th..etc (as normal)

also counts for double digit number

21st 32nd 43rd

and also counting the is the 92 day of summer but when it gets to the 1st day of fall it going to say 94th day of fall..when i want it to say 1st day of fall... than start counting the days of fall than so on for each season..

here are the dates for the seasons

3/20 is spring
6/21 is summer
9/22 is fall
12/21 is winter
3/20/2010 is spring
6/21/"" is summer
9/22/"" is fall
12/21"" is winter

View 9 Replies View Related

Reset Counter

Jun 20, 2006

I am not experienced at all with Excel, here is my problem: In column "A": I have 288 rows and has nothing but numbers in them. Row 1 is the lowest number, row 288 is the highest number. In each row the numbers typically increase; every once in a while the numbers may stay the same, but the number will never be lower. The numbers range from 0 through 600,000.

What I want to do is have column "B" follow column "A" until the cell total reaches 12000. The next cell in column "B" would then reset and start all over from "0". I want it to keep on reseting every 12000 counts. Another potential problem is that a majority of the time the cell value will not be an even 12000, 24000, 36000 etc. They may be more like A40: 11742 A41: 13201 etc.

View 5 Replies View Related

Set Counter In A Cell

Sep 17, 2006

I have this in J22 (a counter that starts from the value of the cell):


We know that J22 value at the start is 0 (by excel default)..

Is it possible to change the value of J22 (using VBA) without losing the formula in the cell (for instance sometimes I need it to start from 3 and other times from 7..) ? I can't change it using another cell, I need to use only J22..

View 3 Replies View Related

Text Counter

Feb 28, 2007

I am trying to find out how to get a "counter" of sorts so i can tell how many times a certain word shows up in a given column.

View 9 Replies View Related

VBA - Attach Counter To Variable

Apr 1, 2013

I am trying to attach a counter to a variable. I am trying to attach the counter "k" to the variable "A", instead of separately writing code for A1, A2, A3, and A4. Each variable corresponds to the same worksheet function calculation (such as average in this case), but refers to a different set of data. So, if I run the following code, it does not work. I know how to do it using an array.

Option Explicit
Dim A1 As Double, A2 As Double, A3 As Double, A4 As Double
Dim k As Integer

[Code] ....

I have attached the excel file : Book1.xlsm

View 7 Replies View Related

Counter For (active) Sheets

Nov 27, 2008

I have a rather big worksheet with lots of sheets in it. I need to see in the frontpage how many sheets there are in total (-2, the frontpage & end sheet don't count) and how many sheets are currently shown (ie. not hidden, as there are vba-filters which sheets to display).

I don't really mind how it is shown, it could be one cell with 14/53 meaning 14 sheets shown of a total 53 or in seperate cells.

View 4 Replies View Related

Counter For Transactions Within Account

May 11, 2009

I need to have a running counter of transactions within an account.

Solved with: C2=COUNTIF($B$4:B4,B4)
(and copy down)
100122.50 3
1001 2.00 4
1001 5.00 5
100127.00 6
1013 .50 1
1013 2.50 2
1013 13.00 3

I need to solve for the Trans# I've included it here for clarity, but I need to be able to get that number based on the ACCTNO. Notice the Counter Resets to 1 when the ACCTNO changes from 1001 to 1013.

View 6 Replies View Related

Display As Counter With A Progress Bar

Jul 23, 2012

I have in cell A1, as display, a value [500]. This display is calculated in cell B1 [=200+300], here I may change the values. To draw attention, I want the display [500] to continuously start from 100 to 500 [like a counter where it stops at 500 and starts again from 100]. This display will be idle if the value is under 250.

It would be more lively if a progress bar is shown; maybe using the REPT function [REPT("I",50)] where the "I" starts over again and again after the 50th times is reached.

View 1 Replies View Related

Running Counter Out Of Control

Jan 30, 2009

The code below is supposed to keep a running total, however each time a formula in Cell B20 produces a value of 1, the counter counts at infinite. Where may the problem be?

Private Sub Worksheet_Calculate()
If Range("B20").Value = 1 Then
With Sheets("Sheet2").Range("A1")
.Value = .Value + 1
End With
End If
End Sub

View 9 Replies View Related

Counter For User Form

May 10, 2009

I have the following code in a user form....

Private Sub cbSearch_Click()
Dim Product As Range
Set Product = Sheets("Master").Range("A1:A300").Find(Val(tbLookFor), lookat:=xlWhole, LookIn:=xlValues)
If Product Is Nothing Then
MsgBox "Incorrect Product code, try again"
'Populate the userform with data
Dim counter
counter = (0) + 1
Label35 = counter
tbData1 = Product.Offset(0, 1) 'Down 1 row, over 1 column
tbData2 = Product.Offset(0, 2)
tbData3 = Product.Offset(0, 3)
tbData4 = Product.Offset(0, 4)
etc, etc, etc
I need the counter to increase every time a search is performed, at the moment it only does one count, no matter how many searches are performed.

What do I need to add to the counter part of the code for it to increase by 1 every time?

View 9 Replies View Related

Sports Team W/L Counter.

Jan 8, 2010

i want columns T,U,V,W to continuously count wins and lost for the teams..if i

change the teams names i want T,U,V,W to read "0".

Any team can play any one.

also this is kinda a part 2 (really small part)

I'm trying to use Today function but cant get it to count every other day..

so for example tomorrow will also read "January 7th 2010"





Team 1VSTeam 2W/L Count


LostWinTeam 1Team 2



7 .......................

View 9 Replies View Related

Visual Counter On Form

Apr 11, 2007

I have a workbook that has a login form. I set it up so that if the user does not log in within 2 minutes a nother form will pop up telling them the workbook will close due to no activity. What I want to do is put a timer on that for that counts down the seconds before the workbook exits and at the sametime give them an opportunity to cancel the action.

way to make anything that ticks of the seconds and allows me to press the cancel button at the same time.

View 9 Replies View Related

Increment Counter Between Date Range

Feb 13, 2014

I have a list of information contained in a massive spreadsheet. I am trying to create a counter that increments starting with 1 up to X between two date ranges. The increment counter should start with 1 for the easiest date and increment up X up to the last item in the list. The list contains tasks names with some tasks have dates but there are some tasks that don't have dates (blank cells).

View 6 Replies View Related

Create Automatic Counter For The Names

Dec 17, 2008

I created a poll in my website, which have a field for the users write. The field says: "What is the name of your best friend?" And the users have to write the names.
So... I got a big big excel file, and now I want to know the most "friendly names" of the pool. You know, I have to create a automatic counter for the names. Like:

John = 4560
Ken = 1304

View 3 Replies View Related

Counter Macro On Image Click

Feb 4, 2009

I wanted to add a counter macro where when a certain image is clicked on my spreadsheet, it will add 1 or take away 1 number in a specified cell on my spreadsheet. For instance, if my cell A1 had the number 0 in it, and I had 2 images beside it (a "+" and a "-"), when the "+" image is clicked, I need it to add 1 to cell A1, making it 1, and vice versa if clicking the "-" image for -1. I want it to be cumulative, so every time you click "+", the number in A1 will increase to 1, 2, 3, 4, etc, and same with the "-" making it -1, -2, -3, -4, etc.

View 3 Replies View Related

Var Formula With Range Based On Counter

Feb 23, 2012

I have a macro that I am working on that, I hope, will calculate the variance in my worksheet. The issue is, I am removing the outliers from my formula, so I need to loop through a range counting the "non-outliers." When the loop is complete I will know the last cell needed for my range. How would I take that variable and turn it into a range, similar to this: "A2:a(count)"

Here is what I have currently

Dim cell As Range
Dim count As Integer
Dim var As Long
var = 0
count = 0


View 1 Replies View Related

Macro To Save A File With Last Row Counter

Feb 5, 2013

The code I wrote to save a file with the last row counter and month counter looks as follows (this was working on my Mac)

ActiveWorkbook.SaveAs FileName:= _
"Macintosh HD:Users:myratriegaardt:Desktop:Quotes" & M & ":Quote" & LastRow & ":QuoteHG" & LastRow & ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

I converted it to put on Windows,

ActiveWorkbook.SaveAs FileName:= _
"C:UsersCape CratingDesktopQuotes" & M & "Quote" & LastRow & "QuoteHG" & LastRow & ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

This however gives an error.

View 2 Replies View Related

Copyrights 2005-15, All rights reserved