What could be the error?

[saziz]

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

 

[JakeyC]

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.

 

[Norman Jones]

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

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

 

[Guest]

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.

 

[saziz]

JakeyC
Thank you, it worked perfectly.
syed

 

[Norman Jones]

--
---
Regards,
Norman

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

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?action=getinfo&userid=6350
View this thread:
http://www.excelforum.com/showthread.php?threadid=505899

 

[Norman Jones]

Hi Syed,

Please ignore:

Try prepending:


with a dot:

.Cells(iRow, 1).Select

and try the second suggestion of removing selections.

--
---
Regards,
Norman

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

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?action=getinfo&userid=6350
View this thread:
http://www.excelforum.com/showthread.php?threadid=505899