Jefferson TS

@AfonsoMira Private Sub CommandButton1_Click() If ComboBox1.Value = "" Then MsgBox "Selecione o colaborador", vbInformation, "Ítem obrigatório" Exit Sub End If If TextBox8.Value = "" Then MsgBox "Selecione a data", vbInformation, "Ítem obrigatório" Exit Sub End If Dim PLAN As String PLAN = UserForm1.ComboBox1.Text dia = UserForm1.TextBox8.Text Worksheets(PLAN).Activate linha = Cells.Find(dia).Row ActiveSheet.Cells(linha, 7) = UserForm1.TextBox1.Text ActiveSheet.Cells(linha, 8) = UserForm1.TextBox2.Text ActiveSheet.Cells(linha, 9) = UserForm1.TextBox3.Text ActiveSheet.Cells(linha, 10) = UserForm1.TextBox4.Text ActiveSheet.Cells(linha, 11) = UserForm1.TextBox5.Text ActiveSheet.Cells(linha, 12) = UserForm1.TextBox6.Text If CheckBox1.Value = True Then ActiveSheet.Cells(linha, 6) = "X" End If If CheckBox2.Value = True Then ActiveSheet.Cells(linha, 5) = "X" End If UserForm1.TextBox1.Value = Empty UserForm1.TextBox2.Value = Empty UserForm1.TextBox3.Value = Empty UserForm1.TextBox4.Value = Empty UserForm1.TextBox5.Value = Empty UserForm1.TextBox6.Value = Empty UserForm1.CheckBox1.Value = False UserForm1.CheckBox2.Value = False MsgBox ("Dados salvos na planilha com sucesso"), vbInformation, "Sucesso" End Sub Dá erro na parte: linha = Cells.Find(dia).Row

@AfonsoMira Em anexoPONTO - Copia.rar As celulas da coluna B são a referência para a linha que deve receber os dados do form. Essa referência fica indicada no texbox da Data ao lado do combobox do Colaborador, e são alteradas com o spinbutton (que aliás não sei como fazer funionar também hehe)

Olá. Preciso localizar em uma coluna da planilha a data de um textbox, e então contar as linhas, para servir de referência para 'linha' na hora de lançar os dados do formulário para a planilha. Alguém sabe me dizer como posso escrever isso?

@Muca Costa Seria em um textbox de um formulário

@Muca Costa O resultado final (quando sai da celula está certo), quero fazer a formatação em tempo real, enquanto digita, ou seja, já começa com ,00 e quando digito vírgula posso colocar os centavos.

@Midori Deu certo. Muito obrigado.

Olá, ao salvar, preciso que a tabela utilizada volte a ter 12 linhas (mesmo que tenham sido adicionadas ou excluídas algumas linhas) Segue abaixo o código que estou tentando utilizar e que não está funcionando: Sub linhas() Dim tabela As ListObject Dim UltimaLinha As Long Set tabela = Plan5.ListObjects("Tabela1") UltimaLinha = tabela.ListRows.Count If UltimaLinha < 12 Then Do Until UltimaLinha = 12 Call InsereLinha x = x - 1 Loop End If If UltimaLinha > 12 Then Do Until UltimaLinha = 12 Call ExcluiLinha x = x - 1 Loop End If End Sub

@Muca Costa Neste caso os primeiros dois caracteres digitados são considerados valor decimal, no entanto preciso que tudo o que eu digitar seja valor inteiro, e somente passe para decimal após eu digitar a vírgula. Ou seja enquanto eu não digitar a vírgula, as casas decimais continuam ",00"

Olá. Alguém sabe me dizer como faço para deixar duas casas decimais e separador de milhar no textbox automaticamente enquanto digita? Por exemplo, se eu digitar 1000 quero que apareça 1.000,00 e se eu quiser centavos digito a vírgula para inserir os centavos.

@RafaVillani Show. Deu certo. Muito obrigado novamente. Aquela parte do cpf ainda não testei, vou testar hj a noite.

@RafaVillani Tentei desta e de outras formas mas não deu certo. Minha assinatura do outlook é uma imagem, enquanto o código está em execução dá pra ver que quando inicia a montagem do email (inserir destinatário, cco, título, anexo, etc) aparece essa assinatura, porém, no momento em que o corpo (.body) é inserido, desaparece a assinatura. Anexei a planilha. PHYSICAL.rar

Olá. Tenho uma assinatura configurada no outlook com nome physical. Alguém saberia me dizer como seleciono essa assinatura no vba para enviar automaticamente. E outra coisa, meu código não está enviando o email, ele fica na caixa de saída do outlook, estou tendo que abrir o outlook e clicar em enviar toda vez. Segue abaixo o código que estou utilizando: Dim outl As Object, novo_email As Object Set outl = CreateObject("outlook.application") Set novo_email = outl.CreateItem(0) With novo_email .Display .To = UserFormEmail.TextBoxEndEmail.Value .CC = "[email protected]" .Attachments.Add pdf .Subject = "Ficha de treino PHYSICAL" .Body = "Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!" .Send End With

@RafaVillani vou ver isso hj de noite e te aviso

@RafaVillani Deu certo, Marquei outros 3 itens que tinham outlook no nome e deu certo. Obrigado.

@RafaVillani Office 2019 Tá reiniciando. Já vejo e te falo