Simple add on to macro?

[ppleasebob]

I have used the following code, as provided on this board for someone else,

Sub Job_Number()

Dim Startcell As Range

' The fist job number cell
Set Startcell = Range("A10")

If IsEmpty(Startcell) Then
' First Job number
Startcell = 1
Else
' Next job number
With Cells(Rows.Count, Startcell.Column).End(xlUp)
.Offset(1).Value = .Value + 1

End With
End If

End Sub

Can you suggest how I then copy the number that was generated above and paste it into Cell D5 on sheet named "Main"


Thanks for your assistance in advance

bob

 

[John Davis]

I have used the following code, as provided on this board for someone else,

Sub Job_Number()

Dim Startcell As Range

' The fist job number cell
Set Startcell = Range("A10")

If IsEmpty(Startcell) Then
' First Job number
Startcell = 1
Else
' Next job number
With Cells(Rows.Count, Startcell.Column).End(xlUp)
.Offset(1).Value = .Value + 1

End With
End If

End Sub

Can you suggest how I then copy the number that was generated above and paste it into Cell D5 on sheet named "Main"


Thanks for your assistance in advance

bob

Maybe this line after End if:

Sheets("Main").Range("D5").Value = ActiveSheet.Cells(Rows.Count, Startcell.Column).End(xlUp).Offset(1).Value + 1

 

[ppleasebob]

John,

Thanks for this however it doesn't quite do it, the second time you run the macro, it still returns the value of 1 rather than 2

Any ideas?