updating two sets of data

  • Thread starter Thread starter solid
  • Start date Start date
S

solid

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
 
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
Click to expand...

is a typo and you meant to refere to a 1-80 sequence.
 
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
 
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

'<<=============
 
Back
Top