Ir para conteúdo
Fórum Script Brasil

Lisandro Oliveira

Membros
  • Total de itens

    399
  • Registro em

  • Última visita

Tudo que Lisandro Oliveira postou

  1. 1- Olá tito, o que você pode fazer é ocultar as linhas e as colunas que você não vai utilizar 2- Em C6 coloque assim: =EDate(C5,C2) Qualquer coisa retorne Abs Lisandro Oliveira
  2. Olá dhyego, utilize a função Edate() Veja: Na célula A1 = 01/01/2005 =Edate(A1;1) o resultado será: 01/02/2005 Qualquer coisa retorne Abs Lisandro Oliveira
  3. Olá Rafael, coloque esse código e mande executar Sub lis() Dim valor As String valor = InputBox("Digite o valor desejado") Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _ .Activate End Sub Qualquer coisa retorne Abs Lisandro Oliveira
  4. Se você tem a função hoje() na Célula A1 e você quer só o mês faça assim: Na Célula B1 coloque = Mes(a1) beleza Qualquer coisa retorne Abs Lisandro Oliveira
  5. Não, eu gostaria de bloquear toda a planilha sem poder editar nada diretamente nela, os dados só podem ser inserido através de um formulário. Abraços Proteja a planilha toda. coloque o unprotect para desproteger a planilha e insira os dados, depois coloque o protect navamente ex: ActiveSheet.Unprotect Range("A1").Value = nome.Text ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True beleza???? Qualquer coisa retorne. Abs Lisandro Oliveira
  6. Olá Luciano, você pode fazer assim: Vá em ferramentas / Macro / editor do visual basic Clique no menu Inserir / Módulo Cole esse codigo lá Sub Email() Dim l As Integer l = 1 While l < 700 Selection.EndKey Unit:=wdLine Selection.TypeText Text:=";" Selection.Delete Unit:=wdCharacter, Count:=1 l = l + 1 Wend End Sub Agora feche o editor do visual basic posicione o cursor do word no final do primeiro email Agora vá em ferramentas / Macro / Macros Haverá a macro Email, clique em executar beleza??? Qualquer coisa retorne Abs Lisandro Oliveira
  7. Mas alex desse jeito que você colocou como exemplo, é so você copiar o valor da célula A3 e ir na outra planilha e ir no menu editar /colar especial / valores. Só que toda vez que alterar o valor (A1,A2) você terá que fazer isso na outra planilha para atualizar, porque você não está utilizando formúla. O que você pode fazer nesse caso é criar uma macro para ficar mais rápido o processo. Abs Lisandro Oliveira
  8. Olá Fireman, esse é um exemplo para criar uma função no excel Essa função dividirá o valor que eu colocar por 2 Primeiro vá em Ferramentas / macro / editor do visual basic Clique em inserir Módulo Estou criando uma função chamada lis onde ela terá um paramentro (uma variavel) "a" que será informado na hora da utilização da formula Function lis(a As Integer) b = a / 2 lis = b End Function Agora feche o editor e em qualquer célula coloque: =lis(4) o resultado será 2 Qualquer coisa retorne Abs Lisandro Oliveira
  9. Olá Luis, acho que não entendi muito bem o que você quer fazer mas talvez seja isso: Se você colocar essa formula na coluna E, você terá os valores que estão na coluna A caso seja valor1 ou valor 2 ou valor3 =SE(OU(A1=valor1;A1=valor2;A4=valor3);A1;"") Abs Lisandro Oliveira
  10. Wilmar não teria como pra ficar mais facil você colocar em planilhas diferentes os dados de cada setor??, se tiver, você pode criar um formulário e nele solicitar uma senha e o setor ao abrir a pasta e assim ele irá disponibilizar somente a planilha referente ao setor. Abs Lisandro Oliveira
  11. A maioria dos casos é realmente como o Delphi disse!!! Nesse seu é porque está desativado o sistema de data 1904 Vá em ferramentas / opções / na guia Calculo ative o sistema de data 1904 Qualquer coisa retorne Abs Lisandro Oliveira
  12. Lisandro Oliveira

    Autonumeração

    Olá Hicaro, Dessa forma ele não vai criar 53 registros e depois exclui-los, ele vai cadastrar um registro que se iniciará no 53
  13. Lisandro Oliveira

    Autonumeração

    você pode especificar em que Nº começar fazendo assim: Em consultas/Criar consulta no mode estrutura/Adicione a tabela e Vá em exibir Modo SQL Aí vamos supor que exista dois campos Codigo (autonumeração) e nome na tabela Clientes, você coloca assim: Insert into Clientes values(53, 'Teste') beleza?? Será inserido o primeiro registro apartir do 53 e os próximos seguem a sequência 54, 55... Abs Lisandro Oliveira
  14. Falow, até mais Abs Lisandro Oliveira
  15. Wellington você tem certeza que na tab de projeto e campo é c_dpto e não c_emp??? você não quer registrar o nome do projeto e os empregados que estão alocados nele? se for isso a chave na tabela projeto não é c_dpto, é c_emp. e o select ficaria assim: Select E.nome_emp, D.nome_dpto, P.nome_proj from Empregados E inner join Departamento D on E.c_dpto = D.c_dpto inner join Projetos P on E.c_emp = p.c_emp Abs Lisandro Oliveira
  16. Lisandro Oliveira

    Backup

    Com os scripts em mãos é só você executar eles depois no query Analyser. Mas sinceramente, eu criaria uma copia da base se fosse muito grande apagaria os dados dela, porque dessa forma não iria me preocupar com as procedures e views jobs ... Abs Lisandro Oliveira
  17. Olá Jeffer, o que você pode fazer pra controlar isso é criar triggers de insert delete e update. nessa trigger você coloca o usuario, a data... da alteração, exclusão ou inserção beleza? Abs Lisandro Oliveira
  18. Lisandro Oliveira

    Backup

    No Enterprise Mananger Selecione as tabelas e clique com o botão direito / All tasks / Generate Scripts Ok Digite um nome e salve beleza?? Abs Lisandro Oliveira
  19. Lisandro Oliveira

    Backup

    Olá joão, o conceito de backup na verdade é para recuperação de dado perdidos. o que você pode estar fazendo é criando um backup e deletando os dados ou então gerar Scripts das tabelas existentes. Abs Lisandro Oliveira
  20. Cara, eu tenho saudades desse tempo!!!, trabalhei um ano em uma escola de informatica em Guarulhos como estagiario e um ano e meio em outra como instrutor. Puxa era uma época muito boa!!, mas não descarto a idéia de voltar a dar aulas em outros lugares. fw Delphi, abraços
  21. Legal, que escola você dá aula???
  22. Só ajustando o "alias": Select a.nome, b.nome from funcionarios a, cidade b where a.codigoCidade = b.codigoCidade ou utilizando o inner: Select fun.nome, cid.nome from funcionarios fun inner join cidade cid on fun.CodigoCidade = cid.CodigoCidade Só que dessa forma ele irá trazer todos os funcionarios cadastrados e sua cidade. Caso você queira filtrar por alguma cidade acrescente "and cid.nome = "nome_da_cidade" : Select fun.nome, cid.nome from funcionarios fun inner join cidade cid on fun.CodigoCidade = cid.CodigoCidade and cid.nome = "nome_da_cidade" Abs Lisandro Oliveira.
×
×
  • Criar Novo...