Bráulio Figueiredo Pinto

Olá, Anacleto! Baixei a sua planilha mas tive problemas na hora de executar. Você faz uma chamada a uma DLL 32 bits e meu Sistema Operacional é 64 bits. Enfim, não consegui editar sua planilha mas vou lhe propor uma abordagem simples. Coloque uma nova coluna na planilha. Quando houver uma saída de veículo, marque um "X" nesta coluna e apague o "X" na entrada. No formulário de saída você verifica se existe ou não o "X" no veículo e caso exista, uma mensagem de erro será emitida. Caso não tenha entendido a abordagem, sinta-se a vontade para entrar em contato comigo por e-mail. Desta forma posso fazer um exemplo simples e te enviar para facilitar sua vida. Grande abraço. Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.skysistemas.com.br

Olá wagtel, O problema de acentuações pode ser resolvido utilizando a seguinte tag no header do HTML: <meta http-equiv="content-type" content="text/html; charset=UTF-8"> Isso vai fazer com que todas os seus navegadores forcem o padrão de codificação de caracteres para UTF-8. Problemas de formatação de formatação (em especial CSS estilizando formulários, sombras, bordas arredondadas) podem variar sim entre um navegador e outro. Infelizmente até que as empresas entrem num consenso junto com a W3C sobre padronização dos navegadores teremos que usar o clássico "navigator.appName" do javascript para resolver este problema. Evite usar esses efeitos e caso você tenha alguma coisa diferente que precise ser feito o ideal é que você tenha os 5 principais navegadores instalados na sua máquina (IE, Firefox, Safari, Opera e Chrome). Caso você não tenha feito nada de diferente na sua página, pode mandar o trecho de código para que e a comunidade possamos analisar por aqui. Grande abraço. Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.skysistemas.com.br

Bom dia, Danyy Bom, não sei porque você usou o filtro para a sua questão, talvez você tenha achado mais fácil filtrar os dados para ficar mais fácil de encontrá-los. Se foi este o objetivo vai aí uma dica de código que faz comparações simples. Sub tarifa() Dim valor As String Dim arquivo As String Dim posicao As Long arquivo = "c:\teste.txt" Open arquivo For Append As #1 posicao = 1 While (Cells(posicao, 1) <> "") If (Cells(posicao, 1) = "TAR") Or (Cells(posicao, 1) = "TARIFA") Then Print #1, Cells(posicao, 2) End If posicao = posicao + 1 Wend Close #1 End Sub Espero ter ajudado. Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.skysistemas.com.br

Caro jeanantu, A solução que eu faria, seria baixar o fonte para máquina (utilizando alguma API de download) e começar a ler o conteúdo do arquivo texto, procurando pela string alt="Ant-Bot". A partir daí eu sei que 6 posições para frente começa a minha url. O código é meio estranho (para não dizer gambiarra), mas consegue pegar imagens dinâmicas como é o seu caso. Fica aí no caso sua criatividade para implementar, mas caso tenha dúvidas estamos aí!! Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.skysistemas.com.br

Obrigado pela dica, amigos mas mesmo sem o ponto e virgula o sistema não retorna nada. O que acontece é que o mysql_fetch_array não retorna nada nunca... mesmo se meu SQL for SELECT NOME FROM USUARIOS sem nada na clausula where. O banco não retorna erro e o array sempre fica vazio. Acredito que possa ser alguma coisa no apache. O código não tem erros

