Ir ao conteúdo

Basole

Membro Pleno
  • Posts

    2.009
  • Cadastrado em

Tudo que Basole postou

  1. O error causado e pela sua variavel "myFile", provavelmente esta retornando um endereco invalido ou coisa parecida. Tente eliminar as hipoteses. Tente isso: substitua no Open myFile por um endereço valido e arquivo ja existente no seu diretorio. Exemplo -> Open "C:\Temp\Nome_do_Arquivo_Texto.txt" e faça o teste
  2. Segue em anexo com as alteracoes, veja se é isso que precisa: Pasta2-basole.zip
  3. @CasaDoHardware pra mm aqui no excel 2007,2010 e 2013 funciona perfeitamente desta forma: É isso que voce esta tentando fazer ? Sub corvba() ActiveCell.Interior.ColorIndex = 6 End Sub
  4. Tente usar o interior.color Sub corvba() ActiveCell.Interior.Color = -0.499984740745262 End Sub
  5. Uma solução seria voce reescrever seu codigo vba, e usar o comando Print para gerar um txt 'limpo' Pesquise no google sobre criar txt com print se nao conseguir envie um exemplo com alguns dados para qu o pessoal possa te ajudar.
  6. @Ma fiz as alteracoes que pediu e agora esta pintando somente a celula que contem os dados na aba diario de bordo. Na pesquisa pelo formulario o frmAuditoria, eu fiz as alteraçoes e agora esta pesquisando pelos outros campos, então [e so seguir este form como exemplo para alterar nos outros. E tb. corrigi o erro que aparecia no duplo click no listbox. Não pude fazer mais teste. Veja se esta de acordo. vba_TESTE.xlsm
  7. Com eu disse anteriormente, não testei o codigo pois nao tenho o outlook habilitado. Segeu abaixo c/ as correçoes, substitua no modulo1 da sua planilha: Option Explicit Sub Enviar_Email() ' ***** Envia e-mail pelo Outlook Dim OutApp As Object Dim OutMail As Object Dim texto As String Dim uL As Long Dim rng As Range, c As Range uL = Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row Set rng = Sheets("Plan1").Range("A7:A" & uL) For Each c In rng If c.Value = "X" Then ' (X maiusculo) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = Plan1.Cells(c.Row, 4) .CC = "" .BCC = "" .Subject = "Nível" .body = "Prezado(a) " & Plan1.Cells(c.Row, 3) & "," & vbCrLf & vbCrLf & _ "Segue acompanhamento do mês de Julho." .Display 'Send para enviar o email sem abrir o Outlook .send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If Next End Sub
  8. Só mais uma duvida essas planilhas Região xxx (pasta de trabalho), ficam abertas ( ou seja são utilizadas por outros usuarios no momento que voce é feito esta atualização) ?
  9. Bom dia, Felipe segue em anexo com as correções: teste-Basole-v2.xlsm
  10. voce está se referindo então "Região XX" como Pasta de trabalho ? Essas 'Pastas de trabalho' ficam no mesmo diretorio (pasta) da Brasil ?
  11. @LeonardoJlopeso que pode fazer pelo que eu entendi, é voce alimentar todos os dados na planilha (aba) Brasil, criando um campo Regiao (caso não tenha), e a macro distribuir os respectivos dados para as outras abas de acordo com a região. Se pudesse enviar um modelo com alguns dados ficticios facilita o entendimento e agiliza a resoluçao do problema.
  12. O errro é porque voce incluiu alem das abas da planilha anterior a aba Entrada O outro erro que encontrei é na quando da o duplo click no listbox e carrega os txtObs. -> o error é porque o listbox so suporta 10 colunas e no caso é a 11º P/ diblar este error eu alterei a macro p/ buscar este campo direto na planilha e nao no campo 11 da listbox: Set rng = Sheets("Auditoria").Columns(1).Find(ListBox1.List(ListBox1.ListIndex, 0)) If Not rng Is Nothing Then Me.txtObs = rng.Offset(, 10).Value Qual (s) outros erros que voce detectou ?
  13. @Thiago Henrique SantosEste link que voce passou é o side do fabricante? Amanha eu adapto o exemplo, para voce testar por ai, pois nao tenho tal leitor.
  14. sim é possivel, mas verifique na doucmentação que acompanha o aparelho (leitor) ou no site da marca, o SDK que seria a bilbioteca para desenvolvedores, se tem algo relacionado a VB, Vba ou mesmo Dos. Com essa biblioteca ou dll é possivel desenvolver algo no excel.
  15. O error aparece por causa do Target Tente declarar o objeto desta forma: Dim Target as range
  16. Desculpe, acho que me equivoquei na orientacao acima. Segue em anexo c/ as alteraçoes teste-Basole-v1.xlsm
  17. Desculpe acrescente esta linha agentes da linha loop Linha = linha + 1
  18. @Felipe2791Segue em anexo com as adaptaçoes para voce testaar. Não testei pois nao tenho o outlook habilitado. * Só um detalhe dependendo do servidor de email (por exemplo o Gmail), nao vai 'deixar' voce enviar emails em massa. Pelo menos para mim aconteceu. Tenten a algum tempo atras, enviar emails 'por atacado' e o Gmail me bloqueou alegando spam. teste-Basole.xlsm
  19. Lucas em respostas a suas perguntas... 1 - Não é possivel desabilitar ou ocultar somente uma celula, o que podeser feito é ocultar uma linha inteira ou uma coluna inteira, mas como a celula H6 (Qtd parcelas), esta na mesma coluna do (Tipo de Pagamento) , neste caso as duas celulas ficariam ocultas. O que eu fiz foi, ao alterar a celula H2 se a opção for diferente de Parcelado, a macro remove a formatacão da celula H5 e H6, Caso seja selecionado outra opcao a macro cria a formatacão em H5 e H6. 2 - Provavelmente voce copiou um intervalo de linha e colou entre outras duas. Vamos lá... nos eventos do excel, no modulo da aba, propriamente dito, as macros só são estimuladas (para este caso),quando voce altera alguma celula da coluna "B" ou "E". Quando se copia e cola mais de uma celula, as macros nao são executadas e nao atualiza os dados. Ou seja o recurso copiar e colar nao vai acionar as macros. Segue em anexo com as alteraçoes implementadas. pedido2-Basole-V2.xlsm
  20. Segue em anexo c/ as alteracoes solicitadas ! As formulas estão no modulo da aba plan1 pedido2-Basole-V1.xlsm
  21. @luckysba segue em anexo, veja se é isso que precisa. A macro verifica todas as celulas no intervalo A3:E + (a ultma linha c/ dados na coluna 1) , estão preenchidas, se estiver vazia, aparecerá uma msg de alerta e a celula que esta vazia é selecionada para o usuario inserir a informacao. Se todos os dados estiverem preenchidos a macro salva o intervalo como PDF, na mesma pasta que esta salva a planilha. pedido2-Basole.xlsm
  22. Segue o link do arquivo com as alteraçoes: Ao alterar uma informacao na coluna Status (em qualquer aba) -> automaticamente a macro insere as informações atualizando a aba diario de bordo. Planilha_formatação
  23. Só uma duvida: voce quer que a aba "Diario de bordo", "puxe" e atualize as informações das abas (alias de todas as Abas que tiverem tabelas) .
  24. Sim é possivel mas é necessario fazer algumas alteracoes nos codigos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!