ertekelolap info erettsegire

[Czibula Bela]

> 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