Michelle Alves

Boa Noite, Tentei formatar um PC da Positivo de uma vizinha, mas acabou aparecendo durante o processo de instalação do XP Professional a BSD (Blue Screen of Death). E com a seguinte mensagem: Foi detectado um problema e o windows foi desligado para evitar danos ao computador. Se esta foi a primeira vez que você vê esta tela de erro de parada, reinicie o computador. Se a tela for exibida novamente, siga estas etapas: Verificar se há vírus no computador. Remova qualquer disco rígido ou controlador de disco rígido instalado recentemente. Verifique o disco rígido para certificar-se de que ele está configurado e ligado corretamente. Execute CHKDSK/F para verificar se o disco rígido foi corrompido e reiniciar o computador. Informações técnicas: ***stop: 0x0000007B (0xF7966528, 0xC0000034, 0x00000000, 0x00000000). Já tentei diversas vezes e sempre aparece a mesma mensagem. A configuração do PC é Pentium IV 3Ghz, 256MB de memória, HD Sata 80 Giga, ele veio rodando de fábrica o Windows XP Home Edition, e eu tentei colocar o XP Professional. O que eu teria que fazer para corrigir esse erro?

Boa noite Kuroi, Obrigada novamente por toda sua boa vontade. Queria fazer esses Quotes, mas dá última vez que tentei não consegui, então vou copiando suas perguntas e respondendo: michelle, seria so a coluna pesquisada sim, passei de exemplo pois não sei o q você quer adicionar. mas pra adicionar os otros dados, é so você trocar o x(i), pela letra da coluna q você quer. Troquei o x(i) Tentando como: CREC.ListBox1.AddItem .Range("B"(i) & j).Value Dessa forma o VBA não aceita, então coloquei assim: CREC.ListBox1.AddItem .Range(x("B") & j).Value Mas não filtrou nada.... o código roda, mas não filtra o Código completo ficou assim: Dim i As Integer, j As Integer Dim colunas As String, x() As String colunas = "L" x = Split(colunas, ",") Dim fim_coluna As Boolean For i = LBound(x) To UBound(x) j = 5 With Sheets("CREC") fim_coluna = False Do While Not fim_coluna If .Range("C" & j).Value <> "" Then If CDate(.Range(x(i) & j).Value) > CDate(TextBox12.Text) And CDate(.Range(x(i) & j).Value) < CDate(TextBox13.Text) Then CREC.ListBox1.AddItem .Range(x("B") & j).Value CREC.ListBox1.AddItem .Range(x("C") & j).Value CREC.ListBox1.AddItem .Range(x("D") & j).Value CREC.ListBox1.AddItem .Range(x("E") & j).Value CREC.ListBox1.AddItem .Range(x("F") & j).Value End If j = j + 1 Else fim_coluna = True End If Loop End With Next End Sub A dúvida seria, como fazer para que quando fosse 1 parcela, descesse apenas 1 linha, quando fosse 2 parcelas, desceria 2 linhas e assim por diante ?? michelle essa parte eu não entendi. você diz q seria 1 parcela em cada linha, você diz q seria 1 linha no listbox, ou na planilha?? Essa é parte que pensei em postar outro tópico, pois pensei numa forma de que a pesquisa fosse apenas em 1 COLUNA, mas teria que mudar um outro FORM. Já consegui essa parte, mas tá com um errinho chato, ele insere as linhas conforme os planos de PG, mas a partir da segunda linha sai desconfigurado. estou mandando um arquivo dele juntamente ele com o exemplo da pesquisa, o FORM dele é FrmCaixa. Outra coisa, percebeu que tenho um código para correr os registros nos TEXT ? Ele dá conflito com o código de pesquisa? não vi michelle, a q sub exatamente você ta se referindo?? mas acho q não dara conflito nenhum No exemplo que estou enviando tá esse código. É aquele que faz correr os registros nos TEXT, seja PRÒXIMO OU ANTERIOR. Para melhor visualizar tudo que falei envio o link do arquivo: http://www.4shared.com/account/file/99980195/6c38e375/EXEMPLO_CREC-4_MODIFICADO.html Kuroi mais uma vez muitíssimo obrigada.

O outro post era de um funcionário daqui da empresa mesmo, mas aquela tua outra resposta lá naquele fórum não deu certo. Mas esse aqui deu certinho, Carlos. Muito Obrigada.

Boa tarde pessoal, O sistema da empresa em que trabalho possui um formulário de inclusão de projetos que precisa das seguintes alterações: - permitir que o campo "usuário responsável" permita alteração de matricula - criar um campo que armaze a matricula do usuário que iniciou o projeto. Eu já tentei fazer a seguinte alteração : Mudei o TStatictext para um TEdit. O StaticText o campo que possui a matrícula já fica automaticamente desabilitado não permitindo qualquer alteração , então pensei em substitui-lo por TEdit que irá permitir que a matricula seja alterada. Só que ao fazer esta mudança o sistema não aceitou... E eu também não consegui fazer que o TEdit gerasse automaticamente a matricula do usuário, como é feito no TStatic. O meu grande problema é que este campo possui várias outras dependencias e tudo que eu fizer nele pode causar impacto nos outros. Estou fazendo as alterações no código pai, para que os outros sejam alterados mas mesmo assim não funciona... quando compilo o programa e acesso o formulário para ver o resultado, o sistema entra em loop e fecha... Desde já agradeço à todos que puderem me ajudar, Michelle.

Acho que compliquei, né... misturei as coisas. Uma coisa é a pesquisa e outra coisa é inserção de dados. Se achar melhor eu posto um tópico só para a inserção de dados. Muito obrigada

Boa noite, Colocando CREC.ListBox1.AddItem .Range(x(i) & j).Value O retorno no Listbox seria apenas das colunas pesquisadas, certo ? E não dos outros dados... De qualquer forma, fiz um teste apenas com CREC.ListBox1.AddItem .Range(x(i) & j).Value e não funcionou. Mas olha só, Eu e o pessoal do serviço quebramos a cabeça hoje e pensei agora a noite. Acho que estou complicando sem necessidade a entrada dos dados. E isso deixa a pesquisa complicada. Se conseguir inserir cada parcela em uma linha resolveria de vez esse problema de ter que fazer a consulta em tantas colunas, pois a data de vencimento estaria sempre na mesma coluna. A dúvida seria, como fazer para que quando fosse 1 parcela, descesse apenas 1 linha, quando fosse 2 parcelas, desceria 2 linhas e assim por diante ?? Outra coisa, percebeu que tenho um código para correr os registros nos TEXT ? Ele dá conflito com o código de pesquisa? Se houver necessidade de verificar como seria essa estrutura vou postar o exemplo: http://www.4shared.com/account/file/984205...MODIFICADO.html Muito Obrigada, Kuroi.

Ahhhh.... vi aqui, Kuroi. Ele ativou a célula mesmo. Então, ele puxaria os dados para a Listbox. Agora que vi, o que você disse sobre o FindNext, realmente, ele ativa só uma linha, quando o resultado da pesquisa é mais de 1 item..... Para puxar os dados para a List seria +ou - assim? Sub Pesquisar() Dim i As Integer, j As Integer Dim colunas As String, x() As String colunas = "J,L,N,P,R,T,V" x = Split(colunas, ",") Dim fim_coluna As Boolean For i = LBound(x) To UBound(x) j = 5 With Sheets("CREC") fim_coluna = False Do While Not fim_coluna If .Range("C" & j).Value <> "" Then If CDate(.Range(x(i) & j).Value) > CDate(TextBox32.Text) And CDate(.Range(x(i) & j).Value) < CDate(TextBox33.Text) Then CREC.ListBox1.AddItem Range("B" & j).Value CREC.ListBox1.AddItem Range("C" & j).Value CREC.ListBox1.AddItem Range("D" & j).Value CREC.ListBox1.AddItem Range("E" & j).Value CREC.ListBox1.AddItem Range("F" & j).Value CREC.ListBox1.AddItem Range("C" & j).Value CREC.ListBox1.AddItem Range("C" & j).Value CREC.ListBox1.AddItem Range("C" & j).Value Exit Sub End If j = j + 1 Else fim_coluna = True End If Loop End With Next End Sub O que pretendo é exatamente o que você escreveu no último quote.

Bom Dia, tenho um programa de cadastro simples em VBA, caso se interesse entre em contato. siqueiramichellea@yahoo.com.br

Bom dia Kuroi, Gostei da estrutura da sua pesquisa, ficou muito enxuta, só que infelizmente não puxou nada aqui, você testou ela ? [\quote] Sub Pesquisar() Dim i As Integer, j As Integer Dim colunas As String, x() As String colunas = "J,L,N,P,R,T,V" x = Split(colunas, ",") Dim fim_coluna As Boolean For i = LBound(x) To UBound(x) j = 5 With Sheets("CREC") fim_coluna = False Do While Not fim_coluna If .Range("C" & j).Value <> "" Then If CDate(.Range(x(i) & j).Value) > CDate(TextBox32.Text) And CDate(.Range(x(i) & j).Value) < CDate(TextBox33.Text) Then .Range(x(i) & j).Activate Exit Sub End If j = j + 1 Else fim_coluna = True End If Loop End With Next End Sub

