Addition to existing code
 

Hi all,

With the following, how would i amend to include range "unit333" o
sheet "t800"?????

Private Sub CommandButton6_Click()
Dim rng As Range, x As Single
Dim wsquote As Worksheet
Set wsquote = Worksheets("sheet1")
On Error Resume Next
Set rng = wsquote.Range("unit356")
If Err.Number = 0 Then
x = rng.Rows.Count
Worksheets("sheet1").Unprotect Password:="jenjen1"
wsquote.Range("knife3").ClearContents
rng.Offset(0, 0).Resize(x).EntireRow.Delete
Else
MsgBox "You have already deleted Unit 3"
End If
Worksheets("sheet1").Protect Password:="jenjen1"
End Sub

???????????

CHeers!!!!!!!

--
Message posted from http://www.ExcelForum.com

Addition to existing code
 

With the following, how would i amend to include range "unit333" on
sheet "t800"?????

Private Sub CommandButton6_Click()
Dim rng As Range, x As Single
Dim wsquote As Worksheet
Set wsquote = Worksheets("t800")
On Error Resume Next
Set rng = wsquote.Range("unit333")
If Err.Number = 0 Then
x = rng.Rows.Count
Worksheets("sheet1").Unprotect Password:="jenjen1"
wsquote.Range("knife3").ClearContents
rng.Offset(0, 0).Resize(x).EntireRow.Delete
Else
MsgBox "You have already deleted Unit 3"
End If
Worksheets("sheet1").Protect Password:="jenjen1"
End Sub

Not sure about knife3

--
Regards,
Tom Ogilvy


"gavmer " wrote in message
...
Hi all,

With the following, how would i amend to include range "unit333" on
sheet "t800"?????

Private Sub CommandButton6_Click()
Dim rng As Range, x As Single
Dim wsquote As Worksheet
Set wsquote = Worksheets("sheet1")
On Error Resume Next
Set rng = wsquote.Range("unit356")
If Err.Number = 0 Then
x = rng.Rows.Count
Worksheets("sheet1").Unprotect Password:="jenjen1"
wsquote.Range("knife3").ClearContents
rng.Offset(0, 0).Resize(x).EntireRow.Delete
Else
MsgBox "You have already deleted Unit 3"
End If
Worksheets("sheet1").Protect Password:="jenjen1"
End Sub

???????????

CHeers!!!!!!!!


---
Message posted from http://www.ExcelForum.com/

Addition to existing code
 

Hi tom,

Thank you for that but i was hoping to incorporate that as an additio
to the existing code so that it deleted 2 ranges from 2 sheets????

Any ideas???

Cheers!!!

--
Message posted from http://www.ExcelForum.com

Addition to existing code
 

Private Sub CommandButton6_Click()
Dim rng As Range, rng1 as Range
Dim wsquote As Worksheet
Dim wsquote1 as Worksheet
set wsquote = Worksheets("sheet1")
Set wsQuote1 = Worksheets("t800")
On Error Resume Next
Set rng = wsquote.Range("unit356")
Set rng1 = wsQuote.Range("unit333")
If Err.Number = 0 Then
wsquote.Unprotect Password:="jenjen1"
wsquote1.Unprotect Password:="jenjen1"
wsquote.Range("knife3").ClearContents
rng.EntireRow.Delete
rng1.EntireRow.Delete
wsquote.Protect Password:="jenjen1"
wsquote1.Protect Password:="jenjen1"
Else
MsgBox "You have already deleted Unit 3"
End If

End Sub

--
Regards,
Tom Ogilvy

"gavmer " wrote in message
...
Hi tom,

Thank you for that but i was hoping to incorporate that as an addition
to the existing code so that it deleted 2 ranges from 2 sheets????

Any ideas???

Cheers!!!!


---
Message posted from http://www.ExcelForum.com/

Addition to existing code
 

Thats great tom...thank you!!!

--
Message posted from http://www.ExcelForum.com