[ tolstoy @ 02.03.2007. 19:37 ] @
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?
[ Brz_na_tastaturi @ 02.03.2007. 20:00 ] @
Jedno od mogućih rešenja

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


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.
[ Jpeca @ 03.03.2007. 08:28 ] @
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