Bráulio Figueiredo Pinto
-
Total de itens
15 -
Registro em
-
Última visita
Posts postados por Bráulio Figueiredo Pinto
-
-
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 -
Pode não ser isso, mas aquele ponto-e-vírgula no final da string da query não é necessário. Ficaria assim:
$sql = "SELECT NOME FROM USUARIOS WHERE CHAVE_VALIDACAO = '" . $validacao . "'";
Verifica se você usou o mysql_select_db para selecionar o banco de dados.
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
-
Patropi,
Valeu a ajuda.
Verifiquei na documentação que a Microsoft disponibiliza e lá consta essa sua informação.
Vou fazer um pequeno gatilho para ajustar a minha planilha.
Como não tem solução, solucionado está ! :blink:
Abraço
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
-
Boa Tarde pessoal!!
Gostaria de importar um arquivo unico de texto para varias tabelas com dados diferentes no mesmo banco de dados!
vlw!
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
-
Olá pessoal,
Tenho um textbox na qual preciso digitar textos longos (descrição de serviços). Porém, todo o texto está ficando apenas na primeira linha na horizontal e não está preenchendo todo o textbox.
Como corrijo isso?
Abraços a todos!!!
Define os seguintes parâmetros para o componente:
Multiline = True
WordWrap = True
Bráulio Figueiredo Pinto
braulio@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
-
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 tipoActiveWorkbook.SaveAs "c:\nomedoarquivo.xls", xlNormal
Qualquer dúvida pode entrar em contato
Bráulio Figueiredo Pinto
braulio@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
-
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
-
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
-
Olá, criei uma planilha de votos no excel, onde os eleitores digitam o nome do candidato e pressionam enter e o voto já é computado ao candidato, que já está cadastrado em outra planilha. No entanto, preciso que o eleitor ante de digitar o nome do candidato, ele digite o seu código, para habilita-lo a votar, para que ele não possa votar duas vezes, pois se ele já voltou será retornado uma mensagem "você já votou".
alguém tem uma ideia de como faço isso no excel.??
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
Controle de Saida e Entrada de Veiculos.....
em VBA
Postado
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