Do...Loop???

[boxboy30]

How do I loop the following formula. If A2=A1 then sum(C2+C1)...keep that going until it is false. I've written the following code but I have to keep writing an IF statement in order for it to keep comparing the A column.

Sub Macro_test()
If [a2].Text = [a1].Text Then
[c1].Value = [b2].Value + [b3].Value
If [a3].Text = [a1].Text Then
[c1].Value = [b3].Value + [b2].Value + [b1].Value

Else: End If
Else: End If

End Sub

how do I keep it going without manually writing it?

 

[boxboy30]

What does this mean...

For i = 2 To LR + 1

I was able to use the other code thanks...

 

[Scott Huish]

It's a For Next Loop:

It will start the loop at a value of 2 and with each iteration (Next) it will execute the code in the loop until the value of LR+1 is reached.

A more simple example

For i=2 to 7
Msgbox i
Next i

 

[boxboy30]

ahhh...Thanks!

 

[boxboy30]

okay...next question for the day...

ActiveWorkbook.Worksheets("activeworkbook").Sort.SortFields.Clear

I want this code to work on any spreadsheet I have open...do I really have to have the name of the spreadsheet? Can't I just have it work on the activeworkbook? If so, what am i missing?

 

[cstimart]

you could change the "activeworkbook" to 1 or 2 or 3...etc...

 

[boxboy30]

you could change the "activeworkbook" to 1 or 2 or 3...etc...

I don't understand so the code would read

ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:= _
Range("D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

 

[cstimart]

If it's the first tab, yes.

 

[boxboy30]

Yeah! that worked...now how do I set a filter to delete certain information regardless how long it is....

example:

Selection.AutoFilter
ActiveSheet.Range("$F$1:$F$109585").AutoFilter Field:=1, Criteria1:= _
"Get Into It"
Range("4141:40478").Select
ActiveWindow.SmallScroll Down:=-234
Selection.Delete Shift:=xlUp
Selection.AutoFilter

the problem with this one is that if the spreadsheet is different than the one I'm working on it will delete all rows 4141:40478 and that might not contain the information I need it to delete. I want it to delete what was filter only, regardless of the which cells there are...can i do that?