Live Brain Tutoriais

Opa Leandro, Eu faria da seguinte forma: Na sua coluna G, colocaria um contador de 5 em 5 1 6 11 até o número maximo dos seus registros.. depois usaria a fórmula INDIRETO nas colunas B, C, D, E e F da seguinte forma coluna B... =Indireto("A" & $G1) coluna C... =Indireto("A" & $G1 + 1) coluna D... =Indireto("A" & $G1 + 2) coluna E... =Indireto("A" & $G1 + 3) coluna F... =Indireto("A" & $G1 + 4) Dessa forma, você pode copiar ou arrastar até o final dos registros. Abraços

Opa amigo, Chame a SUB salvar depois da primeira macro... Private Sub Workbook_Open() Range("D4").Value = Range("D4").Value + 1 Salvar End Sub

Opa amigo, fiz o seguinte código abaixo... No meu exemplo eu montei duas colunas Na coluna A eu deixei uma numeração qualquer apenas para controle, como se fosse um numero de fatura por exemplo Na coluna B, deixei minhas datas de Vencimento Os valores começam na linha 3 da planilha e na Célula D1 eu deixei a fórmula =Hoje() então a macro verifica linha a linha as células da Coluna B e a compara com a célula D1 Bom, acho que esse código pode te dar uma Luz para a sua planilha... Sub Vencimento() Dim intLinha As Integer intLinha = 3 Do While Len(Range("a" & intLinha).Value) > 0 If Range("B" & intLinha).Value <= Range("D1").Value Then Range("B" & intLinha).Interior.Pattern = xlSolid Range("B" & intLinha).Interior.Color = 255 Else Range("B" & intLinha).Interior.Pattern = xlNone End If intLinha = intLinha + 1 Loop End Sub

Opa, tente da seguinte forma: SELECT a.cod_empresa, a.cod_item, Sum(a.qtd_pecas_solic) FROM ped_itens a WHERE a.cod_empresa = '02' and a.cod_item = '32780' and a.prz_entrega <= '30/08/2014' Group By a.cod_empresa, a.cod_item

Opa, pegando o exemplo dos 3 textBox =se(a1*a2>a1*a3;a1*a2;a1*a3) em VBA fica assim If text1 * text2 > text1 * text3 Then text1 * text2 else text1 * text3 End If

Opa, acho que o que você precisa está nessa video aula que montei. Veja se te ajuda http://youtu.be/yGsnNg6GZsg

Opa, é só usar a função SE uma dentro da outra até atender todos os seus critérios se(Celula < 100;Celula * 1,3;se(e(Celula >=100;Celula<=200);Celula * 1,4;Celula*3,0) Na função acima, você vai repetir a parte em vermelho até atender todos os seus critérios. Lembrando que a parte em Azul é o seu primeiro critério e a parte em Verde o seu último critério. E depois da parte verde você terá que fechar todos os parenteses dos SEs que você abriu, apesar que o Excel fecha pra você.

Monique, eu faria da seguinte forma. Criaria um formulário associado a uma consulta que teria a função abaixo com o critério <10 Dias: DifData("d";Data();[NomeTabela]![NomeCampoVencimento]) Ai você escolhe a melhor forma de chamar esse formulário que irá listar todos os menor que 10 dias.

Opa Galera tudo bem? Montei um Canal no Youtube sobre tutoriais, nesse primeiro momento estou subindo vídeos do Access e do Excel, mas pretendo expandir também para SQL Server, Visual Studio e outros softwares. Youtube: https://www.youtube.com/user/livebraintutoriais/ Facebook:https://www.facebook.com/livebraintutoriais

Opa Nelson, Você pode usar algo do tipo Select Produtos, 0 as Qtde from tbProdutos where Produtos not in ( Select Produtos from tbProdutos where count(Produtos)>0)

Opa Valter, Não entendi muito bem sua idéia mas eu fiz o seguinte e veja se te ajuda: Coloquei 4 textBox no meu formulário (Texto0, Texto2, Texto4 e txtResultado). Sem nenhum vinculo em tabela. Mudei o formato deles para "Número Geral" na origem de dados do txtResultado eu coloquei o código abaixo: =SeImed([Texto0]>[Texto2] E [Texto0]>[Texto4];[Texto0];SeImed([Texto2]>[Texto0] E [Texto2]>[Texto4];[Texto2];[Texto4]))

opa Nico, Em primeiro lugar a mensagem está acontecendo o ponto e virgula da primeira SQL finaliza a instrução. Mas, mesmo tirando o ; vai dar erro pois tem que executar uma de cada vez. como você está chamando o comando SQL? É através da função DoCmd.RunSql?

Opa, veja se essa video aula te ajuda. https://www.youtube.com/watch?v=VDYGGoKRihY&list=UUMV_ZnOVfkDctYdVOzeoXCg