Zow

Olá pessoal, Estou tentando usar essa macro que copia os dados de uma célula a cada 15 segundos, no entanto após os 15 segundos aparece o seguinte erro: Não foi possível encontrar a macro "Pasta1!QuinzeMin". O que estou fazendo de errado? Public Sub QuinzeMin() Dim hora As String With ThisWorkbook hora = .Worksheets("Plan1").Range("a1").Value With .Worksheets("Plan1") .Range("A1:b1").Copy .Range("A3").PasteSpecial Paste:=xlPasteValues .Range("A3").EntireRow.Insert End With End With NextEvent = Now + TimeValue("00:00:15") Application.OnTime NextEvent, "QuinzeMin" End Sub

Pessoal, estou montando um programa que analisa cotações de ativos do mercado financeiro. Preciso de uma linguagem que funcione o mais rápido possível e absorva e compile uma grande quantidade de informação. No momento sei um pouco de html, php, C+ e Visual Basic. Além dessas há alguma que me permita ganhar alguns milissegundo a mais ? Para imprimir gráficos na tela há alguma linguagem que vocês indicam ? Obrigado,

Pessoal, estou precisando importar uma série de dados de uma tabela para o excell. Manualmente eu faço assim: Abro o excell >>> dados >>>>Importar dados externos >>>>Nova consulta à Web >>>>> colo a Url do site>>>>> Importar Daí escolho a célula e a informação é importada pro excell. Alguém sabe qual a função que faz esse caminho ?

Alguém sabe se isso fere alguma lei ? Acho que não, pois afinal a informação está lá disponível para uso né?

Olá pessoal, Estou querendo copiar informações do endereço: http://cotacoes.economia.uol.com.br/bolsas...e=20&page=1 As informações estão na tabela da página e modificam-se a cada minuto. A intenção é fazer uma planilha em excell mesmo para controle de ações. Pretendo usar a propria linguagem VBA do excell para isso. A dúvida está justamente em como fazer para copiar esses elementos dentro da tabela. Há alguma forma de se obter a informação da tabela da fonte do site? Tipo um URL com a informação da tabela apenas? Do contrário, há alguma forma de copiar a informação que está nessa página? Vocês podem me dizer como faço isso? Ou pelo menos qual o caminho para começar? Obrigado

Pessoal, estou querendo criar um aplicativo que funcione apenas algumas ferramentas do Fireworks. Gostaria de saber qual o caminho que posso seguir para conseguir entrar nessa parte da programação gráfica e se tem algum programa que faça isso..

Não posso ir armazenando os valores em Loop? Tipo: For k = 1 to Quantotal 'Quantotal é a quantidade total de vetores VALOR(k) = ThisWorkbook.Sheets("Plan1").Cells(i, quantidade - k).Value Next k

Pessoal, aprendendo a trabalhar com vetores agora: De uma planilha que tenho diversas linhas e colunas preenchidas quero fazer um vetor que percorre cada coluna e faz os cálculosde uma fórmula de médias, mas tá dando erro "Subscrito fora do intervalo." Será que alguém pode me dizer o que há de errado? Segue o código: Public Sub carregaMM() 'Determinando a quantidade de colunas já preenchidas Dim Z As Long Dim T As Long Dim quantidade As Long Z = 1 T = 1 Do While Z = 1 If ThisWorkbook.Sheets("Plan1").Cells(1, T).Value <> "" Then T = T + 1 Else Z = 0 End If Loop quantidade = T - 1 'Declaração de variáveis para uso na média Dim MM3 As Double Dim VALOR() As String Dim i As Long Dim k As Long 'Inicia os cálculos linha a linha Dim totaldelinhas As Long totaldelinhas = ThisWorkbook.Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To totaldelinhas 'Vetor VALOR é o vetor que armazena o valor que queremos VALOR(k) = ThisWorkbook.Sheets("Plan1").Cells(i, quantidade - k).Value 'Médias móveis MM3 = VALOR(0) + VALOR(1) + VALOR(2) MM3 = MM3 / 3 'Imprime o nome na 1ª coluna ThisWorkbook.Sheets("Plan2").Cells(i, 1).Value = ThisWorkbook.Sheets("Plan1").Cells(i, 1).Value ThisWorkbook.Sheets("Plan2").Cells(i, 2).Value = MM3 Next i End Sub

