Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

[Excel] Makro za snimanje "početne pozicije"

[es] :: Office :: Excel :: [Excel] Makro za snimanje "početne pozicije"

[ Pregleda: 3039 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

tolstoy
Milan Ilich
Ukraine, Russia, Serbia

Član broj: 53619
Poruke: 111
213.150.77.*

ICQ: 225349472


+2 Profil

icon [Excel] Makro za snimanje "početne pozicije"02.03.2007. u 19:37 - pre 211 meseci
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?
 
Odgovor na temu

Brz_na_tastaturi
Svilajnac

Član broj: 63852
Poruke: 318
217.26.79.*



+1 Profil

icon Re: [Excel] Makro za snimanje "početne pozicije"02.03.2007. u 20:00 - pre 211 meseci
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.
Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2276
212.200.27.*

Sajt: www.gowi.rs


+111 Profil

icon Re: [Excel] Makro za snimanje "početne pozicije"03.03.2007. u 08:28 - pre 211 meseci
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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

[es] :: Office :: Excel :: [Excel] Makro za snimanje "početne pozicije"

[ Pregleda: 3039 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.