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/
