kuroi

não, o problema é q aqui no meu excel (office 2003) o textbox não tem a propriedade RowSource na janela de propriedades e não estou conseguindo seta-la no codigo, então não consigo reproduzir seu problema aqui. mas eu fiz um teste com o rowsource do listbox e, realmente mesmo com o formato na celula não aparece no listbox. mas se você tentar dar o Format() direto na celula, deve resolver. exemplo: Worksheets("Plan1").Range("A1").Value = Format(Worksheets("Plan1").Range("A1").Value, "#,###.00")

erika, qual o codigo q você ta usando pra setar o rowsource do textbox??

erika, com o listbox você pode mostrar linhas e colunas. não serve pra você??

o q exatamente você ta precisando fazer, erika??

erika, essa mensagem ta estranha, ela ta dando nessa mesma linha, ou é em outra linha?? tente por então essa linha dentro do evento Activate do form result (significa q vai ser executado assim q o formulario for aberto). de qualquer modo, aqui esta um arquivo q faz exatamente isso q você quer: erika.rar abra o arquivo, aperta Alt + F11, rode o UserForm1, e aperte o botao pra você ver a mascara aparecendo certinho. ai olhe como esta o codigo q eu fiz e ve se você consegue entender o q ta errado no seu. qualquer coisa poste ai, se você quiser mandar a planilha, ponha num servidor tipo rapidshare e passe o link.

gnrslash, você ta agrupando sim pelos outros campos. se você não agrupar você tera q usar uma funcao de agregacao ou coisa do tipo. um exemplo, imagine q na tabela você tenha isso aqui: Tipo | Valores | Loja ----------------------------- 1 | 10,00 | A 1 | 20,00 | A 2 | 10,00 | A 2 | 10,00 | A 2 | 10,00 | B[/code] se você fizer isso aqui: [code]Select Tipo, Sum(valores) as Total FROM Tabela1 Group by Tipo o retorno sera: Tipo | Total ----------------------------- 1 | 30,00 2 | 30,00[/code] certo?? agora imagine q você faca assim: [code]Select Tipo, Sum(valores) as Total, Loja FROM Tabela1 Group by Tipo se você não agrupa pela loja, pra onde tem q ir o A e o B?? o sql não vai saber o q fazer, por isso o erro: a query certa seria essa: Select Tipo, Sum(valores) as Total, Loja FROM Tabela1 Group by Tipo, Loja e retornaria: Tipo | Valores | Loja ----------------------------- 1 | 30,00 | A 2 | 20,00 | A 2 | 10,00 | B[/code] entendeu?? os valores ficaram agrupados por Tipo e tb por Loja. se você não quer agrupar pela loja, ai é você q tem q definir o q acontece com o A e o B. você pode, por exemplo, selecionar a maior loja pra cada tipo com a funcao Max(). exemplo: [code]Select Tipo, Sum(valores) as Total, Max(Loja) As Maior_Loja FROM Tabela1 Group by Tipo o retorno seria: Tipo | Valores | Maior_Loja ----------------------------- 1 | 30,00 | A 2 | 30,00 | B[/code] veja ai se entendeu, qualquer coisa pergunte. mas não poste mais na sala de tutoriais, beleza?? (a não ser q você esteja postando realmente um tutorial).

rafael, você sabe adicionar a linha?? não entendi essa parte da tabela bloqueada. pra contar as linhas, você vai montar a tabela toda por codigo (desda primeria linha)?? se for, é so você declarar uma variavel e inicializar com 1, e ir somando mais 1 a cada linha q você inclui. ai na hora de escrever o numero da linha você pega dessa variavel. se você tiver q pegar a tabela já montada e ir adicionando, ai você teria q puxar o cursor pra celula onde esta o numero da ultima linha, pegar o texto da selecao (q vai ser o numero da ultima linha) e somar mais 1. isso vai depender do tamanho da sua tabela e da onde vai tar o cursor e etc, mas veja ai se é isso mesmo, se você tiver dificuldade eu vejo se consigo te passar um codigo de exemplo.

azevedo, você ta postando na area errada, o certo é em .net (to movendo pra la).

