RangeName blocks of data

[Guest]

Hi All........
I'm back with another Range problem, if someone would be so kind.

I have a database of 12 columns wide and several hundred rows high. Column
A has only values in it's cells corresponding with the beginning of a
"datablock"...ie:, with a value in A1 and A10....all the data in row 1 to
whatever row is just above the next value in column A.........(in this case
row 9) is associated with cell A1 and I would like to create a range of that
block of cells, starting with A1 as upper left cell and these rows and 12
columns wide (A1:L9 in this case) .

The macro should continue to create the next block of data starting with the
second value in column A and however many rows are below it to the next
value in column A, etc etc...as example, the third value in column A might be
in A14, so the next Range should be established as A10:L13. In actual
practice, I will never know what the spacing down column A will be, nor how
many values will be in column A, but the data will always be 12 columns wide.

Each Range should bear the name of the value of it's respective Upper-left
cell found in column A.

Any assistance will be much appreciated.....

TIA
Vaya con Dios,
Chuck, CABGx3

 

[Tom Ogilvy]

No code written to handle a single row name (two contiguous cells in column
A containing data)

Sub AddNames()
Dim rng As Range
Dim rng1 As Range
Dim rng2 As Range
Dim cell As Range
Set rng = Cells(Rows.Count, 2).End(xlUp)(2, 0)
rng.Value = "Dummy"
Set rng1 = Columns(1).SpecialCells(xlConstants)
For Each cell In rng1.Areas
If cell.Count > 1 Then
' no stated requirement to handle this
Else
If cell.Row <> 1 Then
Set rng2 = cell.Offset(-1, 0).End(xlUp)
Range(rng2, cell.Offset(-1, 0)).Resize(, 12).Name = rng2.Text
End If
End If
Next
rng.EntireRow.Delete
ActiveSheet.UsedRange
End Sub

 

[Guest]

That code of yours is just absolutely SUPER, Tom.
It does exactly what I had hoped.
Thank you so very very kindly!

Vaya con Dios,
Chuck, CABGx3

 

[Guest]

If I understand you correctly you want to capture blocks of cells adjacent to
a heading in column "A", for the next 11 columns. Here's what I came up with.
It requires a temporary value in the row following the last row of data, and
it's removed after the loop.

Sub NameMyRanges()

Dim CurrentBlock As Range
Dim NextBlock As Range, EndBlock As Range
Dim RangeToName As Range

Set EndBlock = Cells(Rows.Count, 2).End(xlUp)(2, 0)
EndBlock.Value = "End"

Set CurrentBlock = Range("$A$1")

Do
Set NextBlock = CurrentBlock.End(xlDown)
Set RangeToName = Range(CurrentBlock.Address, NextBlock.Offset(-1, 11))
RangeToName.Name = CurrentBlock.Value
Set CurrentBlock = NextBlock
Loop Until NextBlock = EndBlock

EndBlock.ClearContents

End Sub


Regards,
GS

 

[Guest]

To assign a local name (sheet level), replace this line:

RangeToName.Name = CurrentBlock.Value

with this one:

RangeToName.Name = "'" & ActiveSheet.Name & "'!" & CurrentBlock.Value


Regards,
GS

 

[Tom Ogilvy]

You can also make a local name (sheet level) with

Activesheet.Names.Add Name:=CurrentBlock.Value, _
Refersto:="=" & RangeToName.Address(-1,-1,xlA1,True)

for Workbook Level

ActiveWorkbook.Names.Add Name:=CurrentBlock.Value, _
Refersto:="=" & RangeToName.Address(-1,-1,xlA1,True)

 

[Guest]

Hi Tom,

Prior to my original post, there were no others. There seems to be a time
delay for updating the forum. (I think we've seen this before) Had I seen
your post, I wouldn't have bothered as it's good "as is".<FWIW>

The switch to using local names was an afterthought in case there were other
sheets in the wbk that could possibly end up replacing global name references.


(If I may...) -question regarding your interesting alternative to making the
local names; why the (-1, -1, xlA1, True) when .Address is all that's
necessary? <-Just curious!><g>

Regards,
Garry

 

[Tom Ogilvy]

I guess because I didn't feel that address is all that is necessary.