Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Worksheet Name and Select if Meets Criteria
Hi everyone, i have what i think is a very easy question. I'm trying
to select all the worksheets in my workbook that start with the "Data". i wrote this vba code, and even though i put a watch on the left formula and it shows "Data" in the watch window, it never selects the sheet. Any help would be much appreciated!!!! Sub SelectCockpit() ' ' Selects all tabs with cockpit in first 6 digits Dim wksSheet As Worksheet Sheets(1).Activate For Each wksSheet In Worksheets If Left(wksSheet.Name, 4) = "Data" Then wksSheet.Select End If Next wksSheet |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Worksheet Name and Select if Meets Criteria
ainbinder wrote:
Hi everyone, i have what i think is a very easy question. I'm trying to select all the worksheets in my workbook that start with the "Data". i wrote this vba code, and even though i put a watch on the left formula and it shows "Data" in the watch window, it never selects the sheet. Any help would be much appreciated!!!! Sub SelectCockpit() ' ' Selects all tabs with cockpit in first 6 digits Dim wksSheet As Worksheet Sheets(1).Activate For Each wksSheet In Worksheets If Left(wksSheet.Name, 4) = "Data" Then wksSheet.Select End If Next wksSheet I learned something. It turns out selecting multiple worksheets is done by passing an array to the Select method. Try this: Sub SelectCockpit() ' ' Selects all tabs with cockpit in first 6 digits Dim wksSheet As Worksheet Dim SheetNames() As String Dim i As Long i = 1 Sheets(1).Activate For Each wksSheet In Worksheets If Left(wksSheet.Name, 4) = "Data" Then ReDim Preserve SheetNames(1 To i) SheetNames(i) = wksSheet.Name i = i + 1 End If Next wksSheet Sheets(SheetNames).Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
if cell in other worksheet meets criteria, then leave blank. | Excel Discussion (Misc queries) | |||
Sum of total from other worksheet with that meets one criteria | Excel Worksheet Functions | |||
Add up a value that meets 2 criteria | Excel Discussion (Misc queries) | |||
Populate worksheet with data that meets date range criteria | Excel Worksheet Functions | |||
Do Nothing If Meets Criteria | Excel Discussion (Misc queries) |