Preciso captar informação dinâmica de uma página, que fica mudando cada vez dou um refresh. Qual o caminho devo seguir para copiar essa informação para uma base de dados? Eu consigo selecionar a informação e exibir o código fonte (da seleção) do site, então essa informação está aqui: </td><td class="mb" align="center"><font color="#cf0000">-0.31</font></td><td class="mb" align="center"><font color="#cf0000">-0.75</font></td><td class="mb" align="center"><font color="#cf0000">41.29</font></td><td class="m" align="center">41.29</td><td class="m" align="center">41.3</td><td class="m" align="center">41.74</td><td class="m" align="center">41.17</td><td class="m" align="center">41.49</td><td class="m" align="center">5102400</td><td class="m" align="center">13:05:31</td> Agora qual o script que me permitiria: 1- abrir o site 2- resgatar essas informações que estão na </td> 3 - Imprimir em uma base de dados , pode ser txt mesmo. Alguém pode me indicar o caminho que devo seguir? Seria com outra linguagem? Obrigado

POis é meus amigos, já re-desinstalei o xampp, reinstalei, já testei o Wamp também, mas continua acontecendo o mesmo ! Nem o Localhost nem o phpmyadmin conectam... fica no "Conectando..." Acho que vou ter que arrumar outro PC !

Segue o código: While (paciência) Ajuda++ rsrsrs :blush: Option Explicit Public Sub carregavolumetotal() 'Variáveis para uso no loop Dim Arquivo As Integer Dim CaminhoArquivo As String Dim TextoArquivo As String Dim TextoProximaLinha As String Dim ContadorLinha As Long 'Declaração de variáveis para uso no arquivo Dim nome As String 'Configura a leitura do arquivo Arquivo = FreeFile ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'LISTAGEM DOS ARQUIVOS (essa função eu baixei da net e serviu pro meu caso, então não mudei) 'Ela abre os arquivos de um diretório e vai listando eles, no meu caso usei isso para que os arquivos fossem sendo manipulados automaticamente. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim oSearch As FileSearch Dim strDirName As String: strDirName = InputBox("Digite o caminho do diretório:", "Caminho") Dim strPrompt As String: strPrompt = strDirName & Chr(13) & Chr(13) Dim I As Long Set oSearch = Application.FileSearch With oSearch .LookIn = strDirName .SearchSubFolders = False .Filename = "*.*" .Execute If .FoundFiles.Count > 0 Then For I = 1 To .FoundFiles.Count strPrompt = strPrompt & .FoundFiles(I) & Chr(13) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'INICIO DA PROGRAMAÇÃO: RECEBE O NOME DOS ARQUIVOS, CRIA PLANILHA E IMPRIME A INFORMAÇÃO ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Abre o arquivo para leitura Open .FoundFiles(I) For Input As Arquivo ContadorLinha = 1 'Lê o conteúdo do arquivo linha a linha Do While Not EOF(Arquivo) Line Input #Arquivo, TextoProximaLinha TextoProximaLinha = TextoProximaLinha & vbCrLf TextoArquivo = TextoArquivo & TextoProximaLinha 'Armazenando as informações de cada linha do texto nas poições relativas 'OBS: AQUI O ARQUIVO É GIGANTESCO, ENTÃO VOU RESUMIR INFO = Mid(TextoProximaLinha, 1, 2) INFO2 = Mid(TextoProximaLinha, 3, 8) INFO3 = Mid(TextoProximaLinha, 11, 2) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Preenche as colunas na planilha '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ThisWorkbook.Sheets("planilha").Cells(ContadorLinha, 1).Value = INFO1 ThisWorkbook.Sheets("planilha").Cells(ContadorLinha, 2).Value = INFO2 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' NESTA PARTE EU QUERIA ABRIR UM OUTRO ARQUIVO TEXTO E EDITÁ-LO COM AS INFORMAÇÕES DENTRO DESSE MESMO LOOP!!!! ' MAS QUANDO USO O OPEN, ELE DIZ QUE O ARQUIVO JÁ ESTÁ ABERTO!!! ' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ContadorLinha = ContadorLinha + 1 Loop 'Coloca na janela de verificação imediata Debug.Print TextoArquivo 'Fecha o arquivo Close Arquivo 'Preenchendo as colunas da planilha ThisWorkbook.Sheets("planilha").Cells(1, I).Value = nome 'CONTINUAÇÃO DO FOR DA LISTAGEM DE ARQUIVOS Listagem: Next I Else strPrompt = strPrompt & "No files found." End If ' Display the file list in a message box. MsgBox strPrompt End With End Sub

