Home |
Search |
Today's Posts |
#1
|
|||
|
|||
VBA not selecting worksheet with titles
Hi,
I think its the late night but I would like some help with a code which I am struggling with. To summarise my issue, I need this vba code to look at the worksheets which contains the words ", select a specific cell and paste some words. Now I have got the last bit working but the main issue is that vba does not select the worksheet which contains ". If the worksheets are called "testing1", "testing2", etc, I can get vba to work but its when I tell it to look for a sheet name containing "testing.com", it doesnt. At the moment, the sheets are called , and Sub ConsolidateHoldings() Dim mysheet As Worksheet Sheets("master").Select Cells.Clear For Each mysheet In Worksheets mysheet.Select If Left(mysheet.Name, 6) Like "testing.com" Then Range("f2").Select ActiveCell.FormulaR1C1 = "Hi," Range("f4").Select ActiveCell.FormulaR1C1 = "Please review the data on the left" Range("f6").Select ActiveCell.FormulaR1C1 = "If this is incorrect, please advise?" Range("f8").Select ActiveCell.FormulaR1C1 = "Thanks" End If Next mysheet Range("A1").Select End Sub Hopefully this is an easy fix but I would like some help please. Thanks Pri P.s. sorry, I tried to load the excel file but I couldnt. Last edited by Prets : February 4th 13 at 10:16 PM Reason: update to request |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA not selecting worksheet with titles
Try...
Sub ConsolidateHoldings2() Dim wks As Worksheet Sheets("Master").Cells.Clear For Each wks In ActiveWorkbook.Worksheets If UCase$(Right(wks.Name, 11)) = "TESTING.COM" Then With wks .Range("F2") = "Hi" .Range("F4") = "Please review the data on the left" .Range("F6") = "If this is incorrect, please advise!" .Range("F8") = "Thanks" End With 'wks End If Next 'wks End Sub 'ConsolidateHoldings2 -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#3
|
|||
|
|||
Hi Garry,
Thats perfect. Even better than I had originally planned. Thank you so much. Pri Quote:
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA not selecting worksheet with titles
You're welcome! Always glad to help...
-- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Y Axis Titles (Excel is clipping titles) | Excel Discussion (Misc queries) | |||
Sorting a range on another worksheet without selecting the worksheet | Excel Programming | |||
Are double lined worksheet tab titles possible? | Excel Discussion (Misc queries) | |||
HOW DO I PRINT A LIST OF WORKSHEET TITLES FOR A SPECIFIC WORKBOOK | Excel Discussion (Misc queries) | |||
selecting cell range in other worksheet without switching to worksheet | Excel Programming |