Boa noite, Tenho um USERFORM que irá somar os dados de uma planilha. Por exemplo, na textbox1, deve somar todos os valores que são referentes a DINHEIRO, na textbox2 todos que são referentes a CHEQUE e na textbox3 todos que forem referentes a CARTÃO. Exemplo: 15/02/09 DINHEIRO R$ 60,00 18/02/09 CARTÃO R$ 110,00 18/02/09 CHEQUE R$ 150,00 21/02/09 DINHEIRO R$ 89,00 25/02/09 CHEQUE R$ 70,00 Alguém pode me ensinar a montar a estrutura para efetuar essa soma ?

Bom dia Leandro, Conseguiu entender minha explicação ou compliquei mais ainda ?

Complicado.... Você pegou um código pronto do Tomás Vasquez, certo ? E tentou incorporar um Image nele, para que o Image funcione corretamente precisa entender todo o processo do código. No que primeiramente dá pra falar é que faltou você declarar o objeto Image, assim como é feito com todos os Text. Parece que não mudaria, somente seria outro objeto, mas é preciso ver se a imagem está na mesma planilha que os outros dados, na mesma linha, etc. Isso é com você ....

Boa Tarde MrMjal, Verdade... o bonde já andou um pouco, mas toda ajuda é válida. Então, o projeto tá todo pronto, mas em Excel. O que acontece é que eu queria agora passar o BD para Access, pois isso me proporcionaria alguns benefícios.

Então Leandro, Conforme te falei enviei apenas um exemplo, e no arquivo do Access existem apenas as tabelas mesmo e sem vínculo, neste primeiro momento, pois conforme te falei, vou migrar aos poucos. No arquivo do Excel tem uma conexão que consegui fazer por meio da sua explicação. Ao inserir os dados no FORM do Excel ele vai direto para a tabela do Access. O meu problema é com a parte seguinte, que seria a consulta dos dados que estão no Access. Enviei o frmPesquisa do Excel, para que você possa entender o estilo da consulta que faço pelo Excel, gostaria de fazer essa mesma consulta, mas puxando os dados que estão no Access, e é ai que mora meu problema, pois a pesquisa que faço pelo Excel é muita complexa e não compreendi bem como fazer a consulta dos dados com a tabela vindo do Access. Muito Obrigada

Veja se é o que procura: http://www.juliobattisti.com.br/forum/foru...83&KW=fotos

Segue seu exemplo feito, basta inserir seus dados. http://www.4shared.com/account/file/972479...le_de_SACP.html Caso precise de uma assessoria em suas planilhas eu presto esse serviço. Abraços

Já fiz o Upload Vanis, Quer que a linha toda fique azul ou somente a célula na coluna I ?

Pode sim. Coloca num HD virtual como o 4shared.com e informa o link aqui.

Boa noite Angus, Para realizar soma você precisa declarar as variáveis, caso contrário o VB vai interpretar como uma concatenação mesmo. Segue abaixo um exemplo de como deve proceder: Sub SOMA() Dim x As Integer Dim y As Integer Textbox1.Text = x Textbox2.Text= y msgbox= x+y

Boa Tarde Humberto, Não sei se entendi bem, sua necessidade. Como disse, postando um exemplo para baixar seria mais fácil avaliar. Mas se entendi bem o que você quer fazer, as atualizações podem mudar automaticamente se colocar no evento Change da planilha que deseja efetuar a alteração.

Vanis, Basta colocar o intervalo que você precisa então, por exemplo: P1:P500="P"

Oi Humberto, tem como postar um exemplo para poder avialiar melhor sua necessidade?

Então Vanis, A maneira mais simples é clicar na célula que está formatada e arrastar... igual uma fórmula.....

Oi Vanessa, É simples, por exemplo para formatar em P1, selecione a célula, vá em FORMATAR / FORMATAÇÃO CONDICIONAL Lá digite =P1="P" Depois clique em formatar, vá na aba Padrões e altere para a cor que deseja, dê OK e PRONTO. Caso precise demais outras células pode arrastar a fórmula ou fazer um período maior. Se ainda tiver dúvidas posto um exemplo para você.

Boa tarde Adriano, Primeiramente habilite a propriedade Column Count do List, colocando as 3 colunas que você precisa. E depois insira o código abaixo no evento Initiliaze do FORM: Dim linha As Integer On Error GoTo ErrHandler linha = Plan1.Range("A65000").End(xlUp).Row i = 0 With ThisWorkbook.Worksheets("NOME") While linha <> 1 Me.ListBox1.AddItem , ListIndex ListBox1.List(i, 0) = Sheets("nome").Cells(linha, 1) ListBox1.List(i, 1) = Sheets("nome").Cells(linha, 2) ListBox1.List(i, 2) = Sheets("nome").Cells(linha, 3) ListBox1.ListIndex = 0 linha = linha - 1 Wend End With ExitHere: Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHere End Sub