Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Sheet selection
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 258
Default Sheet selection
Is there a way to amend this code so that it does not actually make the
sheet (in this case September) active?

Sub September_Set()

Sheets("September").Select

Range("D4:F13").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("D15:F25").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("A2").Select

End Sub


Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 11,058
Default Sheet selection
Avoid Selections and stay where you a


Sub September_Set()
Dim ws As Worksheet
Set ws = Worksheets("September")
With ws

.Range("D4:F13").Value = ""
.Range("D4:F13").Offset(0, 26).Value = ""


.Range("D15:F25").Value = ""
.Range("D15:F25").Offset(0, 26).Value = ""

End With
End Sub

--
Gary's Student


"Patrick Simonds" wrote:

Is there a way to amend this code so that it does not actually make the
sheet (in this case September) active?

Sub September_Set()

Sheets("September").Select

Range("D4:F13").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("D15:F25").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("A2").Select

End Sub



Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 27,285
Default Sheet selection
Sub September_Set()

With Sheets("September")

With .Range("D4:F13")
.ClearContents
.Offset(0, 26).ClearContents
End With
With .Range("D15:F25")
.ClearContents
.Offset(0, 26).ClearContents
End With
End With
End Sub

--
Regards,
Tom Ogilvy



"Patrick Simonds" wrote in message
...
Is there a way to amend this code so that it does not actually make the
sheet (in this case September) active?

Sub September_Set()

Sheets("September").Select

Range("D4:F13").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("D15:F25").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("A2").Select

End Sub



Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 258
Default Sheet selection
Can the following also be done without selecting the sheet?

If Worksheets("November").Range("O39").Value =
Worksheets("November").Range("W1").Value Then
Worksheets("November").Range("M40").Value = "Thanksgiving"
Worksheets("November").Range("M41").Value = "Day"

Range("A2:C2").Select

End If

If Worksheets("November").Range("O51").Value =
Worksheets("November").Range("W1").Value Then
Worksheets("November").Range("M52").Value = "Thanksgiving"
Worksheets("November").Range("M53").Value = "Day"

Range("A2:C2").Select

End If




"Tom Ogilvy" wrote in message
...
Sub September_Set()

With Sheets("September")

With .Range("D4:F13")
.ClearContents
.Offset(0, 26).ClearContents
End With
With .Range("D15:F25")
.ClearContents
.Offset(0, 26).ClearContents
End With
End With
End Sub

--
Regards,
Tom Ogilvy



"Patrick Simonds" wrote in message
...
Is there a way to amend this code so that it does not actually make the
sheet (in this case September) active?

Sub September_Set()

Sheets("September").Select

Range("D4:F13").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("D15:F25").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("A2").Select

End Sub





Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 27,285
Default Sheet selection
the selecting in that code is superfluous

If Worksheets("November").Range("O39").Value = _
Worksheets("November").Range("W1").Value Then
Worksheets("November").Range("M40").Value = "Thanksgiving"
Worksheets("November").Range("M41").Value = "Day"
End If

If Worksheets("November").Range("O51").Value = _
Worksheets("November").Range("W1").Value Then
Worksheets("November").Range("M52").Value = "Thanksgiving"
Worksheets("November").Range("M53").Value = "Day"
End If

should work fine.

--
Regards,
Tom Ogilvy


"Patrick Simonds" wrote in message
...
Can the following also be done without selecting the sheet?

If Worksheets("November").Range("O39").Value =
Worksheets("November").Range("W1").Value Then
Worksheets("November").Range("M40").Value = "Thanksgiving"
Worksheets("November").Range("M41").Value = "Day"

Range("A2:C2").Select

End If

If Worksheets("November").Range("O51").Value =
Worksheets("November").Range("W1").Value Then
Worksheets("November").Range("M52").Value = "Thanksgiving"
Worksheets("November").Range("M53").Value = "Day"

Range("A2:C2").Select

End If




"Tom Ogilvy" wrote in message
...
Sub September_Set()

With Sheets("September")

With .Range("D4:F13")
.ClearContents
.Offset(0, 26).ClearContents
End With
With .Range("D15:F25")
.ClearContents
.Offset(0, 26).ClearContents
End With
End With
End Sub

--
Regards,
Tom Ogilvy



"Patrick Simonds" wrote in message
...
Is there a way to amend this code so that it does not actually make the
sheet (in this case September) active?

Sub September_Set()

Sheets("September").Select

Range("D4:F13").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("D15:F25").Select
Selection.Value = ""
Selection.Offset(0, 26).Value = ""

Range("A2").Select

End Sub







Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Sheet selection help Craig McK Excel Programming 6 October 30th 06 02:33 PM
Calculate active sheet on sheet selection a94andwi[_11_] Excel Programming 1 September 26th 05 05:23 PM
Selection from list on main sheet from suplemental sheet in same w Kelly New Users to Excel 1 August 12th 05 04:37 PM
search in a sheet and selection? EM Excel Discussion (Misc queries) 0 February 2nd 05 02:43 PM
Sheet selection No Name Excel Programming 1 October 6th 04 05:02 PM


All times are GMT +1. The time now is 02:51 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement