Filipe Magdiel dos Santos

Bom, como ninguém respondeu, vou citar minha solução, que não foi a mais funcional, porém, funcionou para o meu caso. usei a função IF para ativar a planilha referente ao dia If Day(Date) = 1 Then ActiveWorkbook.Sheets("Dia1").Select elseif Day(Date) = 2 then .... Depois usei novamente a função if para escrever a mensagem da inputbox.. if (nome da inputbox) = 1 then .... e para finalizar, ativei novamente a planilha 1, voltando assim ao ponto de origem. Assim, você digitará o valor na inputbox, depois o código vai examinar que dia é hoje, e ativar a planilha referente ao dia, em seguida escrever na planilha correta o valor que voce escreveu, depois voltar a planilha original, para que voce digite outro valor. Essa é a fórmula geral, não vou passar a minha pois é bem específica para minha área de trabalho, que é lanchonete. Ficou um código um pouco extenso pois há muitos produtos, porém, funcionou perfeitamente

Boa tarde, tenho um código para fazer, porém estou sem ideias, vejam se podem me ajudar: Tenho 31 planilhas em uma pasta de trabalho, uma para cada dia do mês, preciso fazer um código que o que eu escrever, seja inserido na planilha referente ao dia de hoje, exemplo, hoje é dia 09, o que eu digitar em uma inputbox, quero que seja salvo na planilha "09" da minha pasta de trabalho. Tentei fazer com a função if: if day(Date) = 1 then .... if day(Date) = 2 then ... Porém o código ficou muito extenso e apresentou um erro dizendo que o código é grande de mais. Tem algum jeito de inserir a função date dentro da referência à planilha? Algo do tipo "ActiveWorkbook.Sheets("Day(Date)").Cells(5, 2)" << Sei que esse código não é valido, apenas para exemplificar Desde já, agradeço