VBA Variables....
 

I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark

VBA Variables....
 

Mark,

It worked for me. What are you getting?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"MarkHear1" wrote in message
oups.com...
I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark

VBA Variables....
 

On 15 Feb, 12:23, "Bob Phillips" wrote:
Mark,

It worked for me. What are you getting?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"MarkHear1" wrote in message

oups.com...



I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

Hummmmmm very odd. The error I am getting is as follows...
Run-Time error '1004':
AutoFill method of Range class failed.


- Mark

VBA Variables....
 

What is the data you are trying to fill-down?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"MarkHear1" wrote in message
oups.com...
On 15 Feb, 12:23, "Bob Phillips" wrote:
Mark,

It worked for me. What are you getting?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"MarkHear1" wrote in message

oups.com...



I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

Hummmmmm very odd. The error I am getting is as follows...
Run-Time error '1004':
AutoFill method of Range class failed.


- Mark

VBA Variables....
 

On 15 Feb, 13:08, "Bob Phillips" wrote:
What is the data you are trying to fill-down?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"MarkHear1" wrote in message

oups.com...



On 15 Feb, 12:23, "Bob Phillips" wrote:
Mark,

It worked for me. What are you getting?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"MarkHear1" wrote in message

groups.com...

I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

Hummmmmm very odd. The error I am getting is as follows...
Run-Time error '1004':
AutoFill method of Range class failed.

- Mark- Hide quoted text -

- Show quoted text -

It's a formula ...
Range("a2").Value = "=VLOOKUP(B2,'download.csv'!$A$2:$J$5000,10,0) "

- mark

VBA Variables....
 

Your problem appears to be that you are trying to offset a1 -1 column.

Try this to fill down from a2 to the activecell in column A

Sub filldowntoactivecell()
range("a2:a"&activecell.Row).filldown
End Sub


--
Don Guillett
SalesAid Software

"MarkHear1" wrote in message
oups.com...
I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark

VBA Variables....
 

On 15 Feb, 13:46, "Don Guillett" wrote:
Your problem appears to be that you are trying to offset a1 -1 column.

Try this to fill down from a2 to the activecell in column A

Sub filldowntoactivecell()
range("a2:a"&activecell.Row).filldown
End Sub

--
Don Guillett
SalesAid Software
"MarkHear1" wrote in message

oups.com...



I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

I tested that code, and it doesn't copy the value in a2 down - do you
have any other suggestions?

VBA Variables....
 

I also tested before I sent and it does copy a2 down to the ACTIVECELL row.
So, if you select row 10 in ANY column it will copy a2 down to a10.
--
Don Guillett
SalesAid Software

"MarkHear1" wrote in message
oups.com...
On 15 Feb, 13:46, "Don Guillett" wrote:
Your problem appears to be that you are trying to offset a1 -1 column.

Try this to fill down from a2 to the activecell in column A

Sub filldowntoactivecell()
range("a2:a"&activecell.Row).filldown
End Sub

--
Don Guillett
SalesAid Software
"MarkHear1" wrote in
message

oups.com...



I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

I tested that code, and it doesn't copy the value in a2 down - do you
have any other suggestions?

VBA Variables....
 

On 15 Feb, 14:11, "Don Guillett" wrote:
I also tested before I sent and it does copy a2 down to the ACTIVECELL row.
So, if you select row 10 in ANY column it will copy a2 down to a10.
--
Don Guillett
SalesAid Software
"MarkHear1" wrote in message

oups.com...



On 15 Feb, 13:46, "Don Guillett" wrote:
Your problem appears to be that you are trying to offset a1 -1 column.

Try this to fill down from a2 to the activecell in column A

Sub filldowntoactivecell()
range("a2:a"&activecell.Row).filldown
End Sub

--
Don Guillett
SalesAid Software
"MarkHear1" wrote in
message

groups.com...

I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

I tested that code, and it doesn't copy the value in a2 down - do you
have any other suggestions?- Hide quoted text -

- Show quoted text -

My apologies - i just retested this and it does work however, on my
spreadsheet i have got an autofilter set up, and when this is
configured as it needs to be cell a2 is not visible, and this prevents
the code from working...

VBA Variables....
 

It appears that you want to copy down to the last row in col B so I would
use

Sub filldowntoactivecell()
lrinB=cells(rows.count,"b").end(xlup).row
range("a2:a"&lrinB).filldown
End Sub