Prezados amigos, Estou com um grande problema que não consegui encontrar solução em nenhum lugar. Veja o código <?php conecta(); $sql = "UPDATE USUARIOS SET VALIDADO = 'V' WHERE CHAVE_VALIDACAO = '" . $validacao . "';"; $query = mysql_query($sql); $sql = "SELECT NOME FROM USUARIOS WHERE CHAVE_VALIDACAO = '" . $validacao . "';"; $query = mysql_query($sql); if ($row = mysql_fetch_array($query, MYSQL_NUM)) { $nome = htmlentities($row[0], ENT_QUOTES, "UTF-8"); } else { $nome = ''; } ?> Neste caso, o conecta é uma função que conecta ao banco de dados (esta função está funcionando porque o update é executado sem erros). A linha da instrução select funciona, porém no trecho $row = mysql_fetch_array($query, MYSQL_NUM) o array $row fica sempre vazio. Notas: 1 - Existem existe um registro na tabela USUARIOS com a chave de validação que estou passando como parâmetro 2 - A instrução "SELECT NOME FROM USUARIOS" também não funciona 3 - Quando executo no phpMyAdmin retorna os valores corretos. Alguém tem alguma dica? Grande Abraço a todos Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Idemilson, boa tarde! Existe um meio para você inserir manualmente, é um pequeno artifício que funciona. Basta você inserir o negativo como uma fórmula como o colega sugeriu. Da seguinte forma: =-"10:20:30" isso será convertido para -10:20:30 Espero ter ajudado Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Caro colega, Você pode fazer isso através de um módulo VBA, mas tudo depende da estrutura do arquivo texto. Sugiro que poste o link de um arquivo modelo e de como as informações serão gravadas no Banco Braulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Define os seguintes parâmetros para o componente: Multiline = True WordWrap = True Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Sua pergunta não ficou muito clara pra mim não. Seria melhor se você enviasse o modelo da planilha através de algum site de compartilhamento. De qualquer forma, pelo que eu entendi você quer transcrever as linhas para um outro arquivo (no caso do VBA para um outro objeto Workbook) e salvá-los separadamente. Um detalhe que eu havia perdido era que você precisava enviá-los como anexo. Se for realmente isso me avise para que eu possa ajudá-lo da melhor forma possível Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Existe uma maneira de se fazer isso utilizando o objeto Outlook.Application. Você precisa também ter uma conta do Microsoft Outlook configurada (o Outlook Express não tem esse suporte). O código seria assim: Private Sub EnviarEmail() 'Declaração de variáveis Dim objOlAppApp As Outlook.Application 'Variável para manipulação do outlook Dim objOlAppMsg As Outlook.MailItem 'Variável para nova mensagem Dim objOlAppRecip As Outlook.Recipient 'Controle de destinatários Dim objOlAppAnexo As Outlook.Attachment 'Controle de anexos 'Define os parâmetros e envia o e-mail Set objOlAppApp = CreateObject("Outlook.Application") Set objOlAppMsg = objOlAppApp.CreateItem(olMailItem) 'Configura e envia o e-mail Set objOlAppRecip = objOlAppMsg.Recipients.Add("braulio@braulioti.com.br") objOlAppRecip.Type = olTo objOlAppMsg.Subject = "MENSAGEM DE TESTE" objOlAppMsg.HTMLBody = "<H1>HELLO WORLD!</H1>" objOlAppMsg.Send 'Libera os objetos da memória Set objOlAppApp = Nothing Set objOlAppMsg = Nothing Set objOlAppRecip = Nothing Set objOlAppAnexo = Nothing End Sub e para salvar o arquivo você pode usar algo do tipo ActiveWorkbook.SaveAs "c:\nomedoarquivo.xls", xlNormal Qualquer dúvida pode entrar em contato Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Acho que o problema é bem mais simples do que parece Se for no Office 2007/2010 você pode selecionar toda a planilha e executar esse procedimento: 1 - Clique no botão Localizar e Selecionar 2 - Ir para especial 3 - Somente Células Visíveis Depois disso quando você copiar e colar só vai as visíveis Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Bom dia! Fiz um modelo, você pode fazer o download através do link http://www.braulioti.com.br/documentos/pes...a_clientes.xlsm Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Caro Colega, Vou tentar resolver seu problema por partes. Fiz uma telinha de pesquisa que deve te atender. Se tiver dificuldades para retornar o conteúdo pesquisado vamos continuar com o assunto neste tópico aqui no fórum. Eis o que foi feito: 1 - Criei um módulo que chamei de Publicos. Este módulo contém todas as variáveis e procedimentos que serão compartilhados para os dois formulários. A princípio vai ter uma única linha de código: Public Linhas(1000) As String 'Define uma matriz onde estarão listados os resultados 2 - No formulário de pesquisa eu coloquei 4 componentes a) lblPesquisa: um rótulo mostrando a mensagem "Digite o nome do cliente:" B) txtPesquisar: uma caixa de texto onde o usuário digitará o texto a ser pesquisado c) btnPesquisar: um botão que vai disparar a pesquisa d) lstResultado: lista que vai retornar o resultado da pesquisa 3 - Abaixo vai o código do botão pesquisar: Private Sub btnPesquisar_Click() 'Tratamento de erro On Error GoTo Erro 'Declaração de variáveis Dim I As Integer 'Variável de manipulação do For Dim ContLinhas As Integer 'Contador de Linhas Dim PosLista As Integer 'Contador de Posições na Lista Dim ClienteAtual As String 'Dados do Cliente Atual 'Limpa quaisquer códigos que possam existir na lista For I = LBound(Publicos.Linhas) To UBound(Publicos.Linhas) Publicos.Linhas(I) = "" Next I 'Altera o cursor para ampulheta Application.Cursor = xlWait 'Limpa a lista PosLista = -1 lstResultado.Clear 'Passa por todas as linhas para ver se encontra o Cliente 'Pára quando encontrar uma linha em branco 'Começa da linha 2 porque a primeira é o título ContLinhas = 2 ClienteAtual = Range("B" & CStr(ContLinhas)).Text While ClienteAtual <> "" 'Se encontrar um cliente de acordo com a pesquisa inclui na lista 'Coloca tudo em maiúsucla para evitar problemas com capslock If UCase(ClienteAtual) Like ("*" & UCase(txtPesquisar.Text) & "*") Then PosLista = PosLista + 1 lstResultado.AddItem ClienteAtual Publicos.Linhas(PosLista) = ContLinhas End If 'Verifica o próximo cliente ContLinhas = ContLinhas + 1 ClienteAtual = Range("B" & CStr(ContLinhas)).Text Wend 'Volta o cursor para o normal Application.Cursor = xlDefault 'Se não der erro até aqui, sai da SUB Exit Sub Erro: 'Se der erro altera o cursor para padrão e mostra a mensagem de erro MsgBox CStr(Err.Number) & " - " & Err.Description, , "Erro" Application.Cursor = xlDefault End Sub Tente prosseguir com seu aplicativo a partir daí e, se tiver alguma dúvida é só chamar Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br

