Alyson Ronnan Martins

Primeiro vamos a uma duvida na sua ideia de "chat" como planeja usar um único arquivo para duas pessoas escreverem? A ideia de chat seria duas pessoas usarem ao mesmo tempo correto? -Usando o VBA no Excel não da para fazer isso porque você não tem como deixar duas pessoa abrir o Excel ao mesmo tempo. -Se for para usar a planilha compartilhada é mais como planilha mostrar quem esta mandando a mensagem. Se tiver ideias para essas duvidas (pode ser que já tenha planejado isso) eu posso te ajudar sim a resolver essas questões de chat VBA)

Não entendi a ultima parte: os protocolos tem a condição de “D” Diversos e “R” Reclamação tem como colocar essa condição para selecionar o formulário que ele chama? Quando colocar em editar e aparece outra linha com o numero do protocolo. ( no formulário principal) Eu criei um formulário para encontrar o protocolo na planilha cadastro. Coloquei o seguinte código pra fazer a pesquisa e abrir o formulário que você estava criando: Public Sub Pesq() Dim Pesquisar As String 'Dim Resultado Pesquisar = fProtocolo.TextBox1.Value If Pesquisar = "" Then fProtocolo.Label30.Caption = "Numero não preenchido" Exit Sub End If Set Resultado = Sheets("Cadastro").Range("A:A").Find(What:=Pesquisar, LookIn:= _ xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False) If Resultado Is Nothing Then fProtocolo.Label30.Caption = "Não encontrado" Exit Sub Else Resultado = Resultado.Row Pesquisa.Show 'Com o numero da linha abrir formulário preenchendo os dados End If End Sub E coloquei um código no formulário Pesquisa para que carregue os dados encontrados: Public Sub CarregarDadosPesquisa(Linha As Integer) On Error Resume Next With Worksheets("Cadastro") Pesquisa.Protocolo = .Range("A" & Linha) Pesquisa.txt_CPF = .Range("B" & Linha) Pesquisa.txt_Data = .Range("C" & Linha) Pesquisa.txt_Cliente = .Range("D" & Linha) Pesquisa.txt_Endereço = .Range("E" & Linha) Pesquisa.txt_Bairro = .Range("F" & Linha) Pesquisa.txt_Estado = .Range("G" & Linha) Pesquisa.txt_Cidade = .Range("H" & Linha) Pesquisa.txt_Cep = .Range("I" & Linha) Pesquisa.txt_Email = .Range("J" & Linha) Pesquisa.txt_TelFixo = .Range("K" & Linha) Pesquisa.txt_Celular = .Range("L" & Linha) Pesquisa.txt_TipoReclamacao = .Range("N" & Linha) Pesquisa.txt_LocalCompra = .Range("O" & Linha) Pesquisa.txt_DataFabricacao = .Range("P" & Linha) Pesquisa.txt_DataValidade = .Range("Q" & Linha) Pesquisa.txt_Lote = .Range("R" & Linha) Pesquisa.txt_HoraEnvase = .Range("S" & Linha) Pesquisa.txt_Quantidade = .Range("T" & Linha) Pesquisa.txt_PRoduto = .Range("U" & Linha) 'Pesquisa.txt_TipoAtendimento = .Range("V" & Linha) Pesquisa.txt_Relato = .Range("X" & Linha) Pesquisa.TXT_Datalab = .Range("X" & Linha) Pesquisa.TXT_Procede = .Range("Y" & Linha) Pesquisa.TXT_reposicao = .Range("Z" & Linha) Pesquisa.TXT_Datareposicao = .Range("AA" & Linha) Pesquisa.TXT_QtdReposição = .Range("AB" & Linha) Pesquisa.TXT_Dataencerramento = .Range("AC" & Linha) Pesquisa.TXT_Observacoes = .Range("AD" & Linha) End With End Sub Ps.: Seu trabalho é muito extenso sempre usei as duvida dos fórum para ir apreendendo passo a passo cada coisa e não pegar o código completo. (Demora mesmo para o pessoal do fórum responder) Segue link para planilha: https://drive.google.com/open?id=1BYWak1I2RnW3ZNO8iE4IKxlJfK3UEIKf

Boa noite. Bem com eu não tenho o nome de suas tabelas eu coloquei da seguinte forma: Tabela que tem o Valores eu coloquei na "Planilha1" Tabela que vai aparecer o resumo coloquei na "Planilha2" e com base nisso aparece o seguinte código: Public Sub PesquisarFiltro() Dim DtI As Date, DtF As Date, DtAtual As Date 'Armazena a data Dim uLinhaTabela As Integer 'Armaze a quantidade de linhas na tabelas de valores Dim x As Integer 'Mostra em qual linha esta na tabela dos valores Dim y As Integer 'Conta a quantidade de linhas que esta acrescentando na planilha tual 'Limpa a tabela atual Sheets("Planilha2").Range("A2:F1000").ClearContents 'Captura as datas da planilha atual DtI = Sheets("Planilha2").Cells(1, "B").Value DtF = Sheets("Planilha2").Cells(1, "D").Value 'Ultima Linha da tabela com os valores uLinhaTabela = Sheets("Planilha1").Cells(Rows.Count, "F").End(xlUp).Row 'Usando a função for para passar linha a linha a tabela de valores 'e verificar se as datas batem y = 2 For x = 2 To uLinhaTabela Step 1 DtAtual = Sheets("Planilha1").Cells(x, "F").Value If DtAtual >= DtI And DtAtual <= DtF Then With Sheets("Planilha2") .Cells(y, "A").Value = Sheets("Planilha1").Cells(x, "A").Value .Cells(y, "B").Value = Sheets("Planilha1").Cells(x, "B").Value .Cells(y, "C").Value = Sheets("Planilha1").Cells(x, "C").Value .Cells(y, "D").Value = Sheets("Planilha1").Cells(x, "D").Value .Cells(y, "E").Value = Sheets("Planilha1").Cells(x, "E").Value .Cells(y, "F").Value = Sheets("Planilha1").Cells(x, "F").Value End With y = y + 1 'Nova linha de cadastro na outra planilha End If Next x End Sub Fico no aguardo.

