Macro Help

[James]

I have a set a data that comes to me about 3 or 4 times a week. The data
looks like this
A B C ---->Columns
12 1001 0
35 2.5
28 5.8
30 8
29 1035 0
56 3
42 6.2
22 2021 0
11 2.2
60 9.2

I am just concerned with column B and column C. A new sample ID starts
every time when there is a 0 in column C. I need something that will
increase the number in column B by 1. So for the first set I would want
column B to go from 1001, 1002, 1003, 1004. But when we hit the new sample ID
1035, I need the numbers to go 1035, 1036 etc... Below is what I would like
it to end up as:

A B C ---->Columns
12 1001 0
35 1002 2.5
28 1003 5.8
30 1004 8
29 1035 0
56 1036 3
42 1037 6.2
22 2021 0
11 2022 2.2
60 2023 9.2

Thanks for any help.

 

[Harald Staff]

Sub test()
Dim D As Double
Dim R As Long
For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Val(Cells(R, 2).Value) > 0 Then
D = Val(Cells(R, 2).Value)
Else
D = D + 1
Cells(R, 2).Value = D
End If
Next
End Sub

HTH. Best wishes Harald

 

[Don Guillett]

Sub fillin()
lr = Cells(Rows.Count, "a").End(xlUp).Row
For i = 2 To lr
If Cells(i, "b") = "" Then Cells(i, "b") _
= Cells(i - 1, "b") + 1
Next i
End Sub

 

[James]

It WORKS!!!! Thank you for answering me so quickly this will definately help
my workflows.

 

[Harald Staff]

You're welcome. Really appreciate the feedback.

Best wishes Harald