Amigos, Para contar o número de linhas preenchidas na planilha usei esse cód.: ThisWorkbook.Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row Para contar o número de colunas tentei esse: ThisWorkbook.Sheets("Plan1").Cells(1, Columns.Count).End(xlUp).Column mas não deu certo, porque retorna o número de colunas totais da planilha, mesmo as em branco. Só fazendo um Loop pra contar ou há alguma fórmula?

Pessoal, Estou fazendo uma Macro que lê dados de um arquivo texto, gera uma planilha com esses dados organizados e abre e edita outro arquivo texto com apenas alguns dos dados. Não estou conseguindo colocar a abertura e manipulação em um único código. pois quando vou abrir o segundo arquivo para edição, me retorna a mensagem de que o arquivo já está aberto. É possível abrir dois arquivos texto ao mesmo tempo? como posso fazer isso?

mJi valeu pela resposta, mas não conectou! Muito estranho porque estava funcionando direitinho antes... pode ser que algum programa que instalei invadiu a porta 80, mas como eu mudei achei que ia funcionar. Outro detalhe é que apareceu ao mesmo tempo que ocorreu o erro a atualização do firefox, mas tentei pelo explorer e o chrome e continua na mesma.

Pessoal, resolvi postar aqui porque não encontrei solução alguma para meu caso. O Xampp estava funcionando normalmente daí um dia simplesmente não abriu mais o painel do admnistrador do BD. Eu digito http://Localhost/ ou http://localhost/phpmyadmin/ ou mesmo http://localhost/xampp/ e nada de carregar... A aba fica só no "Conectando" e aquela setinha da skol estilo "desce redondo" rodando do lado. Eu desinstalei e reinstalei o bichinho mas nada de funcionar. Deu um erro na porta 80 do Apache depois que instalei, então eu modifiquei no arquivo httpd dentro da pasta conf do diretório do Apache para a porta 8080 e nada... Desativei o Firewall do windows, e nada... Alguém já passou por isso e resolveu, pode dar uma luz? Ou alguém indica outro programa grátis pra testar o BD no localhost? Abs!!

Beleza Dannleonhart, Era isso mesmo!!! obrigado!

Pessoal Há algum limite para uso do For e do If no código? Tipo, se eu colocar um If dentro de um For muda alguma coisa? Ou se já existir um For anteriormente, pode dar algum problema? Meu código está funcionando perfeitamente, mas quando coloco o trecho abaixo, que verifica se uma planilha já existe, dá o erro: "Next sem For" Dim J As Long Dim quantidade As Long quantidade = Application.Sheets.Count For J = 1 To quantidade If nome = Sheets(J).Name Then MsgBox "Todas as planilhas já foram carregadas" Next J PS. A variável nome foi definida no código base como sendo o nome de uma nova planilha

Beleza, consegui acessar o BD, valeu!!! Sabia que era simples, mas não tinha a menor idéia do que fazer... Só que agora deu esse warning: Warning: mysql_num_rows() expects parameter 1 to be resource, boolean given in C:\xampp\htdocs\Engenheiro Remoto\cadastra_usuario.php on line 52 Na linha 52 tem isso: // verifica se o usuario digitou o login (email) if($email == "") { echo "Digite seu email!"; exit; } else { // se o usuario digitou o login (email) ele verifica // se esta disponivel $consulta = mysql_query("select * from dados_usuarios where Login = '$email'"); <?-- LINHA 52 --> $linha = mysql_num_rows($consulta); if($linha != 0) { echo "O email que você<br> Digitou já é cadastrado!"; exit; } Sabe me dizer se há algo errado com essa parte do código? Já revisei umas 30 vezes, refiz novamente, mas o erro persiste... Obrigado mais uma vez!! Acabei de postar e já vi o erro: No lugar de Login era pra ser Email... já consertei, mas agora não aparece nada, aparece uma tela branca com o endereço da página que faz a conexão com o BD, ou seja, ele conecta com a página de conexão, mas de alguma forma não chega ao BD... Alguém tem uma idéia do que pode ser? Seria outra coisa simples?

O erro é esse: Para testar eu criei o BD com o cód. acima, salvei tudo na pasta htdocs do Xampp, cliquei 2x para abrir a página de cadastro.html no browser do firefox, preenchi o formulário e cliquei em enviar, mas a tabela do BD não é preenchida... Como faço pra preencher? tem como mostrar um exemplo com cadastro simples?

