#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 28
Default range

hi...

i want to replace Range("AK73:AO102") ...proper address so as to remove
the hardcoding. i know the lastcell number of my sheet . but how do i
replace the above with proper using '&' ... i tried but it doesn't work !

Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AK73:AO102"), Type:=xlFillDefault
Range("AK73:AO102").Select

thanks
monika



  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,885
Default range

Hi Monika
try
Range("AK73:AO" & last_row_var)


--
Regards
Frank Kabel
Frankfurt, Germany

monika wrote:
hi...

i want to replace Range("AK73:AO102") ...proper address so as to
remove the hardcoding. i know the lastcell number of my sheet . but
how do i replace the above with proper using '&' ... i tried but it
doesn't work !

Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AK73:AO102"),
Type:=xlFillDefault Range("AK73:AO102").Select

thanks
monika

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 28
Default range

no..say column AK heading is "package" and column AO heading is "Pins".

I will find add as :
set range1 = cells.find("Package")
set range2 = cells.find("Pins")

now i know from which column to start. say its range1.column

now i want to replace....Range("AK73:AO102") as:

range(range1.column & lnewrng.row & ":" & range2.column & lastcellnum)

i tried a few combinations like this ... .which didn't work.

I hope i am clear

thanks
Monika
"Frank Kabel" wrote in message
...
Hi Monika
try
Range("AK73:AO" & last_row_var)


--
Regards
Frank Kabel
Frankfurt, Germany

monika wrote:
hi...

i want to replace Range("AK73:AO102") ...proper address so as to
remove the hardcoding. i know the lastcell number of my sheet . but
how do i replace the above with proper using '&' ... i tried but it
doesn't work !

Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AK73:AO102"),
Type:=xlFillDefault Range("AK73:AO102").Select

thanks
monika



  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,272
Default range

Monika,

How about

Set myRange = Range(range1,range2)
Application.CutCopyMode = False
Selection.AutoFill Destination:=myRange,Type:=xlFillDefault
myRange.Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"monika" wrote in message
...
no..say column AK heading is "package" and column AO heading is "Pins".

I will find add as :
set range1 = cells.find("Package")
set range2 = cells.find("Pins")

now i know from which column to start. say its range1.column

now i want to replace....Range("AK73:AO102") as:

range(range1.column & lnewrng.row & ":" & range2.column & lastcellnum)

i tried a few combinations like this ... .which didn't work.

I hope i am clear

thanks
Monika
"Frank Kabel" wrote in message
...
Hi Monika
try
Range("AK73:AO" & last_row_var)


--
Regards
Frank Kabel
Frankfurt, Germany

monika wrote:
hi...

i want to replace Range("AK73:AO102") ...proper address so as to
remove the hardcoding. i know the lastcell number of my sheet . but
how do i replace the above with proper using '&' ... i tried but it
doesn't work !

Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AK73:AO102"),
Type:=xlFillDefault Range("AK73:AO102").Select

thanks
monika





  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 28
Default range

but what about my row and lastcell num...
i am starting this particular thing from row 73 .. till the lastcellnum....


"Bob Phillips" wrote in message
...
Monika,

How about

Set myRange = Range(range1,range2)
Application.CutCopyMode = False
Selection.AutoFill Destination:=myRange,Type:=xlFillDefault
myRange.Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"monika" wrote in message
...
no..say column AK heading is "package" and column AO heading is "Pins".

I will find add as :
set range1 = cells.find("Package")
set range2 = cells.find("Pins")

now i know from which column to start. say its range1.column

now i want to replace....Range("AK73:AO102") as:

range(range1.column & lnewrng.row & ":" & range2.column & lastcellnum)

i tried a few combinations like this ... .which didn't work.

I hope i am clear

thanks
Monika
"Frank Kabel" wrote in message
...
Hi Monika
try
Range("AK73:AO" & last_row_var)


--
Regards
Frank Kabel
Frankfurt, Germany

monika wrote:
hi...

i want to replace Range("AK73:AO102") ...proper address so as to
remove the hardcoding. i know the lastcell number of my sheet . but
how do i replace the above with proper using '&' ... i tried but it
doesn't work !

Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AK73:AO102"),
Type:=xlFillDefault Range("AK73:AO102").Select

thanks
monika









  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,272
Default range

I assume that you used those in creating range1 and range2.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"monika" wrote in message
...
but what about my row and lastcell num...
i am starting this particular thing from row 73 .. till the

lastcellnum....


"Bob Phillips" wrote in message
...
Monika,

How about

Set myRange = Range(range1,range2)
Application.CutCopyMode = False
Selection.AutoFill Destination:=myRange,Type:=xlFillDefault
myRange.Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"monika" wrote in message
...
no..say column AK heading is "package" and column AO heading is

"Pins".

I will find add as :
set range1 = cells.find("Package")
set range2 = cells.find("Pins")

now i know from which column to start. say its range1.column

now i want to replace....Range("AK73:AO102") as:

range(range1.column & lnewrng.row & ":" & range2.column &

lastcellnum)

i tried a few combinations like this ... .which didn't work.

I hope i am clear

thanks
Monika
"Frank Kabel" wrote in message
...
Hi Monika
try
Range("AK73:AO" & last_row_var)


--
Regards
Frank Kabel
Frankfurt, Germany

monika wrote:
hi...

i want to replace Range("AK73:AO102") ...proper address so as to
remove the hardcoding. i know the lastcell number of my sheet .

but
how do i replace the above with proper using '&' ... i tried but

it
doesn't work !

Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AK73:AO102"),
Type:=xlFillDefault Range("AK73:AO102").Select

thanks
monika








Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I enter formula sum(range+range)*0.15 sumif(range=3) tkw Excel Discussion (Misc queries) 2 October 1st 09 09:17 PM
Cond. Format Data Bars of range based on values of another range alexmo Excel Worksheet Functions 4 January 16th 09 04:03 AM
Excel Addin:Setting the range to the Excel.Range object range prop Rp007 Excel Worksheet Functions 5 November 24th 06 04:30 PM
formula to sort a range so that it matches the exact rows of a column that is outside that range? steveo Excel Discussion (Misc queries) 1 June 18th 06 02:05 AM
how to? set my range= my UDF argument (range vs. value in range) [advanced?] Keith R[_3_] Excel Programming 2 August 11th 03 05:55 PM


All times are GMT +1. The time now is 12:40 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"