Lisandro Oliveira

Exatamente tente refazer os indices, e o que tambem vai te ajudar muito é a configuração do hardware, tente melhora-lo cada vez mais, quanto mais dados para ser gerenciado mais o SGBD vai exigir de hardware e isso são todos SGBDs!! Em todos os casos, você pode criar varios arquivos dentro de um database utilizando grupos de arquivos. veja o exemplo Create database Banco on (name='banco_dados', (nome logico) filename='c:\bancos\banco_dados.mdf', (nome fisico) size =100mb, (tamanho inicial) maxsize= se você especificar ele ira crescer ate aqui Filegrowth=10mb --essa é a taxa de crescimento ), Filegroup Banco_dados2 (name='banco_dados2', (nome logico) filename='d:\bancos\banco_dados2.ndf', (nome fisico) size =100mb, (tamanho inicial) maxsize= se você especificar ele ira crescer ate aqui Filegrowth=10mb --essa é a taxa de crescimento ), Filegroup Banco_dados3 (name='banco_dados3', (nome logico) filename='e:\bancos\banco_dados3.ndf', (nome fisico) size =100mb, (tamanho inicial) maxsize= se você especificar ele ira crescer ate aqui Filegrowth=10mb --essa é a taxa de crescimento ) Log on (name='banco_log', (nome logico) filename='f:\bancos\banco_log.ldf', (nome fisico) size =50mb, (tamanho inicial) maxsize= se você especificar ele ira crescer ate aqui Filegrowth=10mb --essa é a taxa de crescimento ) Veja você pode estar especificando cada arquivo do database em uma unidade diferente, isso faz com que melhore um pouco a performance do banco, porque você tem 4 cabeçotes de leitura e gravação que podem estar trabalhando em paralelo, e isso agiliza o processo de I/O do banco Abs Lisandro Oliveira

Depende, como seria a consulta?? uma filtrando com data e a outra...??, se for o caso pode-se criar uma tabela temporaria e jogar a 1º query lá, depois fazer outra query... abs Lisandro Oliveira

Sem problema, o que importa é que você conseguiu fazer Até mais...

ah so mais uma coisinha, a data do inputbox você tira fora!!! dataini = InputBox("Digite a data Inicial", , "01/01/2004") datafim = InputBox("Digite a data Final", , "01/04/2004") deixando so assim: dataini = InputBox("Digite a data Inicial") datafim = InputBox("Digite a data Final") eu utilizei essas datas somente para testar, beleza?? fui...

Olá Fly, em outlook Express??? ve se te ajuda: http://ilove.terra.com.br/lili/exportarmensagem.asp Abcs Lisandro Oliveira

beleza, Não esqueça!!!! Falow, Abs Lisandro Oliveira

Vá em arquivo Novo/Arquivo de pasta particular (.pst) Digite um nome para o arquivo, De um nome para a pasta OK. Jogue todos os arquivos nessa pasta. Se quiser fecha-la clique com o botão direito nela e feche, depois para abri-la vá em: Arquivo/abrir/Arquivo de pasta particular (.pst) beleza???? Abs Lisandro Oliveira

Alex, realmente é uma situação complicada aí, porque de qualquer forma você então vai ter que trabalhar com varios arquivos, uma solução para não ter que ficar digitando os valores das planilhas em um arquivo especifico e criar uma macro (no arquivo Central) que puxa todas as planilhas dos outros arquivos para este mesmo arquivo e ai você trabalha com formulas, funções... Abs Lisandro Oliveira

Falow, Até mais Abs Lisandro Oliveira

Olá Alex Compartilhe a sua Pasta de trabalho (o ser arquivo excel) Vá em Ferramentas/compartilhar pasta de trabalho, Ative o permitir alterações por mais de um usuario / ok Agora direcione a sua aplicação para sempre abrir este arquivo. Obser: As alterações serão feitas toda vez que um usuario salvar o arquivo ou então você pode definir um periodo de auto salvamento lá no compartilhar pasta de trab. Abs Lisandro Oliveira

