Hi All,
I have this scripit in my form to add a new membership no. to the data
base entries. This works fine if I run it from the same sheet where
the data is. If I try to run this code from sheet 2 it gives me an
error.

With Sheets("Member_DataBase")

iRow = .Cells(.Rows.Count, 2).End(xlUp).Row
..Cells(iRow, 1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
End With

The error is at .Cell(iRow.....
it says wrong way of selection or something to that effect.
Appreciate any help please?

Thank you
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=505899

You can't 'Select' anything that isn't on the ActiveSheet.

If you begin with Sheets("Member_DataBase").Select or .Activate, it
should be OK.

Hi Syed,

Try prepending:

Cells(iRow, 1).Select

with a dot:

.Cells(iRow, 1).Select

Better still, remove the selectio, e.g.:

With Sheets("Member_DataBase")
iRow = .Cells(.Rows.Count, 2).End(xlUp).row
Cells(iRow, 1).FormulaR1C1 = "=R[-1]C+1"
End With



---
Regards,
Norman



"saziz" wrote in
message ...

Hi All,
I have this scripit in my form to add a new membership no. to the data
base entries. This works fine if I run it from the same sheet where
the data is. If I try to run this code from sheet 2 it gives me an
error.

With Sheets("Member_DataBase")

iRow = .Cells(.Rows.Count, 2).End(xlUp).Row
Cells(iRow, 1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
End With

The error is at .Cell(iRow.....
it says wrong way of selection or something to that effect.
Appreciate any help please?

Thank you
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile:
http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=505899

You can not select or activate on a sheet that is not the active sheet. You
have two choices. Either select the sheet prior to the select or rewrite the
code to avoid all of the selects. To avoid the select you need to get
yourself comfortable with range objects. Range objects are just like the
active cell except better in that you can have as many as you want and they
do not have to be on the active sheet.
--
HTH...

Jim Thomlinson


"saziz" wrote:


Hi All,
I have this scripit in my form to add a new membership no. to the data
base entries. This works fine if I run it from the same sheet where
the data is. If I try to run this code from sheet 2 it gives me an
error.

With Sheets("Member_DataBase")

iRow = .Cells(.Rows.Count, 2).End(xlUp).Row
.Cells(iRow, 1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
End With

The error is at .Cell(iRow.....
it says wrong way of selection or something to that effect.
Appreciate any help please?

Thank you
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=505899

JakeyC
Thank you, it worked perfectly.
syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=505899

--
---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Syed,

Try prepending:

Cells(iRow, 1).Select

with a dot:

.Cells(iRow, 1).Select

Better still, remove the selectio, e.g.:

With Sheets("Member_DataBase")
iRow = .Cells(.Rows.Count, 2).End(xlUp).row
Cells(iRow, 1).FormulaR1C1 = "=R[-1]C+1"
End With



---
Regards,
Norman



"saziz" wrote in
message ...

Hi All,
I have this scripit in my form to add a new membership no. to the data
base entries. This works fine if I run it from the same sheet where
the data is. If I try to run this code from sheet 2 it gives me an
error.

With Sheets("Member_DataBase")

iRow = .Cells(.Rows.Count, 2).End(xlUp).Row
Cells(iRow, 1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
End With

The error is at .Cell(iRow.....
it says wrong way of selection or something to that effect.
Appreciate any help please?

Thank you
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile:
http://www.excelforum.com/member.php...fo&userid=6350
View this thread:
http://www.excelforum.com/showthread...hreadid=505899

Hi Syed,

Please igno

Try prepending:

Cells(iRow, 1).Select

with a dot:

.Cells(iRow, 1).Select

and try the second suggestion of removing selections.

--
---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Syed,

Try prepending:

Cells(iRow, 1).Select

with a dot:

.Cells(iRow, 1).Select

Better still, remove the selectio, e.g.:

With Sheets("Member_DataBase")
iRow = .Cells(.Rows.Count, 2).End(xlUp).row
Cells(iRow, 1).FormulaR1C1 = "=R[-1]C+1"
End With



---
Regards,
Norman



"saziz" wrote in
message ...

Hi All,
I have this scripit in my form to add a new membership no. to the data
base entries. This works fine if I run it from the same sheet where
the data is. If I try to run this code from sheet 2 it gives me an
error.

With Sheets("Member_DataBase")

iRow = .Cells(.Rows.Count, 2).End(xlUp).Row
Cells(iRow, 1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
End With

The error is at .Cell(iRow.....
it says wrong way of selection or something to that effect.
Appreciate any help please?

Thank you
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile:
http://www.excelforum.com/member.php...fo&userid=6350
View this thread:
http://www.excelforum.com/showthread...hreadid=505899