Nelsom parabens, muito bem elaborada a rotina, eu não teria feito melhor, alias eu nem havia começado ainda a desenvolver devido ao tempo.
Nelson se me permite responder a Josy.
Josy, como eu disse acima, a rotina está bem elaborada, então para não ter de mexer muito na mesma, logicamente que daria para ajustar mais coisas, mas como eu disse o tempo é nosso inimigo, então faça o seguinte :
Na aba MENU, adicione 05 Botões Controle Activex e nomeie cada um com o nome da Semana, vou mostrar o de Segunda, depois é só adaptar para os outros.
De dois cliques no Botão "Segunda" e coloque a rotina abaixo :
Private Sub sSegunda_Click()
sSemana = "Segunda"
Call GerarHorarios
End Sub
Acesse o Modulo "mdlRotinas" e no inicio, apos "Option Explicit" adicione a linha :
Public sSemana
Na rotina "Public Sub GerarHorarios()", altere conforme abaixo :
Troque a linha:
avarSemana() = Array("Segunda", "Terça", "Quarta", "Quinta", "Sexta")
por esta:
avarSemana() = Array(sSemana)
Assim será gerada a planilha conforme o nome armazenado na variavel "sSemana".
Se me sobrar um tempinho procuro ajustar a rotina inteira eliminando os Loops devido a alteração no Array, mas até la da para ir quebrando o galho, ou quem sabe o proprio Nelson ajuste se tiver com mais tempo disponivel.
Se procurar entender a rotina passo a passo, verá que dá para ajustar sem ter de criar a planilha, deixando em uma só fixa, mas achei que ficou show de bola desta forma.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 17/11/2015 10:22 am