RE: ertekelolap info erettsegire
Igen, ez is nagy segítség. Közben megtaláltam a tavalyi makrót, sajnos nem emlékszem ki csinálta, de hátha másnak is hasznos. Ahány tanuló, annyi legyen a 3 helyett, tömbben felsorolva a nevek, annyi munkalapot hoz létre névre szólóan. - mappába másoltam a névvel ellátott mappákat, - dir /B nevek.txt - a tömböt Excellel a nevek.txt felhasználásával pillanatok alatt meg lehet csinálni. Biztos van egyszerűbb, és hosszabb megoldás is. Üdv, Kovács Zoli --- Sub másolás() Dim A(3) As String ' A tömb mérete az érettségizők számár állítandó ' A tanulók listája A(1) = Első Tanulócska A(2) = Második Tanulócska A(3) = Harmadik Tanulócska ' másolás, átnevezés, kitöltés For i = 0 To 3 ' ebben a példában 0-tól 2-ig kell csak menni a for ciklusnak Sheets(Vizsgazo1).Select Sheets(Vizsgazo1).Copy After:=Sheets(2) Sheets(Vizsgazo1 (2)).Select Sheets(Vizsgazo1 (2)).Name = A(3 - i) Sheets(A(3 - i)).Select Range(B2).Select ActiveCell.FormulaR1C1 = A(3 - i) Next End Sub - Hangsúly pedig azon van, hogy KÖSZÖNÖM Neked is és Péternek is! Üdv: Czibula Béla Szegedi Szolgáltatási Középiskola és Szakiskola Fodor József Tagintézménye ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/
Re: ertekelolap info erettsegire
Köszi Péter!!! -- Piller Ferenc Tamás Széchenyi István Szakképző Iskola, Tapolca rendszergazda ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/
Re: ertekelolap info erettsegire
Köszi Péter!!! +1 :) -- Reményi Zoltán remenyi.zol...@gmail.com ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/
RE: ertekelolap info erettsegire
Igen, ez is nagy segítség. Közben megtaláltam a tavalyi makrót, sajnos nem emlékszem ki csinálta, de hátha másnak is hasznos. Ahány tanuló, annyi legyen a 3 helyett, tömbben felsorolva a nevek, annyi munkalapot hoz létre névre szólóan. - mappába másoltam a névvel ellátott mappákat, - dir /B nevek.txt - a tömböt Excellel a nevek.txt felhasználásával pillanatok alatt meg lehet csinálni. Biztos van egyszerűbb, és hosszabb megoldás is. Üdv, Kovács Zoli --- Sub másolás() Dim A(3) As String ' A tömb mérete az érettségizők számár állítandó ' A tanulók listája A(1) = Első Tanulócska A(2) = Második Tanulócska A(3) = Harmadik Tanulócska ' másolás, átnevezés, kitöltés For i = 0 To 3 Sheets(Vizsgazo1).Select Sheets(Vizsgazo1).Copy After:=Sheets(2) Sheets(Vizsgazo1 (2)).Select Sheets(Vizsgazo1 (2)).Name = A(3 - i) Sheets(A(3 - i)).Select Range(B2).Select ActiveCell.FormulaR1C1 = A(3 - i) Next End Sub - Köszi Péter!!! +1 :) -- Reményi Zoltán ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/
Re: ertekelolap info erettsegire
Köszi! Eddig jól működik. Bíró László ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/