Fala pessoal! Estou voltando a estudar programação, tem uns 6 anos que não pratico nada então preciso da ajuda de vocês para reaprender e recuperar o tempo perdido: Bom, estou fazendo uma planilha que compara dois arquivos texto, vou colocar só uma parte porque são mt grandes. Arquivo1: ABCB4 |12 ABCB4F |12,05 ABCP11 |8,15 AEDU3 |33,78 AEDU3F |33,8 AEDUA37 |2,12 AEDUM32 |1,61 AELP3 |46,75 Arquivo2: ABCB4 |12,14 ABCB4F |12,16 AEDU3 |32,83 AEDU3F |32,62 AEDU3T |33,04 AELP3 |46 AELP3F |42,58 AELP3T |46,84 AFLT3 |4 AGEN11 |1,19 Com esses 2 arquivos eu quero fazer uma planilha que faz o seguinte: Na coluna 1 => Os nomes (Letras) Na coluna 2 => Os valores referente a cada nome da coluna 1 Na coluna 3 => Os valores referente a cada nome da coluna 1 Notem que há códigos no arquivo1 diferentes do arquivo2, além disso a linha que um nome fica no arquivo1 é diferente da linha que o mesmo nome fica no arquivo2 Minhas dificuldades nesse caso são : Como fazer com que a macro compare o nome de cada arquivo com todos os nomes do outro arquivo e quando achar um igual coloque na coluna referida, mas se não achar um igual ela insere na 1ª coluna o nome e na outra coluna referida o seu valor? Por exemplo, executando a macro com os arquivos descritos eu preciso ter uma tabela assim: COLUNA1 |COL2 |COL3 ABCB4 |12 |12,14 ABCB4F |12,05 |12,16 ABCP11 |8,15 |0 AEDU3 |33,78 |32,83 AEDU3F |33,8 |32,62 AEDU3T |0 |33,04 AEDUA37 |2,12 |0 AEDUM32 |1,61 |0 AELP3 |46,75 |46 AELP3F |0 |42,58 AELP3T |0 |46,84 AFLT3 |0 |4 AGEN11 |0 |1,19 Quando o valor é 0 (zero) é porque o nome não existe no outro arquivo. Bom o que consegui foi isso, mas só deu certo pras linhas que eram iguais: Option Explicit Public Sub LeArquivoTexto() 'Variáveis para uso no loop Dim Arquivo1 As Integer Dim CaminhoArquivo1 As String Dim TextoArquivo1 As String Dim TextoProximaLinha1 As String Dim Arquivo2 As Integer Dim CaminhoArquivo2 As String Dim TextoArquivo2 As String Dim TextoProximaLinha2 As String Dim ContadorLinha As Long 'Declaração das variáveis segundo layout bovespa Dim CODIGO1 As String Dim CODIGO2 As String 'Configura a leitura do arquivo Arquivo1 = FreeFile CaminhoArquivo1 = "C:\StOcKs\MACROS\PREAB\" & InputBox("Digite o nome do Arquivo1:", "Nome:") & ".txt" 'Abre o arquivo para leitura Open CaminhoArquivo1 For Input As Arquivo1 ContadorLinha = 1 'Lê o conteúdo do arquivo linha a linha Do While Not EOF(Arquivo1) Line Input #Arquivo1, TextoProximaLinha1 TextoProximaLinha1 = TextoProximaLinha1 & vbCrLf TextoArquivo1 = TextoArquivo1 & TextoProximaLinha1 'Armazenando as informações de cada linha do texto nas poições relativas CODIGO1 = Mid(TextoProximaLinha1, 1, 12) 'Preenchendo a tabela Cells(ContadorLinha, 1).Value = CODIGO1 Cells(ContadorLinha, 2).Value = Mid(TextoProximaLinha1, 13, 5) ContadorLinha = ContadorLinha + 1 Loop 'Coloca na janela de verificação imediata Debug.Print TextoArquivo1 'Fecha o arquivo Close Arquivo1 'Configura a leitura do arquivo Arquivo2 = FreeFile CaminhoArquivo2 = "C:\StOcKs\MACROS\PREAB\" & InputBox("Digite o nome do Arquivo2:", "Nome:") & ".txt" 'Abre o arquivo para leitura Open CaminhoArquivo2 For Input As Arquivo2 ContadorLinha = 1 'Lê o conteúdo do arquivo linha a linha Do While Not EOF(Arquivo2) Line Input #Arquivo2, TextoProximaLinha2 TextoProximaLinha2 = TextoProximaLinha2 & vbCrLf TextoArquivo2 = TextoArquivo2 & TextoProximaLinha2 'Armazenando as informações de cada linha do texto nas poições relativas CODIGO2 = Mid(TextoProximaLinha2, 1, 12) 'Preenchendo a tabela If CODIGO2 = Cells(ContadorLinha, 1).Value Then Cells(ContadorLinha, 3).Value = Mid(TextoProximaLinha2, 13, 5) End If ContadorLinha = ContadorLinha + 1 Loop 'Fecha o arquivo Close Arquivo2 End Sub