erika, a mascara q você quer acho q seria "#,###.00" e não "#.###,00". mas quanto ao erro, o textbox esta em um formulario diferente daquele ao qual pertence essa sub?? se estiver, você tem q apontar o nome do formulario antes. exemplo, se o textbox esta no form result, e essa sub q você postou esta em outro formulario, você teria q fazer assim: result.Ctotal.text = format(result.Ctotal.text, "#.###,00") mas entenda q o formato sera colocado somente essa vez, e se você alterar o texto dentro do textbox, o formato sera perdido. nesse caso você teria q aplicar o format de novo apos cada alteracao dentro do textbox. se o usuario pode digitar nele, o melhor é você por esse codigo do format dentro do evento Exit() do textbox. EDITADO: dividi o tópico, já q esse é sobre outro assunto, e to movendo pra vba.

qual o evento q você ta pondo esse codigo?? ponha o codigo intero da sub, desde o private sub ate o end sub.

tópico fechado por duplicacao, respostas aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=141737

o algoritmo de euclides você encontra o codigo no google. mas acho q o exercicio é você fazer o seu proprio codigo ne?? nesse caso, você pode ir tirando o resto de todos os numeros ate chegar no maior dos dois. o ultimo numero q tiver dado resto 0 é o maximo divisor comum. mas ai você pode tentar pensar em formas de evitar divisao desnecessaria.

ai você tem q saber de sql. é so usar o where, você deve conseguir passar o select q você quiser la.

se for o controle sstab, tem esse tutorial aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=88741

fernanda, aqui explica como faz isso: http://www.macoratti.net/ado.htm o tutorial é pra visual basic, mas deve servir pro vba.

como to usando linux no momento não posso abrir o vba pra testar, mas sei q no visual basic, você pode fazer isso pegando pela propriedade controls do form. exemplo: MsgBox Me.Controls("Text1").Text isso vai retornar o controle Text1. ai pra fazer isso q você quer seria so montar a string dentro de um For. no vba deve ser a mesma coisa, teste ai.

entre nas propriedades do campo e na opcao Supress, o codigo ficaria assim: numberVar i := 0; //declaro uma variável numberVar j := {command.conta_registros}; //recebo a contagem de registros for i :=0 to j do if i <> j then //se não é a última página, executo o supress True //aqui devo ocultar o Total Fields, que é do tipo numérico (soma) else False; //senão, vou exibir o Total Fields[/code]

crie um array, ai na hora de preencher o combo, você da um ReDim() no array com o numero de registros q tiver. ai você adiciona o codigo no array correspondendo com o indice do combo. ai pra pegar o codigo você so faria assim: codigo = var(Combo1.ListIndex)

isso ai é visual basic.net?? de qualquer forma, não entendi o q você tem q fazer. você quer substituir espaco por "+", se for e so usar a funcao replace: texto = Replace(texto, " ", "+")

como você ta fazendo esse monitoramento dos cliques?? tenta criar um flag pra saber se ele esta executando o clique de algum botao. exemplo, crie a variavel jaclicou como boolean e inicialize ela com False. a na primera linha da sub de cada clique de cada botao você pode If jaclicou Then Exit Sub jaclicou = True[/code] e na ultima linha você poe: [code]jaclicou = False

voce encontra aqui: http://www.sefaz.mt.gov.br/portal/Tributar...integramenu.php

e quanto a isso aqui?? olha uma coisa, clauido. essa query so vai retornar se existir um registro q os DOIS CAMPOS data inicio e data fim forem essa mesma data do dia 27. tem algum registro na tabela com esse valor??

e quanto a isso tdo aqui q eu postei la em cima??

você não tem um campo pra guardar o ano?? EDITADO: o melhor era guardar a data mesmo, e fazer o select assim: Select cod, nome, Sum(a.nota1) As nota1, Sum(a.nota2) As nota2 From Notas As a Where Month(data) = " & mes & " And Year(data) = " & ano & " Group By cod, nome

tente entrar nas propriedades da secao (clique com o botao direto no nome dele no painel da esquerda) e selecione New Page After. tente por os dois em secoes separadas (clique com o botao direito no nome da section no painel da esquerda) e selecione Insert Section Below para adicionar a nova secao.