Precisava de um print para te ajudar (só lendo não entendi)

Você parece entender e minha pergunta pode ser boba mais você usou o FOR? ou Loop? passando linha por linha para sabe qual esta com o estoque vazio?

Preciso entender apenas o seu objetivo.... kkkkkk estou lento.

Tentou somente https://accounts.spotify.com/pt-BR/login ?

Eu estou pressupondo que seu valores estejam escritos no Excel então usa a seguinte formula. Application.WorksheetFunction.Small(Range("C:C").Value,1) Application.WorksheetFunction.Small(Range("C:C").Value,2)

Sinceramente não entendi.

Bom dia. Não acho que esteja errado e sim um cache de erro memorizado pode ter vindo até de outra canto. (Passei por isso recentemente) tenta usar no começo do código: On error resume next Para ele pular erros que não são graves.

Boa noite. Tentou usar o xcopy?

Fiquei muito perdido agora e desculpa por pela demora. Para fazer login em um SQL você precisa construir um código que vai verificar se senha ou logins estão certas e depois disso vai olhar o nível dos usuario. Exemplo: 'Código construido em Microsoft Access VBA Dim rs As DAO.Recordset DIm sSQL As String sSQL = "SELECT * FROM [tblUsuarios] WHERE ([Usuario] = '" & frmLogin!Usuario.value & "' AND [Senha] = '" formLogin!Password.value & "');" set rs.CurrentDb.OpenRecordset(sSQL) If rs.RecordCount = 0 Then rs.Close: Set rs = Nothing MsgBox "acesso não Autorizado", vbCritical, "Aviso" Else 'Ai faz a mesmo coisa para encontrar agora o nível porém usando o rs.field("CampoNível") na SQL end if rs.Close: Set rs = Nothing Não creio que vá ajudar mais a teoria é a mesma.

Boa noite Julian Rocha. Passei por esse problema agora pouco também. tente invertar a formatação: Dim nData nData = format(now(), "MM/DD/YYYY")

Boa tarde. Precisar olhar ela com dados. Se for o caso mudar a formula de pesquisa.

Olhando sua planilha antiga fiz as seguintes alterações: Dentro do Código Pesquisa_Venda: Private Sub TextBox1_AfterUpdate() Consultar_servicos_vend Dim intervalo As Range Dim texto As String Dim codigo As Long Dim pequisa Dim mensagem codigo = TextBox1.Text Sheets("Serviços").Select Set intervalo = Sheets("Serviços").Range("A10:N100000") On Error GoTo trataErro Parceiro = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) Nomeclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) NIFclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) Tarifario = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False) datarec = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) datareg = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False) estado = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False) TextBox2.Text = Nomeclt TextBox3.Text = Parceiro TextBox4.Text = NIFclt TextBox5.Text = Tarifario TextBox6.Text = datarec TextBox7.Text = datareg TextBox8.Text = estado TextBox1.SetFocus Menu_inicial Exit Sub Menu_inicial trataErro: texto = "O NIF indicado não consta na base de dados" mensagem = MsgBox(texto, vbOKOnly + vbInformation) End Sub No meu caso eu não encontrei nada porque estava realmente vazio, anexo da planilha vazia:

Boa noite. Eu não tenho experiênca em telas de WEB. https://stackoverflow.com/questions/2226346/keydown-on-body para ver se consegue cabpturar o keypress ou keydown para usar o comando OK direcionado.

Opa Luiz Gustavo boa noite. Tenta da uma olhada no site do Avelino: http://www.usandoaccess.com.br/dicas/desabilitando-ribbon-access.asp O artigo é em access mais creio que possa ser usado em word (já usei em excel) Mais precisa ter um pouco de conhecimento em vba

Bom dia Ricardo. Tenta usar: vbModal depois de show. frm_login.Show vbmodal

Manda uma foto do formulário para tentar entender.

Manda o comando SQL que esta usando para darmos uma olhada.

Envia a planiha novamente. Vou okhar o erro no PC.

Bom dia Aninha. Olha se assim você direciona o local: Dim LocalArquivo as string With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecione a pasta" .Show LocalArquivo = .SelectedItens(1) End With

Bom dia Bruna. Tenta colocar dentro do ".Body" depois do texto inicial. Seria bom usar um "for "para pesquisar os vencendo ou vencidos.

A parte em vermelho esta fácil porque no seu poste inicial finha o código. Ficando assim: Set intervalo: Range("A10:N100000") olha sé já resolve essa parte.

Boa notie @Kelvin Correa Para mim já aconteceu isso algumas veses então você deveria usar dessa maneira: Sub InitializeMatrix(Var1, Var2, Var3, Var4) On Error GoTo ErrorHandler . . . Exit Sub ErrorHandler: . . . 'Essa é aparte importante err.clear Resume Next End Sub Esse é um exemplo da microsoft, a unica coisa que mudei foi o err.clear para retirar erros existentes