Jefferson TS

@AfonsoMira Não deu certo, poderia dar uma olhada por gentileza. E se puder me ajudar com a parte do filtro desse formulário também: CONTROLE NOVO.rar

@RafaVillani Seria alguma coisa nesse sentido? Private Sub TextBoxPESQUISAR_Change() Call Desprotege If OptionButtonNOME.Value = True Then Application.ScreenUpdating = False Planilha7.Range("m2") = TextBoxPESQUISAR.Value Call FiltroPesquisar Application.ScreenUpdating = True End If If OptionButtonCPF.Value = True Then Application.ScreenUpdating = False Planilha7.Range("p2") = TextBoxPESQUISAR.Value ' Call FiltroPesquisarCPF (FAZER FILTRO PRO CPF) Application.ScreenUpdating = True End If Call Protege End Sub E o UserformPESQUISAR.ListBoxPESQUISAR não está mais filtrando, e não encontro a falha.

@RafaVillani Show. Ficou muito bom. Fiz as alterações sugeridas mas não funcionou. E também não está filtrando nada. Poderia dar uma olhada? CONTROLE NOVO.rar

Perdão. A senha é 1234 @RafaVillani Aproveitando o assunto filtro na mesma planilha. Sabe me dizer como eu poderia fazer para selecionar o tipo de filtro nessa parte? CPF ou Nome conforme imagem abaixo: CONTROLE NOVO.rar

Olá. Tenho um listbox para pesquisar cadastro e alterar. Porém quando o cadastro selecionado não tem data de nascimento dá erro na hora de copiar os dados para o formulário que vai alterar os dados, conforme código abaixo: Alguém poderia me ajudar? Private Sub commandbuttoncopiareditar_Click() Call Desprotege Dim Indice As Integer Dim nasc As Date With ListBoxPESQUISAR Indice = .ListIndex nasc = .List(Indice, 3) Form_CADASTRO.TextBoxNOME = .List(Indice, 1) Form_CADASTRO.TextBoxID = .List(Indice, 0) Form_CADASTRO.TextBoxNASCIMENTO = nasc Form_CADASTRO.TextBoxCPF = .List(Indice, 4) Form_CADASTRO.TextBoxCONTATO = .List(Indice, 5) Form_CADASTRO.TextBoxEMAIL = .List(Indice, 6) Form_CADASTRO.ComboBoxTIPO_PAG = .List(Indice, 7) Form_CADASTRO.ComboBoxMODALIDADE = .List(Indice, 8) If .List(Indice, 2) = "Masculino" Then Form_CADASTRO.OptionButton1 = True End If If .List(Indice, 2) = "feminino" Then Form_CADASTRO.OptionButton2 = True End If End With Form_CADASTRO.CommandButtonCADASTRAR.Visible = False Form_CADASTRO.CommandButtonALTERAR.Visible = True Form_CADASTRO.cmdExcluir.Visible = True Form_CADASTRO.TextBoxNOME.SetFocus Unload Me Call Protege End Sub CONTROLE NOVO.rar

Olá. Tenho uma tabela base de cadastros e um formulário com listbox dessa base. Preciso fazer duas coisas: 1º filtrar no listbox status ATIVOS e INATIVOS com botões de opção; 2º alterar status dos itens selecionados conforme botões de comando (cadastros ATIVOS, alterar para INATIVOS) Conforme imagem abaixo: Alguém poderia me ajudar? obs: o botão para 'alterar para ativo' está em baixo do 'alterar para ativo', eles ficam visíveis e invisíveis de acordo com o botão de opção selecionado. CONTROLE NOVO.rar

@RafaVillani Show. Faltou um end if. Obrigado.

@RafaVillani Deu este erro:

Olá. Fiz a seguinte macro para excuir linha de uma tabela e manter a planilha protegida, no entanto, a tabela precisa ter pelo menos uma linha além da linha de cabeçalhos, senão a macro dá erro. Alguém poderia me ajudar a corrigir isto impedindo, fazendo a macro exibir msgbox de erro se o usuário clicar no botão quando a tabela já estiver com apenas uma linha? Sub ExcluiLinha() Call Desprotege Sheets("ficha_treino").Select Range("A13").Select Selection.End(xlDown).Select Selection.EntireRow.Delete Range("A13").Select Selection.End(xlDown).Select Call Protege End Sub

