danovkos
08-05-2010, 06:43 AM
Hi all
is it possible to zoom (adjust) sheet view on the background. I mean, sheet "start" will be selected and sheet "ALL" will be zoomed on background.
I tried this, but was not successfull :(
thx for help
Sub testtt()
Dim rngSaveActiveCell As Range
Dim pval, pvall2 As String
Dim PrehladyCesta As String
Dim a As Integer
With Sheets("ALL")
With Range("B1")
' Set rngSaveActiveCell = ActiveCell
Set rngSaveActiveCell = Sheets("ALL").Range("B1")
Application.ScreenUpdating = False
Sheets("ALL").Zoom = Columns("A:C").Select
' rngSaveActiveCell.Select
Application.ScreenUpdating = True
ActiveSheet.Unprotect
' If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
' ActiveSheet.Protect
End With
End With
End Sub
is it possible to zoom (adjust) sheet view on the background. I mean, sheet "start" will be selected and sheet "ALL" will be zoomed on background.
I tried this, but was not successfull :(
thx for help
Sub testtt()
Dim rngSaveActiveCell As Range
Dim pval, pvall2 As String
Dim PrehladyCesta As String
Dim a As Integer
With Sheets("ALL")
With Range("B1")
' Set rngSaveActiveCell = ActiveCell
Set rngSaveActiveCell = Sheets("ALL").Range("B1")
Application.ScreenUpdating = False
Sheets("ALL").Zoom = Columns("A:C").Select
' rngSaveActiveCell.Select
Application.ScreenUpdating = True
ActiveSheet.Unprotect
' If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
' ActiveSheet.Protect
End With
End With
End Sub