![]() ![]() 'Default to ActiveSheet if Worksheet not specified If Str_Worksheet = "" Then Set Wks_Search = ActiveSheetĮlse Set Wks_Search = Worksheets(Str_Worksheet)Įnd If 'Default to all cells if Range not specified If Str_Range = "" Then Set Rng_Search = Wks_Search.CellsĮlse Set Rng_Search = Wks_Search.Range(Str_Range)Ĭase "Row", "row": 'Find last row with data On Error Resume NextĬase "Col", "col": 'Find last column with data On Error Resume NextĬase "Cell", "cell": 'Find last cell using last row and column On Error Resume NextįindLast = Wks_Search.Cells(Last_Row, Last_Col).Address(False, False) ![]() ' PURPOSE : Find last row, column or cell in specified range ' ' PARAMETERS: ' SearchType ' Row = last row returned as Long ' Col = last column returned as Long ' Cell = last cell returned as String Dim Last_Row As Long Dim Last_Col As Long Dim Wks_Search As Worksheet Private Function FindLast(SearchType As String, _ '// Sync view on Active Sheet to Selected Sheet If Wks.Visible = xlSheetVisible Then '// Activate worksheet '// Skip hidden sheets (check using If Then) '// Loop through all worksheets in active workbook For Each Wks In ActiveWorkbook.Worksheets '// Extract view information from Active Sheet '// Row: ActiveWindow.ScrollRow '// Col: ActiveWindow.ScrollColumn '// Zoom: ActiveWindow.Zoom '// Rng: ' PURPOSE : Synchronize all worksheets to same view as ActiveSheet '// Check if the User Selected Sheet is a worksheet If TypeName(ActiveSheet) "Worksheet" Then Exit Sub '// Declare variables Dim Wks_Selected As Worksheetĭim View_Row As Long Dim View_Col As Long Dim View_Zoom As Variant Dim View_Selected As String '// Set User Selected Sheet in memory Set Wks_Selected = ActiveSheet I can't be the first person to attempt/want this and am hoping that someone out there has a solution.Private Sub SyncWorksheetsToActiveSheet() One by one assuming I even knew when they were created. Impractical for me to digitally sign all the new created documents That also are macro enabled and I'm pretty sure the theĬertification doesn't pass from parent to child. Our macro enabled documents create other documents from templates
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |