run a sequence of numbers based on values found in 2 columns

[rob.callaghan]

I am hoping someone can help my out with this as i don't even know where to start.

i'm after a macro that will loop through the column lets say A to identify blank cells and add the number 1 (i got this far)
i then want it to look in the adjacent column B at the time and for all rows with same time, sequence the numbers in column A under the 1 added earlier but only for these rows under the blank cell with the same time.

i hope that makes sense, i have added some data if it doesn't.

Thanks in advance.

[maclearyj]

Hi Rob (Is that the Rob Callaghan that used to work at BlueChip?)
I think you could achieve what you want without a macro. Assuming your data starts in row 3, this formula in A3 and copied down would give the numbers you want.

Please Login or Register  to view this content.

John Mac

[rob.callaghan]

Hi John,

Unfortunately no, i'm not the said Rob.

Thanks for the suggestion but the formula wont work for this as i only want it to work where there is a blank cell (in a possible 1000+ rows), i need the rest of the data unaffected.

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about. Tell us what you are trying to do, not how you think it should be done.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[rob.callaghan]

Sorry, now edited.

[Pepe Le Mokko]

Thanks
FYI also please do not quote entire posts unnecessarily. Use the " Quick reply" instead. Threads are then more easy to read

[rob.callaghan]

I am not doing well am i

all now understood - now can anybody help me out with this code, i've been searching all day for answers

[maclearyj]

Hi again Rob. Try this:

Please Login or Register  to view this content.

[Marc L]

As a VBA beginner starter :

Sub Demo1() 
                 Dim Rg As Range, L& 
    With [E3].CurrentRegion.Columns 
        If Application.CountBlank(.Item(3)) Then 
            For Each Rg In .Item(3).SpecialCells(xlCellTypeBlanks) 
                L = .Item(1).Find(Rg(1, -1), , , xlWhole, , xlPrevious).Row - Rg.Row + 1 
                Rg.Resize(L) = Evaluate("ROW(1:" & L & ")") 
            Next 
        End If 
    End With 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[rob.callaghan]

thank you both so much - both examples work perfectly

[hdean]

Are you Rob Callaghan that I worked with at Dalhousie University? Liked old sports cars?