@RafaVillani Show. Funcionou certinho agora. Obrigado. Aproveitando, caso não tenha nada selecionado na listbox dá erro. Sabe me dizer como eu poderia exibir msgbox pedindo pro usuario selecionar algum item quando não tiver nada selecionado?

@RafaVillani beleza. Vou proceder assim. Tabela1.DataBodyRange.Cells(L).Delete Está dando erro nesta parte

Olá. Sobre proteger planilha, qual seria a opção mais prática, e que não deixe a planilha muito carregada. Tentei conforme o código abaixo, chamando 'desprotege' e 'protege' em cada botão que executa alguma coisa na planilha, mas ficou muito carregada, tela piscando, mudando de aba, etc. Alguém teria outra alternativa pra isto? Sub Protege() Worksheets("base").Protect Worksheets("cadastro").Protect Worksheets("fisio_presenças").Protect Worksheets("ficha_treino").Protect Worksheets("staff").Protect Worksheets("conveniência").Protect Worksheets("filtro").Protect Worksheets("filtro_fiado").Protect Worksheets("filtro_cliente").Protect Worksheets("filtro_presenças").Protect Worksheets("conveniência_pagos").Protect Worksheets("ficha_treino").Protect Sheets("dash").Activate End Sub Sub Desprotege() Worksheets("base").Unprotect Worksheets("cadastro").Unprotect Worksheets("fisio_presenças").Unprotect Worksheets("ficha_treino").Unprotect Worksheets("staff").Unprotect Worksheets("conveniência").Unprotect Worksheets("filtro").Unprotect Worksheets("filtro_fiado").Unprotect Worksheets("filtro_cliente").Unprotect Worksheets("filtro_presenças").Unprotect Worksheets("conveniência_pagos").Unprotect Worksheets("ficha_treino").Unprotect End Sub

Olá. Preciso procurar em duas tabelas distintas (dentro da planilha 8 (fisio_presenças)) o valor da guia da linha selecionada no listbox e exluir, assim que clicar no commandbuttonBaixar. E repetir até que não tenha mais nenhum valor dessa guia nas tabelas. Alguem poderia me ajudar? CONTROLE NOVO.rar

@RafaVillani Show. Obrigado. Vou usar

Olá. Como faço pra repetir o processo de lançar dados do formulário na base de dados de acordo com número de vezes indicado na textbox. Por exemplo: cliente(fulano), guia(99999), sessões(10), = colocar cliente e guia em 10 linhas na base de dados: fulano 9999999 fulano 9999999 fulano 9999999 ..... CONTROLE NOVO.rar Private Sub CommandButtonSALVAR1_Click() Sheets("fisio_presenças").Select Range("A60000").End(xlUp).Offset(1, 0).Select ActiveCell.Offset(0, 0).Value = Me.ComboBoxPACIENTE.Value ActiveCell.Offset(0, 1).Value = Me.TextBoxGUIA.Value NOME = UserFormFichaFisio.ComboBoxPACIENTE.Value MsgBox "Ficha para o(a) paciente " & NOME & " aberta com sucesso", vbInformation, "Nova ficha" Me.ComboBoxPACIENTE = Empty Me.TextBoxGUIA = Empty Me.TextBoxN_SESSÕES = Empty Sheets("FISIO_PRESENÇAS").Select Range("A4").End(xlDown).Select ComboBoxPACIENTE.SetFocus End Sub

@RafaVillani Teria alguma forma de este filtro funcionar com parte do sobrenome por exemplo (assim como funciona com o CTRL + L), ou seja, buscar em qualquer parte do nome.

Olá. Minha planilha tem a SUB colada abaixo que serve para salvar em pdf e enviar email. Gostaria de, antes de executar o código, fazer a verificação se o cliente possui email cadastrado, se SIM, exibir mensagem perguntando deseja enviar para o email xxxxxxxxxxxxxx (email cadastrado); e se NÃO exibir mensagem que o cliente não possui email cadastrado | deseja cadastrar email para o cliente (abre formulário de cadastro com os dados do cliente inclusive id) | inserir email manualmente (abre form com texbox para inserir email avulso) CONTROLE NOVO f.rar Sub enviar_EMAIL() ' SalvarPDF Macro Sheets("ficha_treino").Select ID = Worksheets("ficha_treino").Range("a9") NOME = Worksheets("ficha_treino").Range("d7") pdf = ThisWorkbook.Path & "\" & NOME & " - Ficha " & ID & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=pdf 'atualizar numeração Sheets("FICHA_TREINO").Select Range("A9").Select Selection.Copy Sheets("STAFF").Select Range("A60000").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("FICHA_TREINO").Select Application.CutCopyMode = False ' limpartudo Macro Range("D7:E7").Select Selection.ClearContents Range("D8:E8").Select Selection.ClearContents Range("B10:E10").Select Selection.ClearContents Range("B11:E11").Select Selection.ClearContents Rows("14:103").Select Selection.Delete Shift:=xlUp Range("D7:E7").Select 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 'FAZER O FORMULÁRIO COM A TEXTBOX '.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 MsgBox "O email foi enviado com sucesso", vbInformation, "E-mail" ActiveWorkbook.Save End Sub