Ok lavai Esse é o código da minha hp(peguei de um Tamplate pronto) e modifiquei, mas a linguagem ficou muito grande então vou cortar algumas partes, deixando as divs e a parte do formulário do cadastro: \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\//DEPOIS DE TUDO COMPILADO EU CONFIGUREI O BD ASSIM: -- Banco de Dados: `cadastro` -- CREATE DATABASE `cadastro` DEFAULT CHARACTER SET latin1 COLLATE latin1_swedish_ci; USE `cadastro`; -- -------------------------------------------------------- -- -- Estrutura da tabela `dados_usuarios` -- CREATE TABLE `dados_usuarios` ( `ID` int(11) NOT NULL auto_increment, `Login` varchar(200) NOT NULL, `Nome` varchar(200) NOT NULL, `CPF/CNPJ` varchar(20) NOT NULL, `DataNasc` varchar(15) NOT NULL, `Email` varchar(200) NOT NULL, `Senha` char(15) NOT NULL, `Cep` varchar(20) NOT NULL, `Logradouro` varchar(200) NOT NULL, `Complemento` varchar(200) NOT NULL, `Estado` varchar(50) NOT NULL, `Cidade` varchar(50) NOT NULL, `Bairro` varchar(50) NOT NULL, `Contratado` varchar(15) NOT NULL, `Contratante` varchar(15) NOT NULL, `Newsletter` varchar(15) NOT NULL, `Termos` varchar(15) NOT NULL, PRIMARY KEY (`ID`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=5 ; -- -- Extraindo dados da tabela `dados_usuarios` -- INSERT INTO `dados_usuarios` (`ID`, `Login`, `Nome`, `CPF/CNPJ`, `DataNasc`, `Email`, `Senha`, `Cep`, `Logradouro`, `Complemento`, `Estado`, `Cidade`, `Bairro`, `Contratado`, `Contratante`, `Newsletter`, `Termos`) VALUES('','$login','$nome','$cpfcnpj','$data_nasc','$email','$senha','$cep','$logradouro','$complemento','$estado','$cidade','$bairro','$contratado','$contratante','$newsletter','$termos'); \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\FIM\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Bom, é só isso tudo, rs... Para testar eu criei o BD com o cód. acima, salvei tudo na pasta htdocs do Xampp, cliquei 2x para abrir a página de cadastro.html no browser do firefox, preenchi o formulário e cliquei em enviar, mas a tabela do BD não é preenchida...

Olá pessoal, sou novo no fórum e estou aprendendo PHP, já procurei e não consigo encontrar a resposta para minha dúvida nos tópicos, parece ser algo simples de alguém responder. Bom, lá vai: Estou fazendo um site que precisa de cadastro de usuários e sistema de login. Para elaborar um que atenda minhas necessidades, baixei vários exemplos e fui mudando os campos como cpf, nome, etc.. para o que eu precisava. O problema é que quando vou testar o Banco de dados não está sendo alimentado. Eu abro a minha página de cadastro, preencho os campos com caracteres quaiquer e quando envio abre uma página exibindo o código-fonte da página de conexão com o BD, que já está errado pra mim, deveria aparecer algo como "Seu cadastro foi realizado com sucesso" ou "Não foi possível realizar seu cadastro". Então acesso o painel do BD para verificar se preencheu a tabela, mas nada acontece... No início eu achava que era um erro devido às minhas modificações, no entanto tentei executar o teste com os arquivos de cadastro em php disponibilizados pelo pessoal do fórum e continuou dando o mesmo erro... Achei que era porque eu não havia salvado a pasta com os arquivos do site no htdocs do Xampp mas fiz isso e nada também. Alguma alma caridosa poderia descrever um passo-a-passo de como testar esses sistemas de cadastro em php? :blush: Valeu!