ertekelolap info erettsegire

[Kovács Zoltán]

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