Tamamlanmış

Excel Macro

I'm trying to create a macro in Excel 2003 that will go from one worksheet to another within a workbook and create a range name in each sheet that includes all the data within that sheet.

Since the amount of data will change up and down, the macro needs to be able to create a name what will always include all the data without leaving any out and without including any empty cells.

Once that is done, the macro would go to a master spreadsheet, clear the existing data, and then copy in the named ranges, with the ranges linked from the master to each of the individual sheets.

I've got all this worked out except for the fact that I always end up with an absolute reference to the range in the macro. For example, in the code below...

Range("A2").Select

Range("A2:F2").Select

Range(Selection, [url removed, login to view](xlDown)).Select

[url removed, login to view] Name:="Jeff",

RefersToR1C1:="=Jeff!R2C1:R150C6"

...notice that the range named "Jeff" is defined as the range of cells R2C1:R150C6. That's six columns and 150 rows. Although there will always be six columns, sometimes there will be 10 rows, and other times a much larger number.

How do I code this so that the range is defined by the area highlighted when I do the first part, as below?

Range("A2").Select

Range("A2:F2").Select

Range(Selection, [url removed, login to view](xlDown)).Select

Another related question is how to accomplish the same idea when setting the Print Area.

It would be fine if you just supply me with a sample of the code that would work in a similar situation.

## Deliverables

1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done.

2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables):

a) For web sites or other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Seller in ready-to-run condition in the Buyer's environment.

b) For all others including desktop software or software the buyer intends to distribute: A software installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request.

3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement).

## Platform

OS: Windows

Application: Excel (all versions since 97)

Beceriler: Mühendislik, Excel, Microsoft Access, Microsoft Exchange, MySQL, PHP, Powerpoint, Yazılım Mimarisi, Yazılım Test Etme, Visual Basic, Word

Daha fazlasını gör: hire to create excel spreadsheet, excel out source, excel macro how to, absolute hire, what is macro in excel, how to master excel, master excel, excel party hire, excel for hire, visual basic form excel, the print supply, hire macro coder, Hire Excel, f2, create excel worksheet, data excel work sheets, excel macro add, create workbook master workbook, sample visual basic excel, range macro excel

İşveren Hakkında:
( 14 değerlendirme ) Golden Valley, United States

Proje NO: #3152389

Seçilen:

icodeinvb

See private message.

%selectedBids___i_period_sub_7% gün içinde 21.25%project_currencyDetails_sign_sub_9% %project_currencyDetails_code_sub_10%
(316 Değerlendirme)
7.1

Bu iş için 8 freelancer ortalamada $23 teklif veriyor

lschauer

See private message.

$29.75 USD in 3 gün içinde
(73 Değerlendirme)
6.7
vw594130vw

See private message.

$30 USD in 3 gün içinde
(65 Değerlendirme)
4.3
tvernonvw

See private message.

$8.5 USD in 3 gün içinde
(18 Değerlendirme)
3.5
poloducadovw

See private message.

$42.5 USD in 3 gün içinde
(8 Değerlendirme)
2.1
kbprabhu

See private message.

$34 USD in 3 gün içinde
(0 Değerlendirme)
0.0
tbener

See private message.

$3.4 USD in 3 gün içinde
(0 Değerlendirme)
0.0
creatiffvw

See private message.

$17 USD in 3 gün içinde
(0 Değerlendirme)
0.0