1º É preciso saber identificar com precisão o tipo de problema com o qual você se depara. Primeiramente você tem que saber exatamente qual é o se objetivo.Um exemplo simples - você vai no Supermercado com R$30,00 e precisa comprar Açucar, Arroz, Feijão e frutas (essas são as variaveis do problema). Agora vamos supor que você gastou 10,00 com açucar, 5,50 com Arroz e 9,00 com feijão. Quanto você poderá gastar com Frutas?? A B Produto Valor Açucar 10,00 Arroz 5,50 Feijão 9,00 Frutas Total 24,50 A única formula da planilha esta em B6 =Soma(B2:B5) Vá em Ferramentas/ Atingir meta Definir Célula: Aqui deve obrigatoriamente conter uma celula com Formula, no caso B6 (ai ele já sabe o intervalo que ele ira analisar para que o valor seja 30,00 Para Valor: Aqui é o valor a ser atingido que no nosso caso é 30 Variando Celula: É a celula que ainda não contem um valor (que ele ira definir) B5 OK. Olha eu não conheço muito aonde você pode encontrar, talves tenha nesse link o meu pouco conhecimento de VBA vem do Visual basic que eu procuro adaptar para o excel, http://www.tudosobrexcel.hpg.ig.com.br/home.html Abs Lisandro Oliveira

Ufa..., Funcionou... Vamos lá: Sub Macro1() Dim dataini, datafim As Date dataini = InputBox("Digite a data Inicial", , "01/01/2004") datafim = InputBox("Digite a data Final", , "01/04/2004") di = Format(dataini, "yyyy-mm-dd") df = Format(datafim, "yyyy-mm-dd") With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DSN=Banco de dados MS Access;DBQ=C:\temp\lis.mdb;DefaultDir=C:\temp;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _ , Destination:=Range("A5")) .CommandText = Array( _ "SELECT cliente.codigo, cliente.nome, cliente.data" & Chr(13) & "" & Chr(10) & "FROM `C:\temp\lis`.cliente cliente" & Chr(13) & "" & Chr(10) & "WHERE (cliente.data >= {ts '" + di + " 00:00:00'} And cliente.data<={ts '" + df + " 00:00:00'})" _ ) .Name = "Consulta de Banco de dados MS Access" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With End Sub Parece tá meio confuso né??, mas como você disse a parte do select é a chave: .CommandText = Array( _ "SELECT cliente.codigo, cliente.nome, cliente.data" & Chr(13) & "" & Chr(10) & "FROM `C:\temp\lis`.cliente cliente" & Chr(13) & "" & Chr(10) & "WHERE (cliente.data >= {ts '" + di + " 00:00:00'} And cliente.data<={ts '" + df + " 00:00:00'})" _ ) Veja bem, o "+ di +" o sinal de "+" é a concatenação, e o di e o df são suas variaves que foram definidas no começo do codigo: Dim dataini, datafim As Date dataini = InputBox("Digite a data Inicial") datafim = InputBox("Digite a data Final") di = Format(dataini, "yyyy-mm-dd") df = Format(datafim, "yyyy-mm-dd") Dessa forma será exibida uma janela para digitar a data inicial e a data final. veja aí, qualquer coisa retorne Até mais Abs Lisandro Oliveira

Bom dia pessoal, Dequinha se você quer trazer qualquer dado do Access para o excel, o melhor é você fazer o que o Coringa disse: -Dados/obter dados externos/criar nova consulta ao banco de dados -Escolha "Banco de dados Ms Access*" -Selecione o banco -Selecione a tabela ou consulta / os campos / avançar... e concluir Observação: Antes de você fazer isso você pode ligar a macro, ai depois é só colocar em um botão que ele puxará direto do access p/ o Excel. Abs Lisandro Oliveira

Falou pouco.. mas falou buunito... Isso ae meu velho, deveriam te recomendar pra Mod... tenho acompanhado algumas soluções apresentadas por vc... você mata a pau. é consiso, simples e objetivo... Falow. valeu coringa, mas o que significa mod.....

Olá dixavaldo, não sei como você fez o vindulo mas faça o seguinte: No power point: Vá em inserir/objeto, escolha criar do arquivo, ative o vinculo, clique em procurar e depois OK. mude alguma coisa lá no arquivo do excel, Save!!! Agora no power point clique em Editar/Atualizar vinculo/atualizar agora ou então feche o arquivo e toda vez que ele for aberto será exibido um janela para atualizar os vinculos, clique em sim

Qual a versão que você esta instalando? você pode tb digitar 210 por 297

Puxa cara tá complicado isso em!!! Se fosse so o processo do loop, tudo bem mas como fazer que o excel traga o valor do campo que sempre esta sendo alterado, sinceramente eu não estou conseguindo simular essa situação direito, É que na verdade a sua realidade está muito "nebulosa" pra mim, estou tentando simular em pensamento isso tudo. Vou tentar analisar melhor aqui pra ve se sai alguma coisa, beleza??

faltou o "ponto" valeu cara!! se precisar de alguma coisa sobre design estou por ai valeu!!!! Abs Lisandro Oliveira

Adriano, o que eu quis dizer é que você pode se conectar ao banco de dados apartir do excel, utilizar selects, inserts.... tudo atraves do VBA (pode até ser colocado em um botão depois), e o problema não é nem deixar em ordem alfabetica(esse é o de menos), é so saber como trazer esses dados. Se você acessar o banco, irá resolver os seu problema??, ou tem que ser de outra forma?

Adriano esse valor1=247 e valor2=209 são valores variaveis, que são digitados pelo usuario, então teoricamente você teria que colocar o nome do text (da caixa) onde o usuario digita os valores, Mas esses valores não ficam armazenados em nenhum lugar??, porque seria muito mais facil você conectar ao banco e puxar os valores de lá!!

Legal era assim que eu queria mas não conseguir fazer com a 1º letra em maiusculo q é do geito q eu uso. Você conseguiu fazer? devo estar errando alguma coisa você faz assim =PRI.MAIÚSCULA(A1) Abs Lisandro oliveira

Adriano, nesse exemplo, existe o valor1 e valor2, 247 e 209, então eles que vão pro excel certo?, numa segunda vez será digitado outros valores, e você quer que esses outros valores vão tb pro excel? alguma coisa assim??

Valeu por retornar!!! Falow!!

Já estou cadastrado Até mais!!!

Vamos supor que você tenha na coluna A os texto em minusculo e você quer deixa-los em maiusculos: Na coluna B, na linha 1, você coloca: =maiuscula(A1), e depois é so arrastar a formula OBS: É maiuscula e não maiusculo. qualquer coisa retorne ABs Lisandro Oliveira outra coisa Depois de ter feito a fórmula, você pode selecionar todos os textos (que ficaram em maiusculo ou minusculo) e copiar, depois clique em editar/colar especial e escolha valores. isso faz com que não fique a formula e sim o texto em si. faça o teste, Falow