kuroi

a quarta coluna não é essa daqui?? ListBox1.List(i, 3) = Format(TextBox8.Text, "R$ 0.00") não é o textbox8 q você ta inserindo?? então no meu codigo, troque valor por TextBox8.Text. não é isso??

ue, não é so isso?? TextBox1.Text = TextBox1.Text + valor ou ainda: TextBox1.Text = Val(TextBox1.Text) + Val(valor) ou então: TextBox1.Text = CDbl(TextBox1.Text) + CDbl(valor)

então rizuane, não conheco nenhum programa q protege o cd, de uma postada perguntando sobre isso na sala de outros assuntos aqui no forum. entretanto, por mais q você proteja, sempre dao um jeito de copiar ne. quanto ao erro do innosetup, talvez você esteja esquecendo alguma dll. olha no seu projeto quais as ocxs e referencias q você adicionou e ai você tem q adicionar todas elas. bom, isso, na verdade é um saco de fazer ne. eu acho mais facil primero fazer o isntalador pelo package & deployment. porque ai ele copia todas as dlls, ocxs e otros arquivos necessarios em uma pasta separada. ou se não me engano, tem uma opcao pra so copiar as dlls, nem precisa fazer o instalador todo. ai sabendo quais as dlls, você adiciona no instalador no innosetup. mas tb tem q ficar de olho em quais dlls e ocxs tem q mandar registrar ne. ocxs normalmente sempre registra, mas quanto as dlls, o q eu costumo fazer é mandar registrar todas e rodar o instalador uma vez, ai ele vai dar erro quando for pra registrar dlls q não precisam de registro. ai eu anoto todas as q deram erro e depois, tiro o flag de registro dela do innosetup.

com a formatacao condicional eu não posso te ajudar. ato ao vba te passei o codigo no post acima, é so adaptar.

mas tem q ser por vba mesmo?? acho q isso daria pra fazer por codigo do proprio excel não?? em formatacao condicional acho bom, mas como eu manjo menos de excel do q de vba, acho q pra pintar a linha seria isso: If Sheets("Plan1").Range("B1").Value = "Pago" Then With Rows("1").Interior .ColorIndex = 4 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With ElseIf Sheets("Plan1").Range("B1").Value = "Não pago" Then With Rows("1").Interior .ColorIndex = 6 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End If[/code] so aponte para as celulas e linhas q você quer. acho q você teria q fazer um while ou um for pra percorrer todas ne. e quanto a data não entendi direito o q você quer faer, pra comparar você pode fazer assim ó: [code]If DateDiff("d", Date, CDate(Sheets("Plan1").Range("A1").Value)) < 5 Then 'Falta Menos de 5 Dias Else 'Falta Mais de 5 Dias End If EDITADO: a michelle foi mais rapida, e como ela disse acho q a formatacao condicional seria mais facil pra você.

então, mas como eu disse tome cuidado, porque se você fizer o update agora, mas depois mais valores nulos continuarem sendo gravados, não vai adiantar de nd, e ai você teria q usar o segundo codigo q passei (alem de q teria q por o IIf() tb no segundo Sum() q você faz la embaxo, q esqueci de dizer antes). mas quanto ao update, clica la do lado em Consultas -> Criar consulta no modo Design, fecha a janela "Mostrar tabela" caso apareca alguma, ai clique no primero botaozinho la em cima no menu la em cima e seleciona Modo SQL. ai cole o codigo q passei e clique na exclamacao pra executar. e ai pronto, veja se arrumou o relatorio.

é, mas esse campo campo_livre5 tem valor nulo em alguma linha?? se tiver vai dar esse erro mesmo. se o problema for esse mesmo e se você der um update na tabela, assim deve resolver: Update processos Set campo_livre5 = 0 Where IsNull(campo_livre5) isso porque imagino q o campo_livre5 seja numerico ne?? porque se não for, nem o sum() vai funcionar. mas se por acaso, o programa q enche o banco for sempre gravando valor nulo nesse campo, você pode tentar por direto no select então: TRANSFORM (CStr(Count(*)) & " R$ " & CStr(SUM(IIf(Not IsNull([processos].[campo_livre5]), [processos].[campo_livre5], 0)))) AS Campo

o codigo q eu passei não deu então?? pra mostrar a imagem, hospede ela num servidor, tipo http://www.imageshack.com e passe o link aqui. to movendo pra access então.

acho q seria tipo isso: (CStr(Count(processos.processo)) & " R$ " & CStr(SUM([processos].[campo_livre5]))) As Campo você diz q ta fazendo o relatorio na opcao "Relatórios" dentro do access?? bom, se for talvez seja melhor eu mover o tópico pra access. ai se isso ai não resolver, talvez fosse melhor você postar um printscreen do seu relatorio no design pra ver se a gente aqui entende melhor.

leandro, primero nota q isso ai não devia ser uma function e sim uma sub. porque function retornam valores, e a sua function não ta retornando nd. tipo você podia delcarar assim: Public Sub DesativaCheck() apesar de q você pos As Boolean, isso não vai ter a minima utilidade, se você não for usar ne. mas então, pra fazer isso q você quer é so passar por parametro. tipo assim: Public Sub DesativaCheck(t As Boolean) Me.CheSeguro.Enabled = t Me.CheContabil.Enabled = t .... ... Me.CheNaoIncluso.Enabled = t End Sub[/code] e ai pra chamar, quando você quiser habilitar faca: [code]DesativaCheck True e pra desabilitar: DesativaCheck False

tenta adicionar isso na primera linhja: If Target <> Range("A1") Then Exit Sub substituindo A1 pela celula q você quer.

