Da li je moguce napraviti makro koji ce visestranicni *.xls dokument snimati tako da se sve stranice nalaze u "pocetnom" polozaju? Pod pocetnim polozajem podrazumevam da se pri otvaranju workbooka otvara prva stranica sa kursorom na A1 i sve ostale stranice da budu sa kursorom na A1?
[Excel] Makro za snimanje "početne pozicije"
Zaključano
Zakačeno
Jedno od mogućih rešenja
Ovo radi 'ručno tj treba da se ručno pokrene da bi odradilo to što radi, ako ti treba automatski ubaci ovaj kod u Workbook Before Close dogadjaj.
Code:
Sub AktivirajA1()
Dim list As Worksheet
Application.ScreenUpdating = False
For Each list In ActiveWorkbook.Worksheets
If list.Visible Then
list.Activate
Range("A1").Select
End If
Next list
Sheets(1).Activate
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
Sub AktivirajA1()
Dim list As Worksheet
Application.ScreenUpdating = False
For Each list In ActiveWorkbook.Worksheets
If list.Visible Then
list.Activate
Range("A1").Select
End If
Next list
Sheets(1).Activate
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
Ovo radi 'ručno tj treba da se ručno pokrene da bi odradilo to što radi, ako ti treba automatski ubaci ovaj kod u Workbook Before Close dogadjaj.
Potpis
Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...
Samo da dopunim da ukoliko želiš da ti se ovaj makro izvrši uvek prilikom zatvaranja radne sveske pozovi ga iz događaja BeforeClose Radne sveske.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AktivirajA1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AktivirajA1
End Sub
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?