Hi folks, this is knda like a follow on to a previous question that Pete UK
helped a bit with.

I have recorded the following macro but I need to change it since it doesn't
exactly do what I want:

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 08/12/2007
'

'
Rows("7:7").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

I need to change it so that the user can specify which row number to delete
by entering a value in a cell:

Row (Value in cell A1) Select
Selection.Delete Shift: ....etc etc

How do I write the code to specify that instead of it saying to delete a
specific row such as the ("7:7"), it will delete the row according to the
number in a cell?

Thanks.

this delete entire rownumber typed in A1

Sub test()
Rows(Cells(1, 1)).EntireRow.Delete
End Sub


"dim" skrev:

Hi folks, this is knda like a follow on to a previous question that Pete UK
helped a bit with.

I have recorded the following macro but I need to change it since it doesn't
exactly do what I want:

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 08/12/2007
'

'
Rows("7:7").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

I need to change it so that the user can specify which row number to delete
by entering a value in a cell:

Row (Value in cell A1) Select
Selection.Delete Shift: ....etc etc

How do I write the code to specify that instead of it saying to delete a
specific row such as the ("7:7"), it will delete the row according to the
number in a cell?

Thanks.

Too much code

Sub test()
Rows(Cells(1, 1).Value).Delete
End Sub

--
HTH

Bob

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

"excelent" wrote in message
...
this delete entire rownumber typed in A1

Sub test()
Rows(Cells(1, 1)).EntireRow.Delete
End Sub


"dim" skrev:

Hi folks, this is knda like a follow on to a previous question that Pete
UK
helped a bit with.

I have recorded the following macro but I need to change it since it
doesn't
exactly do what I want:

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 08/12/2007
'

'
Rows("7:7").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

I need to change it so that the user can specify which row number to
delete
by entering a value in a cell:

Row (Value in cell A1) Select
Selection.Delete Shift: ....etc etc

How do I write the code to specify that instead of it saying to delete a
specific row such as the ("7:7"), it will delete the row according to the
number in a cell?

Thanks.

Thanks folks, that worked a charm.

I edited it firstly to delete the row depending on the value from another
sheet in the same workbook, and I have that working ok.

But now I've been trying to get it to take the row number value from a
different workbook. I've tried different combinations but keep getting either
object or syntax errors. Here's my most recent effort of converting it to
take the other workbooks value:

Sub test()
Rows("Book3.xls".Sheet1.Cells(1, 1).Value).Delete
End Sub

The code is obviously located in a module for Book 2 (Not book 3) which has
the rows I want to delete and Book 3 is open while running the code.

I prefer to figure things out myself through trial and error, and have tried
editing this code a variety of ways, but I'm just missing something and can't
put my finger on it! Can you give me some guidance on where I'm now going
wrong with this?

Thanks.

Bump.



"dim" wrote:

Thanks folks, that worked a charm.

I edited it firstly to delete the row depending on the value from another
sheet in the same workbook, and I have that working ok.

But now I've been trying to get it to take the row number value from a
different workbook. I've tried different combinations but keep getting either
object or syntax errors. Here's my most recent effort of converting it to
take the other workbooks value:

Sub test()
Rows("Book3.xls".Sheet1.Cells(1, 1).Value).Delete
End Sub

The code is obviously located in a module for Book 2 (Not book 3) which has
the rows I want to delete and Book 3 is open while running the code.

I prefer to figure things out myself through trial and error, and have tried
editing this code a variety of ways, but I'm just missing something and can't
put my finger on it! Can you give me some guidance on where I'm now going
wrong with this?

Thanks.