Hi All,

I have the below code which i was hoping would work.
It's supposed to enter the varable defined from the userform1 onto another
sheet which doesn't have focus. However, it enters it onto current sheet, not
onto the RecsC sheet.
Can anyone please help? I've tried different combinations, but cant get it
to work.

Cheers.
Tony.

----------------------------------------------------
With Worksheets("RecsC")
Set g = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
g = UserForm1.strSuppNam
End With

Hi Tony,

Try:

With Worksheets("Sheet3")
Set g = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End With
g.Value = UserForm1.strSuppNam

Note the dot before range and the use of the value property of g.

---
Regards,
Norman



"Tony Zappal" wrote in message
...
Hi All,

I have the below code which i was hoping would work.
It's supposed to enter the varable defined from the userform1 onto another
sheet which doesn't have focus. However, it enters it onto current sheet,
not
onto the RecsC sheet.
Can anyone please help? I've tried different combinations, but cant get it
to work.

Cheers.
Tony.

----------------------------------------------------
With Worksheets("RecsC")
Set g = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
g = UserForm1.strSuppNam
End With

try putting the dot ( . ) before range. Look in help for with.

--
Don Guillett
SalesAid Software

"Tony Zappal" wrote in message
...
Hi All,

I have the below code which i was hoping would work.
It's supposed to enter the varable defined from the userform1 onto another
sheet which doesn't have focus. However, it enters it onto current sheet,
not
onto the RecsC sheet.
Can anyone please help? I've tried different combinations, but cant get it
to work.

Cheers.
Tony.

----------------------------------------------------
With Worksheets("RecsC")
Set g = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
g = UserForm1.strSuppNam
End With

Or, disregard the 'with' and try
Set g = Range("'RecsC'!A" & Rows.Count).End(xlUp).Offset(1, 0)
instead of
Set g = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)


"Don Guillett" wrote in message
...
try putting the dot ( . ) before range. Look in help for with.

--
Don Guillett
SalesAid Software

"Tony Zappal" wrote in message
...
Hi All,

I have the below code which i was hoping would work.
It's supposed to enter the varable defined from the userform1 onto
another
sheet which doesn't have focus. However, it enters it onto current
sheet,
not
onto the RecsC sheet.
Can anyone please help? I've tried different combinations, but cant get
it
to work.

Cheers.
Tony.

----------------------------------------------------
With Worksheets("RecsC")
Set g = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
g = UserForm1.strSuppNam
End With

Hi Norman, Don, Tim.

Thank you all for replying. The "dot" in front of range did the trick.
Thanks again.

Cheers.
Tony.

"Tony Zappal" wrote:

Hi All,

I have the below code which i was hoping would work.
It's supposed to enter the varable defined from the userform1 onto another
sheet which doesn't have focus. However, it enters it onto current sheet, not
onto the RecsC sheet.
Can anyone please help? I've tried different combinations, but cant get it
to work.

Cheers.
Tony.

----------------------------------------------------
With Worksheets("RecsC")
Set g = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
g = UserForm1.strSuppNam
End With

glad to help

--
Don Guillett
SalesAid Software

"Tony Zappal" wrote in message
...
Hi Norman, Don, Tim.

Thank you all for replying. The "dot" in front of range did the trick.
Thanks again.

Cheers.
Tony.

"Tony Zappal" wrote:

Hi All,

I have the below code which i was hoping would work.
It's supposed to enter the varable defined from the userform1 onto
another
sheet which doesn't have focus. However, it enters it onto current
sheet, not
onto the RecsC sheet.
Can anyone please help? I've tried different combinations, but cant get
it
to work.

Cheers.
Tony.

----------------------------------------------------
With Worksheets("RecsC")
Set g = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
g = UserForm1.strSuppNam
End With