Olá estou criando uma planilha para meu relogio de ponto individual nesse periodo de home Office, criei uma userforn que quando aperta o botão le insere em uma coluna a data e em outra a hora, porém quando vou bater no dia seguinte ele esta sobre escrevendo o dia anterior, ja fiz varias buscas na internet e nem um Codigo faz ele ir automaticamente para linha seguite, que esta vazia. Segue o codigo:
Private Sub Entrada_Click()
Dim Linha As String
Linha = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row +1
plan2.Cells(Linha, 1).Value = Date
plan2.Cells(Linha, 2).Value = Time
Unload BaterPonto
End Sub
Para a primeira linha funciona depois se eu quiser ir para a linha debaixo eu tenho que colocar 2 apos o mais e depois 3 e etc, gostaria de não precisar alterar o codigo todo dia para inserir a data, se não é mais facil fazer manualmente.
Olá Ismael!
Tudo bem com você?
Eu não uso Excel e Windows faz um tempo, coincidência ambos da Microsoft.
Mas eu posso contribuir com a lógica e você aplica usando a mesma no Excel.
Primeiramente, existe uma maneira bem simples que é a de você selecionar um range de células que gostaria de usar na sequência.
Segure a tecla CTRL e vá clicando na sequência de céluas a serem usadas, deixe a célula inicial por último.
O Excel começará pela última célula marcada. Depois salve este range com um nome.
Use o nome deste range na sua fórmula. Você pode ver isso neste vídeo.
Outra maneira, seria na sua fórmula acrescentar uma variável que salve o valor da linha/célula do dia.
E em cada novo registro, ao invés de somar a última linha +1, somaria o valor da variável +1.
Todos os dias ao iniciar a fórmula, faz a busca pelo valor/posição anterior (variável) e soma +1.
Espero ter contribuido, só não faço aqui a fórmula porque faz tempo que não lido com Excel.
Desejo boa sorte e peço a gentileza de que marque esta dúvida como respondida.
Possivelmente não terei um feedback, mas espero que você acerte de primeira.
Grande abraço!
Aulas particulares
Encontre um professor para combinar e agendar aulas particulares
Buscar professor
Tira-dúvidas
Envie dúvidas e receba respostas imediatas da Minerva,
a IA do Profes, e dos melhores professores particulares
Enviar dúvida
