Michel E Amanda

@osvaldomp Muito obrigado novamente!

Boa tarde osvaldomp! Eu utilizei este código que você me passou em outro projeito, onde uma das textbox vai ser preenchida de acordo com um critério. Quando não ocorrer a situação do critério ele ficará em branco e por consequência a célula na coluna onde a textbox está inserindo também fica em branco. No próximo lançamento que faço, onde esta textbox recebe valor, ela insere na primeira linha em branco, de cima para baixo, deixando assim o valor em uma linha diferente do restante dos dados do lançamento. Você poderia por gentileza, me falar como faço para inverter isto, colocando para o código achar a ultima linha em branco, de baixo para cima? Ou considerar a primeira linha em branco, de cima para baixo só da coluna "A"?

@osvaldomp Tá bom. Muito obrigado por toda a ajuda

Perfeito!! Vou tentar utilizar em outros projetos também. Sobre o excesso de fórmulas. Existe alguma forma de inserir a formula pelo vba, já com as referências corretas? Acompanhando o número da linha onde foi inserida.

@osvaldomp Ficou ótimo. Como eu utilizo este calculo manual para inserir apenas um lançamento em uma linha apenas. Este botão que você criou o código para mim é utilizado quando tem que lançar a mesma conta várias vezes. Mas tenho o caso de contas que são lançadas uma vez só. Eu utilizo o mesmo código no outro botão e ele também fica muito lento para inserir.

Osvaldomp deu certinho. O mês e a data estavam ficando invertido. Alterei esta parte do código: Cells(LR + 1, 3) = Format(TextData.Value, "mm/dd/yyyy"), para Cells(LR + 1, 3) = Format(TextData.Value, "dd/mm/yyyy") e funcionou perfeitamente. E a parte do código que direciona o local onde os dados serão inseridos ficou muito mais rápido do que este outro código que eu estava utilizando. Muito obrigado, que Deus te abençoe e retribua em dobro.

Obrigado pela sugestão. Segue em anexo. CONTAS A PAGAR CHICO ROSAteste.rar

Bom dia, estou criando um controle de contas a pagar, com uma opção de lançar vários lançamentos de uma vez só. O problema é que tenho que fazer cada lançamento ser inserido com a data do mês seguinte. Até chegar no mês 12 está dando certo, mas depois da errado e começa a altera o dia ao invés do mês. Gostaria por favor, de ajuda para ver o que está sendo feito errado. Segue abaixo parte do código que usei. Vou inserir também o arquivo (eu salvei o arquivo em pasta de trabalho comum, para anexar aqui, tem que salvar como planilha habilitada para macros para testar. Criei um botão para usar a macro e coloquei a opção ctrl l também. Private Sub CommandButton2_Click() ThisWorkbook.Worksheets("CONTAS").Activate 'Selecionar a célula A3 Range("A2").Select 'Procurar a primeira célula vazia Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True 'Carregar os dados digitados nas caixas de texto para a planilha ActiveCell.Offset(0, 2).Value = TextData.Value ActiveCell.Offset(0, 0).Value = ComboEmpresa.Value ActiveCell.Offset(0, 3).Value = TextBox2.Value Dim i As Integer For i = 1 To TextBox3.Value If i = 1 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 1) ElseIf i = 2 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 2) ElseIf i = 3 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 3) ElseIf i = 4 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 4) ElseIf i = 5 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 5) ElseIf i = 6 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 6) ElseIf i = 7 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 7) ElseIf i = 8 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + ElseIf i = 9 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 9) ElseIf i = 10 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 10) ElseIf i = 11 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 11) ElseIf i = 12 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 12) ElseIf i = 13 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 13) ElseIf i = 14 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 14) ElseIf i = 15 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 15) ElseIf i = 16 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 16) ElseIf i = 17 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 17) ElseIf i = 18 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 18) ElseIf i = 19 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 19) ElseIf i = 20 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 20) ElseIf i = 21 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 21) ElseIf i = 22 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 22) ElseIf i = 23 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 23) ElseIf i = 24 Then TextData1.Text = DateSerial(Year(TextData.Value), Month(TextData.Value), Day(TextData.Value) + 24) End If 'Ativar a primeira planilha ThisWorkbook.Worksheets("CONTAS").Activate 'Selecionar a célula A3 Range("A2").Select 'Procurar a primeira célula vazia Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True 'Carregar os dados digitados nas caixas de texto para a planilha ActiveCell.Offset(0, 2).Value = TextData1.Value ActiveCell.Offset(0, 0).Value = ComboEmpresa.Value ActiveCell.Offset(0, 3).Value = TextBox2.Value Next i Unload Me End Sub CONTAS A PAGAR CHICO ROSAteste.xlsx

@osvaldomp Muito obrigado! Funcionou perfeitamente, exatamente o que eu queria e super simples. Deus te abençoe!

Tentei fazer selecionando mesmo e não consegui. Não acontece nada. Qual código e como eu devo usar?

Boa tarde, desculpe. Mandei a planilha sem a ultima alteração. Segue modelo corrigido. O que eu precisava é que toda vez que eu digitar "BAIXADO" na coluna O, a coluna P recebe a data que estará inserida na célula d2. inserir data automaticamente.xlsx

Bom dia, gostaria de ajuda para criar um controle para vendas à prazo, que insira automaticamente a data que já está em outra célula fixa na coluna seguinte da célula onde selecionei "BAIXADO". A celula onde está a data que eu desejo é a d2. A coluna onde vou digitar baixado é a "O" e a coluna onde deverá ser inserido a data automaticamente é a "P". Tentei usar o código direto na planilha "sangrias" com target.adress, mas não deu certo. Alguém tem alguma sugestão para me ajudar? Segue amostra do arquivo. inserir data automaticamente.xlsx

Muito bom dia, tenho uma planilha de controle de vendas com cartões, uso um userform para lançar os cartões na primeira linha em braco, eu gostaria que a data na TextData fosse calculada a partir do valor que estiver na célula g1 da Plan1 e da hora que estiver na TextHora, se for maior do que 10:00 ele coloca a mesma data que está na célula g1 e se for menor que 10:00 ele coloca a data que está na g1 +1. Como faço isto dentro da textData? Tentei da seguinte forma, mas ele só retorna a data_abertura, mesmo quando coloco uma hora menor que 10:00: Private Sub TextData_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim Data_Abertura As Double Dim Data_Fechamento As Double Dim Hora As Double Data_Abertura = ThisWorkbook.Sheets("Plan1").Range("G1").Value Data_Fechamento = ThisWorkbook.Sheets("Plan1").Range("I1").Value Hora = ThisWorkbook.Sheets("Plan1").Range("H1").Value If TextHora.Value > Hora Then TextData.Value = Data_Abertura ElseIf TextHora.Value = Hora Then TextData.Value = Data_Abertura ElseIf TextHora.Value < Hora Then TextData.Value = Data_Fechamento End If End Sub Segue abaixo exemplo da planilha. Desde já muito obrigado pelo tempo e atenção. Pasta1 (2).xlsx