Ir para conteúdo
Fórum Script Brasil

Live Brain Tutoriais

Membros
  • Total de itens

    13
  • Registro em

  • Última visita

Sobre Live Brain Tutoriais

Live Brain Tutoriais's Achievements

0

Reputação

  1. 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
  2. Opa amigo, Chame a SUB salvar depois da primeira macro... Private Sub Workbook_Open() Range("D4").Value = Range("D4").Value + 1 Salvar End Sub
  3. 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
  4. 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
  5. 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
  6. Opa, acho que o que você precisa está nessa video aula que montei. Veja se te ajuda http://youtu.be/yGsnNg6GZsg
  7. 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ê.
  8. 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.
  9. 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
  10. 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)
  11. 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]))
  12. 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?
  13. Opa, veja se essa video aula te ajuda. https://www.youtube.com/watch?v=VDYGGoKRihY&list=UUMV_ZnOVfkDctYdVOzeoXCg
×
×
  • Criar Novo...