Addition to existing code

G

gavmer

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!!!!!!!
 
T

Tom Ogilvy

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
 
G

gavmer

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!!!
 
T

Tom Ogilvy

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
 
Top