Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Addition to existing code
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
addition error code is 1E+05. What does that mean? | Excel Discussion (Misc queries) | |||
Help with existing code | Excel Discussion (Misc queries) | |||
Addition to code | Excel Programming | |||
Addition code for 110 TextBoxes | Excel Programming | |||
Addition code for 110 TextBoxes | Excel Programming |