updating two sets of data
 

I have this formula under that I use to update the numbers in my
worksheet and is working find
But I have two sets of data now on the same worksheet coming from
a1:a20 starting from the number (1) one to number twenty (20) and the
other number also starting from a21: a100 starting from the number one
to number ninety
What is needed is two command buttons to update the first part from
a1:a20 and the other part from a21:a100

Sub BBB()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.Cells(2, 2), .Cells(2, 2).End(xlDown))
End With
Set rng = rng.Offset(0, -1)
rng(1) = 1
rng(2) = 2
rng(1).Resize(2, 1).AutoFill rng
End Sub

updating two sets of data
 

Hi Solid,

In accordance with your BBB macro, try:

'==============
Public Sub CCC()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.Cells(21, 2), .Cells(21, 2).End(xlDown))
End With
Set rng = rng.Offset(0, -1)
rng(1) = 21
rng(2) = 22
rng(1).Resize(2, 1).AutoFill rng

End Sub
'<<==============

BTW, I assume that:

other number also starting from a21: a100 starting from the
number one to number ninety

is a typo and you meant to refere to a 1-80 sequence.


---
Regards,
Norman


"solid" wrote in message
ups.com...
I have this formula under that I use to update the numbers in my
worksheet and is working find
But I have two sets of data now on the same worksheet coming from
a1:a20 starting from the number (1) one to number twenty (20) and the
other number also starting from a21: a100 starting from the number one
to number ninety
What is needed is two command buttons to update the first part from
a1:a20 and the other part from a21:a100

Sub BBB()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.Cells(2, 2), .Cells(2, 2).End(xlDown))
End With
Set rng = rng.Offset(0, -1)
rng(1) = 1
rng(2) = 2
rng(1).Resize(2, 1).AutoFill rng
End Sub

updating two sets of data
 

There are two sets of updating on the sheet one from a1 to a20 and
from a21 to a90 to be updated all number start from one
need to click a command to update the first one from a1to a20 and from
a21 to a90

updating two sets of data
 

Hi Solid,

Try:

'=============
Public Sub CCC()
Dim rng As Range

Set rng = ActiveSheet.Range("A1:A90")
rng(1) = 1
rng(21) = 1

rng(1).AutoFill Destination:=rng(1).Resize(20), _
Type:=xlFillSeries
rng(21).AutoFill Destination:=rng(21).Resize(70), _
Type:=xlFillSeries

End Sub

'<<=============


---
Regards,
Norman



"solid" wrote in message
oups.com...
There are two sets of updating on the sheet one from a1 to a20 and
from a21 to a90 to be updated all number start from one
need to click a command to update the first one from a1to a20 and from
a21 to a90

updating two sets of data
 

Thank you so mush, it work well thank again