How can I fill a series in Nonadjacent cells eg Text 1, Text 2

[Guest]

How can I continue a series of Text and Number values if the cells are not
adjacent? The values would be something like: Text 1, Text 2 etc. I need
to be able to change the cell containing Text 1 to Text 12 for example and
have all the other cells fill in sequentially, so that I would have Text 12,
Text 13 etc.

 

[R..VENKATARAMAN]

I think of only a small macro (perhaps other solutions may be available)
give a name to the range of nonadjacent cells e.g. rv
then use this macro

Sub test()
Dim c As Range
Dim j As Integer
j = 0
For Each c In Range("rv")
j = j + 1
c = j
Next
End Sub

 

[RagDyer]

How / where are the cells you want to fill situated?

 

[Juikijui]

It would look something like this:

a1=Text 1 d1=Text 2
a2=Text 3 d2=Text 4

a12=Text 5 d12=Text 6
a13=Text 7 d14=Text 8

etc... to Text 160

 

[RagDyeR]

Where is the text data located?

Is it in a single column ... single row ... multiple locations?
--

Regards,

RD
----------------------------------------------------------------------------
-------------------
Please keep all correspondence within the Group, so all may benefit !
----------------------------------------------------------------------------
-------------------

It would look something like this:

a1=Text 1 d1=Text 2
a2=Text 3 d2=Text 4

a12=Text 5 d12=Text 6
a13=Text 7 d14=Text 8

etc... to Text 160

 

[Guest]

The text data is located in a single column. I don't mind entering a formula
in each of the 160 nonadjacent cells, I just need to be able to change the
starting numerical portion of the first cell and have that change all the
following numerical portions of each cell entry.

 

[RagDyer]

I believe that you'll need some code to accomplish all that you're asking
for.

Sorry, but I can't help with that.