Bom dia, Acreditando que você tem conhecimento em VBA, montei um pequeno código que pode te dar uma luz de como você vai implementar. Coloquei um UseForm com duas caixas de texto (txtLogin e txtSenha) e um botão de login. Eis o código: Private Sub btnLogin_Click() 'Monta a matriz de senhas Dim Senhas(2, 2) As String 'Primeiro usuário teste Senhas(1, 1) = "teste" Senhas(1, 2) = "senha" 'Segundo usuário braulio Senhas(2, 1) = "braulio" Senhas(2, 2) = "123456" 'Passa pelos dois usuários para ver se a senha está correta Achou = False For I = 1 To 2 If (txtLogin.Text = Senhas(I, 1)) And (txtSenha.Text = Senhas(I, 2)) Then 'Se o login e a senha estiver correta ele vai guardar o login na célula Range("A1").Text = txtLogin.Text Achou = True Else Achou = False End If Next I 'Se não encontrou a senha correta ele manda uma mensagem If Achou = False Then MsgBox "Usuário ou senha inválida" End If End Sub No exemplo acima os usuários foram relacionados em uma matriz. Neste caso o número de usuários é pré-definido e só poderá ser adicionado um novo usuário através do código. quando um usuário logar no sistema a célula A1 será alterada com o usuário logado. Este é um modelo simples e a partir dele podemos fazer uma planilha dos usuários e criar bloqueios para o sistema para torná-lo um pouco mais seguro. Caso o código acima ainda não tiver clareado as suas idéias você pode me enviar um e-mail e eu mando um exemplo mais detalhado. Grande abraço. Bráulio Figueiredo Pinto braulio@braulioti.com.br http://www.braulioti.com.br