Boa noite!!
Essa rotina criará as guias
Sub AleVBA_8976()
Dim AlePlan As Variant
Dim I As Integer
AlePlan = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")
Worksheets.Add after:=Sheets("Base")
For I = LBound(AlePlan) To UBound(AlePlan)
Worksheets.Add.Name = AlePlan(I)
Next I
End Sub
Eu preciso saber, se o número máximo de pessoas é o que está no seu exemplo....?
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 11/08/2013 6:56 pm