Private Sub RAPOR_ÇIKART_Click()
Dim W0 As Workbook, W1 As Workbook, WY As Workbook
Dim S0 As Worksheet, SV As Worksheet, S1 As Worksheet
Dim AWF As Object
Call OPCODE_İLK
SR.Hide
...
...
...
S1.Calculate
Call OPCODE_SON
End Sub
Sub OPCODE_İLK()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.CutCopyMode = False
Application.AskToUpdateLinks = False
End Sub
Sub OPCODE_SON()
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
Application.CutCopyMode = True
Application.AskToUpdateLinks = True
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.