[es] - [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

TbojšaN
Srbija

Član broj: 155714
Poruke: 19
77.46.201.*

Profil

[Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{04.10.2007. u 22:19}

Pozdrav Excel majstorima,
postoji li nacin (mislim na VBA) da se nazivi radnih listova (otvorenih i onih koji ce se tek otvoriti ) automatski pojavljuju na jednom radnom listu slozeni po abecedi u koloni A , a u koloni B da budu ispisani podaci iz celije F2 za svaki radni list?

Hvala,

Prikačeni fajlovi

spisak.xls - 13.5k

^{04.10.2007. u 22:19}

Marko_L
Marko Lošonc
Project Manager, Maxifer d.o.o
Beograd

Član broj: 20532
Poruke: 2173
89.216.220.*

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{04.10.2007. u 23:08}

Možda ovako nešto. Prvo se izvuku potrebni podaci, a onda se odradi sortiranje kompletne A i B kolone...

Code:
Public Sub MojMakro()
Dim brojac As Long
brojac = 0

    For Each Sheet In Workbooks(1).Worksheets
        If Not Sheet.Name = "spisak" Then
        brojac = brojac + 1
        Worksheets("spisak").Cells(brojac, 1).Value = Sheet.Name
        Worksheets("spisak").Cells(brojac, 2).Value = Sheet.Cells(2, 6).Value
        End If
    Next Sheet

Worksheets("spisak").Columns("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca m.
-Piše "Insert disk 3", a jedva sam i ova dva ugurao u drajv
-Postoje samo dve osobe kojima verujem, jedna sam ja, a druga nisi ti

^{04.10.2007. u 23:08}

TbojšaN
Srbija

Član broj: 155714
Poruke: 19
77.46.223.*

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{05.10.2007. u 14:48}

Hvala Marko_L.

^{05.10.2007. u 14:48}

TbojšaN
Srbija

Član broj: 155714
Poruke: 19
77.46.254.*

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{23.10.2007. u 17:50}

Makro mi radi na kućnom računaru a na poslu ne!
U polju A1 ispiše samo sheet1
Kako da rešim taj problem?
Neki radni listovi su zaključani ,mozda je to bitno..

^{23.10.2007. u 17:50}

Jpeca
Predrag Jovanović
Božic i sinovi - škola računara
Pančevo

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

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{24.10.2007. u 09:53}

Ako koristiš VBA često ćeš biti u prilici da se pitaš zašto se neki program ne izvršava ili dalje neočekivane rezultate. Koristeći alat za debagovanje u VB Editoru laše ćeš pronaći greške.
Ideja je da određenu liniju koda koju znaš da se izvšrava (pre otkaza) označiš kao Break point. Tokom izvršavanja program će da se zaustavi pre te tačke.
Onda možeš da ispitaš sadržaj promenljivih, ćelija ... u prozoru Immediate. Jednostavno otkucaš u ovom prozoru ?brojac, gde je brojac varijabla čiju vrednost želiš da proveriš.

Nakon Break Pointa program možeš da izvršavaš linuju po liniju (F8), uz proveru određenih varijabli, sadržaja ćelija itd.

Detaljnije http://www.cpearson.com/excel/Debug.htm.

U tvom slučaju ako pogledaš u debug režimu, kao što sam opisao verovatno ćeš naći da se petlja izvršava samo jednom. Onda pogledaj u Immediate Window
?Workbooks(1).Name
i verovatno ćeš dobiti odgovor - makro gleda pogrešnu radnu svesku. Umesto Workbooks(1) stavi ThisWorkbook. Ako i nije u tome problem verujem da ćeš koristeći debuger naći rešenje.

Dva u dva ide jednom ako možeš da ga ućuškaš

^{24.10.2007. u 09:53}

TbojšaN
Srbija

Član broj: 155714
Poruke: 19
91.150.100.*

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{24.10.2007. u 14:51}

Vrlo iscrpan odgovor!
Hvala Jpeca, excel tek proučavam..

^{24.10.2007. u 14:51}

TbojšaN
Srbija

Član broj: 155714
Poruke: 19
77.46.168.*

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{18.12.2007. u 20:57}

Da li moze ,ako u sheet1 u koloni A upisem nazive radnih listova (nezna se koliko će ih biti)da se uz pomoć makroa otvore novi radni listovi i da im se dodeli ime sa spiska u sheet1 u koloni A( koji će se kasnije dopunjavati)a kao kopija da se koristi sheet2?

Prikačeni fajlovi

llist.xls - 13.5k

^{18.12.2007. u 20:57}

Brz_na_tastaturi
Nenad Netković
Svilajnac

Moderator
Član broj: 63852
Poruke: 313
77.46.186.*

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{21.12.2007. u 00:20}

Ako sam razumeo šta hoćeš da dobije onda bi moglo ovako

Code:

Sub UbaciListove()

Dim red As Integer
Dim ime As String

    Sheets("spisak").Select
red = 1
ime = Sheets("spisak").Cells(red, 1).Value

While ime <> ""
    MsgBox red & " " & ime
    Sheets(red + 1).Select
    Sheets(red + 1).Copy After:=Sheets(red + 1)
    ActiveWorkbook.Sheets(red + 2).Name = ime
    red = red + 1
    ime = Sheets("spisak").Cells(red, 1).Value
Wend

End Sub

Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...

^{21.12.2007. u 00:20}

TbojšaN
Srbija

Član broj: 155714
Poruke: 19
*.ptt.yu.

Profil

Re: [Excel] Svi nazivi radnih listova na jednom slozeni po abecedi

^{21.12.2007. u 06:00}

Hvala Brz_na_tastaturi,
Ovo mi je baš trebalo! Još jednom hvala!!!

^{21.12.2007. u 06:00}