Re: $$Excel-Macros$$ Creating and naming multiple ranges
Hi Don, why do you believe this is a bad idea? I'm just curious. any ideas as to how else to go about this task? On Feb 17, 10:11 am, dguillett1 dguille...@gmail.com wrote: I REALLY think this is a BAD idea in that there are other and BETTER ways to do this without cluttering your project with a bunch of names . But, if you insist. Sub namecolumns() dim I as long For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, i).Resize(Cells(Rows.Count, i).End(xlUp).Row).Name = Cells(1, i) Next i End Sub Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 8:50 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Creating and naming multiple ranges Hello, I have a spreadsheet and It has many columns and I want to create a range for each column automatically and name it based on the value at the top row. Unfortunately, this code i created doesn't work. Can anyone help me fix this code? Any help would be great! Sub test() Dim icol As Integer Dim cell1(200), cell2, rng(200) As Range j = 1 For icol = 1 To 121 Set cell1(j) = Cells(1, icol) Set cell2 = cell1(j).End(xlDown) Set rng(j) = Range(cell1(j), cell2) rng(j).Name = cell1(j) rng(j).Select j = j + 1 Next icol End Sub -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ Creating and naming multiple ranges
In my experience many names just serve to clutter the file. Tell us what you want to do with the named ranges along with any related macro you have developed and you will bet comments. Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 9:26 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges Hi Don, why do you believe this is a bad idea? I'm just curious. any ideas as to how else to go about this task? On Feb 17, 10:11 am, dguillett1 dguille...@gmail.com wrote: I REALLY think this is a BAD idea in that there are other and BETTER ways to do this without cluttering your project with a bunch of names . But, if you insist. Sub namecolumns() dim I as long For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, i).Resize(Cells(Rows.Count, i).End(xlUp).Row).Name = Cells(1, i) Next i End Sub Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 8:50 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Creating and naming multiple ranges Hello, I have a spreadsheet and It has many columns and I want to create a range for each column automatically and name it based on the value at the top row. Unfortunately, this code i created doesn't work. Can anyone help me fix this code? Any help would be great! Sub test() Dim icol As Integer Dim cell1(200), cell2, rng(200) As Range j = 1 For icol = 1 To 121 Set cell1(j) = Cells(1, icol) Set cell2 = cell1(j).End(xlDown) Set rng(j) = Range(cell1(j), cell2) rng(j).Name = cell1(j) rng(j).Select j = j + 1 Next icol End Sub -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ Creating and naming multiple ranges
Well, I wanted to loop through each column in this sheet and name it as a range based on the first cell of each column, so that I can refer back to a particular range with some formulas on the sides later on. https://www.box.net/shared/57z5y97q7hrnuovp9eun On Feb 17, 11:03 am, dguillett1 dguille...@gmail.com wrote: In my experience many names just serve to clutter the file. Tell us what you want to do with the named ranges along with any related macro you have developed and you will bet comments. Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 9:26 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges Hi Don, why do you believe this is a bad idea? I'm just curious. any ideas as to how else to go about this task? On Feb 17, 10:11 am, dguillett1 dguille...@gmail.com wrote: I REALLY think this is a BAD idea in that there are other and BETTER ways to do this without cluttering your project with a bunch of names . But, if you insist. Sub namecolumns() dim I as long For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, i).Resize(Cells(Rows.Count, i).End(xlUp).Row).Name = Cells(1, i) Next i End Sub Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 8:50 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Creating and naming multiple ranges Hello, I have a spreadsheet and It has many columns and I want to create a range for each column automatically and name it based on the value at the top row. Unfortunately, this code i created doesn't work. Can anyone help me fix this code? Any help would be great! Sub test() Dim icol As Integer Dim cell1(200), cell2, rng(200) As Range j = 1 For icol = 1 To 121 Set cell1(j) = Cells(1, icol) Set cell2 = cell1(j).End(xlDown) Set rng(j) = Range(cell1(j), cell2) rng(j).Name = cell1(j) rng(j).Select j = j + 1 Next icol End Sub -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
Re: $$Excel-Macros$$ Creating and naming multiple ranges
I thought about the suggestion you made before but I didn't want to have to name each range one-by-one. It looks like i would have to. On Feb 17, 11:59 am, dguillett1 dguille...@gmail.com wrote: How about a couple of formula examples so we can make suggestions. Here is an example of mine to find aq3 '=OFFSET(A1,2,MATCH(scheduled interest,1:1,0)-1) Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 10:40 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges Well, I wanted to loop through each column in this sheet and name it as a range based on the first cell of each column, so that I can refer back to a particular range with some formulas on the sides later on. https://www.box.net/shared/57z5y97q7hrnuovp9eun On Feb 17, 11:03 am, dguillett1 dguille...@gmail.com wrote: In my experience many names just serve to clutter the file. Tell us what you want to do with the named ranges along with any related macro you have developed and you will bet comments. Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 9:26 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges Hi Don, why do you believe this is a bad idea? I'm just curious. any ideas as to how else to go about this task? On Feb 17, 10:11 am, dguillett1 dguille...@gmail.com wrote: I REALLY think this is a BAD idea in that there are other and BETTER ways to do this without cluttering your project with a bunch of names . But, if you insist. Sub namecolumns() dim I as long For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, i).Resize(Cells(Rows.Count, i).End(xlUp).Row).Name = Cells(1, i) Next i End Sub Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 8:50 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Creating and naming multiple ranges Hello, I have a spreadsheet and It has many columns and I want to create a range for each column automatically and name it based on the value at the top row. Unfortunately, this code i created doesn't work. Can anyone help me fix this code? Any help would be great! Sub test() Dim icol As Integer Dim cell1(200), cell2, rng(200) As Range j = 1 For icol = 1 To 121 Set cell1(j) = Cells(1, icol) Set cell2 = cell1(j).End(xlDown) Set rng(j) = Range(cell1(j), cell2) rng(j).Name = cell1(j) rng(j).Select j = j + 1 Next icol End Sub -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge
Re: $$Excel-Macros$$ Creating and naming multiple ranges
Hi Matt
you need to remove spaces , , etc sign from header while creating name
ranges
like
p i in cell aa1 remove sign
try these
Sub dynamic_Name_ranges()
Dim rng As Range
Dim I As Integer
For I = 1 To 49
Set rng = Sheets(1).Range(Sheets(1).Cells(2, I).Address :
Sheets(1).Cells(Range(a1048576).End(xlUp).Row, I).Address)
ActiveWorkbook.Names.Add Name:=Replace(Sheets(1).Cells(1, I).Value, ,
_), RefersTo:= _
=OFFSET(' Export To Excel '! Sheets(1).Cells(1, I).Address
,0,0,COUNTA(' Export To Excel '!$A:$A),1)
Next
End Sub
Sub non _dynamic_Name_ranges()
Dim rng As Range
Dim I As Integer
For I = 1 To 49
Set rng = Sheets(1).Range(Sheets(1).Cells(2, I).Address :
Sheets(1).Cells(Range(a1048576).End(xlUp).Row, I).Address)
'ActiveWorkbook.Names.Add Name:=Replace(Sheets(1).Cells(1, I).Value, ,
_), RefersTo:=rng
ActiveWorkbook.Names.Add Name:=Replace(Sheets(1).Cells(1, I).Value, ,
_), RefersTo:=rng
Next
End Sub
--
Thanks regards,
Noorain Ansari
*http://noorainansari.com/*
*http://excelmacroworld.blogspot.com/*http://excelmacroworld.blogspot.com/
On Fri, Feb 17, 2012 at 10:29 PM, dguillett1 dguille...@gmail.com wrote:
How about a couple of formula examples so we can make suggestions.
Here is an example of mine to find aq3
'=OFFSET(A1,2,MATCH(scheduled interest,1:1,0)-1)
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message- From: Matt
Sent: Friday, February 17, 2012 10:40 AM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges
Well, I wanted to loop through each column in this sheet and name it
as a range based on the first cell of each column, so that I can refer
back to a particular range with some formulas on the sides later on.
https://www.box.net/shared/**57z5y97q7hrnuovp9eunhttps://www.box.net/shared/57z5y97q7hrnuovp9eun
On Feb 17, 11:03 am, dguillett1 dguille...@gmail.com wrote:
In my experience many names just serve to clutter the file. Tell us what
you
want to do with the named ranges along with any related macro you have
developed and you will bet comments.
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Matt
Sent: Friday, February 17, 2012 9:26 AM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges
Hi Don, why do you believe this is a bad idea? I'm just curious.
any ideas as to how else to go about this task?
On Feb 17, 10:11 am, dguillett1 dguille...@gmail.com wrote:
I REALLY think this is a BAD idea in that there are other and BETTER
ways
to
do this without cluttering your project with a bunch of names . But, if
you
insist.
Sub namecolumns()
dim I as long
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).**Column
Cells(1, i).Resize(Cells(Rows.Count, i).End(xlUp).Row).Name = Cells(1,
i)
Next i
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Matt
Sent: Friday, February 17, 2012 8:50 AM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ Creating and naming multiple ranges
Hello, I have a spreadsheet and It has many columns and I want to
create a range for each column automatically and name it based on the
value at the top row. Unfortunately, this code i created doesn't work.
Can anyone help me fix this code?
Any help would be great!
Sub test()
Dim icol As Integer
Dim cell1(200), cell2, rng(200) As Range
j = 1
For icol = 1 To 121
Set cell1(j) = Cells(1, icol)
Set cell2 = cell1(j).End(xlDown)
Set rng(j) = Range(cell1(j), cell2)
rng(j).Name = cell1(j)
rng(j).Select
j = j + 1
Next icol
End Sub
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook.
Forum
owners and members are not responsible for any loss.
--**--**
---
---
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions
Re: $$Excel-Macros$$ Creating and naming multiple ranges
Matt. Did you try this? I didn't name the ranges, I just went and looked for the column with the name at the top... Examples of YOUR formulas that would require named ranges___? Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 11:35 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges I thought about the suggestion you made before but I didn't want to have to name each range one-by-one. It looks like i would have to. On Feb 17, 11:59 am, dguillett1 dguille...@gmail.com wrote: How about a couple of formula examples so we can make suggestions. Here is an example of mine to find aq3 '=OFFSET(A1,2,MATCH(scheduled interest,1:1,0)-1) Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 10:40 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges Well, I wanted to loop through each column in this sheet and name it as a range based on the first cell of each column, so that I can refer back to a particular range with some formulas on the sides later on. https://www.box.net/shared/57z5y97q7hrnuovp9eun On Feb 17, 11:03 am, dguillett1 dguille...@gmail.com wrote: In my experience many names just serve to clutter the file. Tell us what you want to do with the named ranges along with any related macro you have developed and you will bet comments. Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 9:26 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Creating and naming multiple ranges Hi Don, why do you believe this is a bad idea? I'm just curious. any ideas as to how else to go about this task? On Feb 17, 10:11 am, dguillett1 dguille...@gmail.com wrote: I REALLY think this is a BAD idea in that there are other and BETTER ways to do this without cluttering your project with a bunch of names . But, if you insist. Sub namecolumns() dim I as long For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, i).Resize(Cells(Rows.Count, i).End(xlUp).Row).Name = Cells(1, i) Next i End Sub Don Guillett SalesAid Software dguille...@gmail.com -Original Message- From: Matt Sent: Friday, February 17, 2012 8:50 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Creating and naming multiple ranges Hello, I have a spreadsheet and It has many columns and I want to create a range for each column automatically and name it based on the value at the top row. Unfortunately, this code i created doesn't work. Can anyone help me fix this code? Any help would be great! Sub test() Dim icol As Integer Dim cell1(200), cell2, rng(200) As Range j = 1 For icol = 1 To 121 Set cell1(j) = Cells(1, icol) Set cell2 = cell1(j).End(xlDown) Set rng(j) = Range(cell1(j), cell2) rng(j).Name = cell1(j) rng(j).Select j = j + 1 Next icol End Sub -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- --- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate
