Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

 

osvaldomp

Colaborador
  • Postagens

    1.313
  • Desde

  • Última visita

Sobre osvaldomp

  • Rank
    Office Expert

Perfil

  • Escolaridade
    Superior completo
  • Área Profissional
    Engenharia
  • Nível Profissional
    Profissional curso superior
  • Estado
    São Paulo
  • Sexo
    masculino

Últimos Visitantes

9.629 visualizações
  1. Experimente após acrescentar as linhas em vermelho aos seus códigos. Substitua o nome de usuário do Excel, se necessário. Private Sub Workbook_BeforeClose(Cancel As Boolean) If Application.UserName = "Renata Araujo" Then Exit Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Application.UserName = "Renata Araujo" Then Exit Sub obs. 1. lembrando que é preciso proteger o Projeto VBA para não permitir o livre acesso aos códigos e a eventual alteração do nome do usuário ~~~> no menu do editor VBA Ferramentas / Propriedades de VBA .../ Proteção 2. nos seus códigos há referências a várias células e em nenhuma delas consta a referência à planilha, por isso os seus códigos irão verificar as células da planilha ativa no instante de Salvar ou Fechar o arquivo, e me parece que você quer verificar as células da planilha "Workbook". Se for isso, é preciso referenciar também a planilha nos comandos, além da célula. Algo assim: em lugar de ~~~> If Range("D5") = "" Then coloque ~~~> If Sheets("Workbook").Range("D5") = "" Then ou se você tiver facilidade com VBA e para evitar repetições utilize With Sheets("Workbook") ... En With
  2. Olá, Renata. O que exatamente você quer dizer com "condicioná-la ao seu usuário" ?
  3. Geneci, veja se agora entendi. Após inserir um registro na planilha CADASTRODADOS, colunas A:E, em qualquer ordem, a tabela dessa planilha será replicada na planilha ORDEMESTADOMUNICIPIO, em seguida a tabela replicada será ordenada e nela será inserida uma linha vazia entre os nomes dos estados. ALT-COND-VBA-2-ORDEM-ALFA V3.xlsm
  4. Olá, Geneci. Fiz as alterações. O código alterado replica a tabela da planilha ORDEMESTADOMUNICIPIO na planilha CADASTRODADOS e em seguida ordena a tabela replicada. Seria esse o resultado desejado? ALT-COND-VBA-2-ORDEM-ALFA V2.xlsm
  5. Olá, Geneci. Veja se a solução do arquivo anexado atende. ALT-COND-VBA-2-ORDEM-ALFA V2.xlsm
  6. sugestão - disponibilize uma amostra do seu arquivo Excel e indique na própria planilha os resultados desejados e as explicações de como obteve os resultados
  7. [A1] = [A1] + 1
  8. Olá. Veja se ajuda. Sub pintaguia() If Range("B1").Value < Date Then ActiveSheet.Tab.Color = 255 End Sub
  9. sugestão - disponibilize uma amostra do seu arquivo Excel, com todas as variações de dados e coloque na própria planilha o resultado desejada para cada caso.
  10. Olá, Agnaldo. Cara, eu não conheço do Access e por isso não consigo te ajudar, mas temos um colega aqui no fórum que sabe tudo e mais um montão, eu vou colocar o nick dele com arroba, assim talvez ele seja notificado via e-mail pelo fórum e entre para ver o seu tópico. É o @Basole (consultor e conselheiro do Bill Gates)
  11. Olá, Geneci. Veja se o arquivo anexo atende. Coloquei o disparo do código via botão na planilha, retorne se você quiser o disparo automático ao inserir o texto em 'B2' PESQUISA-POSIÇÃO-DIVERSA.xlsm
  12. sugestão - coloque um botão (BQ) no Subformulário (JT), que irá abrir a Tabela (VH), em seguida cadastre os registros (ZX) e clique no botão (PO) do Formulário (BP) para assim acessar a Tabela (XC) que está ao lado do Subformulário (TG) que corresponde ao registro (RE) clicado. Espero que tenha explicado bem também ... caso não, disponibilize uma amostra do seu arquivo Excel (suponho que você esteja tratando desse aplicativo), com os recursos e as macros instalados.
  13. Veja se este código faz o que você deseja. Sub ExcluiLinhaDuplicataVizinha() Dim k As Long, LR As Long, stK, stJ LR = Cells(Rows.Count, 2).End(3).Row Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For k = LR To 5 Step -1 stK = Join(Application.Transpose(Application.Transpose(Cells(k, 2).Resize(, 13))), "") stJ = Join(Application.Transpose(Application.Transpose(Cells(k - 1, 2).Resize(, 13))), "") If stK = stJ Then Rows(k).Delete Next k Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub sugestão - faça os testes em planilhas com poucos dados, por exemplo na planilha de exemplo acima, e se o resultado for o desejado aplique na planilha com 100.000 linhas; para processar essa quantidade de linhas imagino de 10 a 15 minutos, dependendo da máquina.
  14. Ok, então por exemplo se a linha 25 for igual à linha 24 você quer excluir a linha 25 pois 24 e 25 são linhas vizinhas, porém se a linha 25 for igual à linha 8 você não quer excluir a linha 25, pois não são linhas vizinhas, embora ela seja duplicata, é isso? A quantidade de linhas com dados talvez seja variável, a sua planilha atual tem quantas linhas com dados?
O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.