michelle, da uma olhada nessa parte do codigo: Resultado.Worksheet.Activate isso ai vai ativar a planilha BDCQE sempre q a funcao for chamada. e se você tirar essa linha ela vai para de funcionar. no fundo, essa funcao ai faz a mesma coisa da q eu passei, com a unica diferenca de q essa dai vai mover o cursor pra celula encontrada (o q vai forcar a mudar de planilha), enquanto q a minha captura o texto sem mover o cursor, e tb q eu pus uns detalhes a mais pra garantir q não ocorram erros.

mano, num escreve com letra gde q é um saco pra ler. nunca tinha visto isso de limitacao de instalacao, e a não ser q eu não tenha entendido direito, se alguém me perguntasse eu diria q é impossivel. hum, seila, a não ser q seja um cd-rw e você possa escrever dentro do cd pra dizer q já foi instalado. mas nd impede do cara fazer uma iso do cd ANTES de instalar, o q daria permissao pra mais instalacoes. EDITADO: ou uma possibilidade talvez, seria você fazer seu programa so rodar depois de ativacao via web. ai você teria q tipo gerar uma key pra cada cd, e quando ele fosse instalar pelo cd, o key fosse passado e gravado no banco de dados no seu servidor. caso o cara tentasse ativar o mesmo key uma quarta vez, você não permitiria. bom, é uma ideia, mas acho q o mais legal seria você levar em conta q nem todo mundo q va instalar o software necessariamente vai ter acesso a web naquele pc ne. mas acho q esse seria o jeito, porque pelo menos eu não imagino se existe um jeito de fazer pelo cd. alem do mais, não acho essa sua ideia legal. o cara instala, mas depois tem q formatar o computador e ai não consegue instalar de novo??

ponha na session. tipo numa variavel de sessao tipo Session("data"). quando ele abrir a pagina, testa se o Session("data") ta vazio. se tiver, significa q é a primera vez, a você preenche com a hora atual.

ue não é so declarar tipo assim: <script> function MinhasFuncoes() { Close(); View(); light(); } </script>[/code]

é verdade, é q tem uns ranges em q não ta especificada as planilha ai no codigo. ai ele entende q é da planilha ativa. é so você por especificar a planilha pra todos os ranges. onde ta After:=Range("C2") troque por After:=Sheets("BDCQE").Range("C2") e onde ta TextBox6.Text = Range("B" & r.Row).Text troque por TextBox6.Text = Sheets("BDCQE").Range("B" & r.Row).Text

se você adicionar o math.h, acho q o numero e seria a constante M_E ou você pode simplesmente declarar com o valor 2.7182818284590452354

é, você so pode testar o EOF depois de já ter executado o select dentro do rs

exatamente, o corresp vai retornar a linha, mas sabendo a linha é so você mover pra posicao onde ta. mas esquece esse corresp q ta complicando mesmo. usa aquele meu primero codigo, dei uma modificada aqui nele e funcionou na sua planilha, olha ai: Private Sub TextBox5_Change() Dim r As Range If Not IsNumeric(TextBox5.Text) Then TextBox6.Text = "" Exit Sub End If Set r = Sheets("BDCQE").Range("C2:C65").Find(What:=Val(TextBox5.Text), After:=Range("C2"), LookIn:=xlValues, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not r Is Nothing Then TextBox6.Text = Range("B" & r.Row).Text Else TextBox6.Text = "" End If End Sub[/code]

carolina realmente nunca vi nenhuma funcao q faca isso, acho q você vai ter q montar a sua. aqui tem um exemplo ó: http://www.bufaloinfo.com.br/forum_mensage...=1&CDM=2703 talvez fosse mais facil com replace, mas essa ai deve funcionar.

o unico modo q conheco é você reescrever o arquivo todo. tipo abra esse ai pra leitura e abra um novo pra escrita. ai você vai copiando o conteudo do primero dentro do segundo e altera o q você precisar. ai depois você pode apagar o primero arquivo (com a funcao Kill("nomearquivo.txt")) e depois renomear o segundo pra ficar no lugar do primero (Name "nomearquivo.txt" As "novonome.txt").

então michelle, mas é pra por isso no change do textbox5. da uma olhada no primero parametro, o q você quer procurar é o q ele tiver digitando não?? então se você poe no change do textbox6, ele vai chamar quando você digitar no textbox6 certo?? mas ai ele ta digitando no 6, mas você ta procurando o texto q ta escrito no 5. e se o textbox5 estiver em branco vai dar esse erro, eu mesmo testei aqui. e ele tb tava dando o erro pra mim caso eu passe o range de onde tem valor. então tenta assim ó: Private Sub TextBox5_Change() TextBox6.Text = WorksheetFunction.Match(TextBox5.Text, Sheets("BDCQE").Range("B2:B50"), 1) End Sub[/code] exatamente como ta ai, e ai veja, se continuar dando erro então tenta mudar o range pra so ate onde tem valor. entretanto tb to tendo uns erros com o match() caso eu digite um valor menor do q o da primera linha, so consegui corrigir com o on error. de qualquer modo, olha aqui uma planilha com o codigo todo funcionando, de uma olhada como eu fiz e ai você pode adaptar na sua planilha. rode o userform e digite o texto no textbox de cima: match.rar

olhai td q você queria: http://www.macoratti.net/webcam.html http://www.macoratti.net/07/08/vb_wbc1.htm

é isso mesmo. agora so falta você compilar e testa pra ver se ta funcionando ne.

ai, o 50% já passei em cima, é so dividir por dois. bom, primero declara as duas variaveis ne. uma pra guardar o 50% e otra pra guardar o valor das parcelas. ai é simples, se a primera parcela é 50%, o q sobra são otros 50% certo?? ou seja o valor q vai ser dividido por 12 são os mesmo 50% ue. é so pegar os 50% (q você vai ter na primera variavel) e dividir por 12 e gravar na segunda. veja ai se entendeu.