--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...

I also tested before I sent and it does copy a2 down to the ACTIVECELL
row. So, if you select row 10 in ANY column it will copy a2 down to a10.
--
Don Guillett
SalesAid Software

"MarkHear1" wrote in message
oups.com...
On 15 Feb, 13:46, "Don Guillett" wrote:
Your problem appears to be that you are trying to offset a1 -1 column.

Try this to fill down from a2 to the activecell in column A

Sub filldowntoactivecell()
range("a2:a"&activecell.Row).filldown
End Sub

--
Don Guillett
SalesAid Software
"MarkHear1" wrote in
message

oups.com...



I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

I tested that code, and it doesn't copy the value in a2 down - do you
have any other suggestions?

VBA Variables....
 

On 15 Feb, 14:19, "Don Guillett" wrote:
It appears that you want to copy down to the last row in col B so I would
use

Sub filldowntoactivecell()
lrinB=cells(rows.count,"b").end(xlup).row
range("a2:a"&lrinB).filldown
End Sub

--
Don Guillett
SalesAid Software
"Don Guillett" wrote in message

...





I also tested before I sent and it does copy a2 down to the ACTIVECELL
row. So, if you select row 10 in ANY column it will copy a2 down to a10.
--
Don Guillett
SalesAid Software

"MarkHear1" wrote in message
roups.com...
On 15 Feb, 13:46, "Don Guillett" wrote:
Your problem appears to be that you are trying to offset a1 -1 column.

Try this to fill down from a2 to the activecell in column A

Sub filldowntoactivecell()
range("a2:a"&activecell.Row).filldown
End Sub

--
Don Guillett
SalesAid Software
"MarkHear1" wrote in
message

egroups.com...

I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

I tested that code, and it doesn't copy the value in a2 down - do you
have any other suggestions?- Hide quoted text -

- Show quoted text -

That's correct.
And that code works a treat.
Thank you very much for your help.

VBA Variables....
 

Where's the activecell when you start this procedure?

Maybe...

Set BottomRow = ActiveCell.entirerow.cells(1) 'column A
Set Beginning = range("a2")

Beginning.autofill _
Destination:=Range(Beginning, BottomRow)), Type:=xlFillDefault

=====
Another option:

Range("a2:a" & activecell.row).formula _
= "=VLOOKUP(B2,'download.csv'!$A$2:$J$5000,10,0) "



MarkHear1 wrote:

I am still having problems with my varaibles. Below is the code i have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning, BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark

--

Dave Peterson

VBA Variables....
 

Glad you got it sorted out.

--
Don Guillett
SalesAid Software

"MarkHear1" wrote in message
oups.com...
On 15 Feb, 14:19, "Don Guillett" wrote:
It appears that you want to copy down to the last row in col B so I would
use

Sub filldowntoactivecell()
lrinB=cells(rows.count,"b").end(xlup).row
range("a2:a"&lrinB).filldown
End Sub

--
Don Guillett
SalesAid Software
"Don Guillett" wrote
in message

...





I also tested before I sent and it does copy a2 down to the ACTIVECELL
row. So, if you select row 10 in ANY column it will copy a2 down to
a10.
--
Don Guillett
SalesAid Software

"MarkHear1" wrote in message
roups.com...
On 15 Feb, 13:46, "Don Guillett" wrote:
Your problem appears to be that you are trying to offset a1 -1
column.

Try this to fill down from a2 to the activecell in column A

Sub filldowntoactivecell()
range("a2:a"&activecell.Row).filldown
End Sub

--
Don Guillett
SalesAid Software
"MarkHear1" wrote in
message

egroups.com...

I am still having problems with my varaibles. Below is the code i
have
written, can anybody offer any help as to why it is not working?

Dim BottomRow As Range
Set BottomRow = ActiveCell

Range("a2").Select
Dim Beginning As Range
Set Beginning = ActiveCell

Selection.AutoFill Destination:=Range(Beginning,
BottomRow.Offset(0,
-1)), Type:=xlFillDefault

Many Thanks,
Mark- Hide quoted text -

- Show quoted text -

I tested that code, and it doesn't copy the value in a2 down - do you
have any other suggestions?- Hide quoted text -

- Show quoted text -

That's correct.
And that code works a treat.
Thank you very much for your help.