@Edson Luiz Branco Muito obrigado. Deu certo a dica.

Olá, estou tentando fazer um código para não permitir duplicidade de nome e de CPF na base de dados de cadastros. A parte de evitar duplicidade do nome está funcionando, já a do CPF não. Alguém saberia me dizer o motivo? Segue código e plan em anexo Sheets("cadastro").Activate L = Range("b4").End(xlDown).Row + 1 lin = 2 While lin < L If Cells(lin, 2) = TextBoxNOME.Value Then 'verificar duplicidade nome MsgBox "Este nome já está cadastrado", vbInformation, "Cadastro já existente!" Exit Sub End If lin = lin + 1 Wend Sheets("cadastro").Activate L2 = Range("e4").End(xlDown).Row + 1 lin = 2 While lin < L2 If Cells(lin, 5) = Val(TextBoxCPF.Value) Then 'verificar duplicidade cpf MsgBox "Este CPF já está cadastrado", vbInformation, "Cadastro já existente!" Exit Sub End If lin = lin + 1 Wend CONTROLE NOVO - Copia.rar

Consegui. Obrigado.

@Midori Show. Deu certo. E como eu faria pra identificar a linha do ID do cadastro e alterar os dados daquela linha na base?

@RafaVillani Muito obrigado.

@RafaVillani o cabeçalho fixo deu certinho, obrigado. Criei a 'Plan2 (Conveniência_Pagos)', desculpe a ignorância, mas como eu referencio isto para enviar os pagos para a nova plan? Private Sub CommandButtonBAIXAR_Click() Dim i As Integer, L As Long, cont As Integer Dim linha As Long cont = 0 linha = Plan1.Range("A4").CurrentRegion.Rows.Count + 3 For i = 0 To ListBoxFIADO.ListCount - 1 If ListBoxFIADO.Selected(i) = True Then For L = 6 To linha If Plan1.Cells(L, 1) = ListBoxFIADO.List(i, 0) And Plan1.Cells(L, 2) = ListBoxFIADO.List(i, 1) _ And Plan1.Cells(L, 3) = ListBoxFIADO.List(i, 2) And Plan1.Cells(L, 4) = ListBoxFIADO.List(i, 3) _ And Plan1.Cells(L, 5) = ListBoxFIADO.List(i, 4) And Plan1.Cells(L, 6) = ListBoxFIADO.List(i, 5) Then Plan1.Cells(L, 7) = Date cont = 1 End If Next End If Next If cont = 1 Then Call FiltroFiado End If End Sub CONTROLE NOVO - Copia.rar

Olá. Tenho um formulário para cadastro de clientes com botão de pesquisa que abre outro formulário com textbox. Quero que a linha da textbox selecionada seja copiada para as devidas textbox, combobox e botões de opção do formulário de cadastro. Segue imagem abaixo: E no formulário de cadastro, como o ID já vai ser um existente, preciso que identifique isto e substitua a linha na base de dados (não quero novo cadastro, apenas salvar alterações). Se clicar em CADASTRAR, com esses dados já cadastrados, inclusive ID, exibir msg "Deseja salvar as alterações do cadastro já existente?" CONTROLE NOVO - Copia.rar

@RafaVillani Show. Deu certo. Apenas precisei colocar o nome do userform antes da listbox e textbox. Muito obrigado. Uma última coisa. Sabe me dizer como trazer para o listbox apenas linhas que não tenham data de pagamento, ou seja, trazer apenas os devedores? E tem como deixar o cabeçalho da listbox não selecionável? ou Então que não apareça, então colocaria label's na userform para representar o cabeçalho (fora da listbox)