Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'vba'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

  1. laupax

    Macro Whatsapp

    Pessoal,Estou com uma macro que achei online para envio de whatsapp. Ela funciona bem. O problema é que todo o texto tem que ser escrito em um única célula e dessa forma, o texto não fica dividido em parágrafos, como eu gostaria. Apesar disso, a macro não deixa eu ampliar as células para a mensagem. Testei uma forma de escrever a mensagem que eu quero enviar diretamente no código, sem ser na planilha. Da certo, mas eu também não consigo fazer com que vá com os parágrafos separados certinhos. Sabem como resolver esse problema? Obrigada.
  2. Olá a todos ! Gostaria de uma imensa ajuda! Eu recebo um arquivo no qual ele não organiza os tipos de Pausa dos vendedores numa mesma coluna (e sim e várias colunas chamadas "Pausa"), além de também não organizar a "Quantidade" e "Tempo" dessa pausa numa coluna só. As informações são inseridas ao longo de uma linha e eu gostaria que eles fossem organizados por colunas. Vou colocar aqui como é e como eu gostaria que fosse: OPERADOR PAUSA QTD TEMPO PAUSA QTD TEMPO PAUSA
  3. Bom dia!! Preciso que ao clicar duas vezes em uma área específica da planilha seja executada uma determinada macro, o problema é que tenho duas áreas distintas que deverão executar macros distintas. Com o doubleclick consigo acionar a macro em apenas uma área, por exemplo área ("B4:B" & Lastrow), ocorre que preciso utilizar a área ("C4:C" & Lastrow) para executar outra macro. Já tentei utilizar SELECT CASE com o Doubleclick e não funcionou, meu conhecimento de VBA é limitado e não sei como resolver este caso. Utilizei o Doubleclick por pura analogia de necessidade,
  4. Bom dia, Tenho um pequeno sistema de registro de denúncias. O cadastro funciona, de boa, mas a pesquisa quando vou escolher as datas, aparece esse erro aqui: Erro em tempo de execução '-2147467259(80004005)': Erro não especificado Eis o código: Private Sub btnPesquisar_Click() Dim linhaFinal, linha, x As Integer ListBox1.Clear // o erro para aqui e não depura mais linhaFinal = Planilha1.Cells(Rows.Count, 1).End(xlUp).Row
  5. Rafa23_ms

    Feriado da pascoa

    Bom dia, sei que a função Floor(Day(Minute(ano_inicial / 38) / 2 + 56) & "/5" & "/" & ano_inicial, 7) - 34 funciona na plhanilha mas quando tento executar ela no excel da erro de #VALOR!, não sei resolver. Public Function pascoa(ByVal data_inicial As Date, ByVal data_final As Date) As Date ano_inicial = Year(data_inicial) pascoa = WorksheetFunction.Floor(Day(Minute(ano_inicial / 38) / 2 + 56) & "/5" & "/" & ano_inicial, 7) - 34 End Function
  6. Pessoal, boa tarde. Tudo bem? Pessoal preciso de orientações de como usar o vba para selecionar um item do menu suspenso que possui o efeito cascata em outro campo no internet Explorer. Já tentei usar doc1.Document.getElementById("WFRInput877545").innerText, tentei selecionar usando a classe e não o consegui. Eu até consegui colocar o valor que eu queria com o código abaixo Set oSelect = doc1.Document.getElementById("WFRInput877545") oSelect.Focus oSelect.Value = "Projeto 3" oSelect.FireEvent ("onchange") Notei que até o código de click no botão pesquisar
  7. Olá a todos, Eu possuo um arquivo em txt, cujo o início de cada linha representa um tipo de transação. Meu objetivo é importar os dados de um arquivo TXT, agrupando os dados correspondentes de cada transação em uma aba nova e exclusiva para cada caso. Ex. Arquivo txt: Transação1;un;1;1,59;1,59;01/01/2018 Transação1;un;2;2;4;01/01/2018 Transação1;un;3;6;18;01/01/2018 Transação2;un;1;1,59;1,59;02/01/2018 Transação2;un;2;2;4;02/01/2018 Transação2;un;3;6;18;02/01/2018 Transação3;un;1;1,59;1,59;03/01/2018 Transação3;un;2;2;4;03/01
  8. Olá galera, gostaria da ajuda de vocês. Preciso preencher duas tabelas iguais a que está no print a seguir, o problema é que gostaria de fazer isso com a ajuda do VBA, no caso eu tenho na planilha "Teste" uma lista de 70000 palavras e preciso que a partir de uma tabela que está preenchida o código verifique quais palavras ocorrem na lista independente de serem maiusculas ou minusculas, converta tudo para minuscula e cole a palavra na outra tabela vazia de modo que vá preenchendo a tabela vazia e eliminando as palavras lá da lista. Poderiam me ajudar? (A tabela a seguir começa na colu
  9. Boa tarde!Gostaria de saber ou quem puder me ajudar, fazer uma validação que, ao aparecer a caixa do Inputbox e ao clicar no campo vazio, fornecer uma mensagem de campo obrigatório e logo após aparecer novamente para digitar. Vou colocar o código aqui:Sub cadastro_agenda()nome = InputBox("Digite o nome:")telefone = InputBox("Digite o telefone:")setor = InputBox("Digite o setor:")lin = Range("A1").End(xlDown).Row + 1Cells(lin, 1) = nomeCells(lin, 2) = telefoneCells(lin, 3) = setor End SubEspero que possam me dar essa luz! Forte abraço!
  10. Bom dia , Eu baixei essa planilha da internet, porém está bloqueada para modificações, é possível desbloquear?Desbloqueando eu conseguiria de modificar para que ao clicar em "vendas" e "confirmar venda" fosse gerado um recibo enviado via e-mail e quando eu clicar em "consulta" fosse possível excluir registro apenas se o tipo de usuário for "Administrador" ( não será possível quando for "usuário padrão" - Na aba cadastro) ou esconder o botão consulta para que eu pudesse acessa-lo apenas com um atalho. Gostaria tambem de verificar a tabela de produtos para que eu pudesse alterar a ordem na inser
  11. Olá, Boa noite, meu nome é Fabio. Sou iniciante em programação VBA e gostaria de saber como realizar uma multiplicação de vários valores, com mais de 1 critério. Por exemplo: Tenho na planilha 1 (BOM) São os itens produzidos e suas listas de materiais Na coluna A tenho os itens produzidos e na coluna B a matérias-primas utilizadas e na Coluna C o consumo de cada matérial. Os produtos tem mais de uma matéria-prima em sua composição e cada produto utiliza uma quantidade diferente de cada matéria prima Tenho na planilha 2 (PROGRAMAÇÃO) T
  12. Olá, bom dia Gente! Eu tenho um código VBA que verifica os anexos dos e-mail e dependendo dos títulos do arquivo ele salva em uma pasta específica, essa macro era ativada através de uma regra de filtro do Próprio Outlook. ele funcionava perfeitamente até formatar meu computador, depois de reinstalar o Outlook ele não permite mais eu adicionar uma macro na regra de chegada do E-mail. Todas as vezes que tento adicionar a regra ele da o aviso "Esta regra não está disponível no modo atual". Já alterei os níveis de permissão de macros do Outlook e nada. Vendo em outros Foruns vi pes
  13. Boa tarde pessoa, Estou com dificuldade de redimensionar um vetor, e preciso de um "help". Tenho um vetor FSLList com com diversas variáveis (quantidade de linhas variáveis e 2 colunas), gostaria de passar alguns dados desse vetor para um outro vetor (simulando um filtro). O problema é que quando tento Redimensionar o meu vetor FSLTLIST com "Preserve" aparece Subscript out of range. Alguém sabe me dizer o que estou errando? Dim FSLList As Variant Dim FSLTList() As Variant Lastrow2 = ThisWorkbook.Sheets("FSL").Cells(Rows.Count, 1).End(xlUp).Row FSLList = This
  14. Boa Tarde, estou tentando colorir e centralizar uma célula especifica, no caso a atual, mas não estou conseguindo, já fiz diversas pesquisas, encontrei coisas parecidas, mas não consigo juntar as peças, alguém poderia me ajudar? Criei a função abaixo, ela pega as celular que eu selecionei e me apresenta o coeficiente de variação (CV) já em porcentagem, isso está funcionando certo. O problema, eu gostaria que se esse resultado fosse maior do que 12, a célula fosse pintada de vermelho por exemplo e menor do que 12 pintada de verde, e por um capricho gostaria que esse valo ficasse centr
  15. Bom dia a todos. Pessoal estou precisando muito da ajuda de vocês. Tenho 04 planilhas onde suas informações são distintas entre si, mas as suas características são iguais, pois todas tem uma Plan1 e Plan2 onde em uma coloco as informações como banco de dados e na outra crio uma tabela dinâmica para estar analisando essas informações. O que acontece é que preciso unificar essas 04 planilhas em um único documento e onde vão trabalhar 4 pessoas quase que simultaneamente tanto para analisar os dados informados quanto para estarem inserindo novos dados. Então para resumir
  16. Boa tarde, galera! Estou na missão de conseguir um código que compare duas colunas de duas planilhas diferentes, e que o código copie e cole em outra pasta de trabalho a linha inteira caso tenha esse match. Se puderem apontar onde estou errando, me ajudaria bastante. Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Worksheets("GERAL").Range("C2:C411") For Each x In Selection (no caso aqui seria a seleção da coluna da primeira planilha que quero comparar) For Each y In CompareRange (e aqui a coluna da segunda) If
  17. Tenho esse código que extrai o conteúdo do corpo do email e coloca em uma planilha no excel. Até ontem ele estava funcionando, porém hoje ele apareceu que " Objeto não aceita essa propriedade ou método" na linha que está em vermelho. Se alguém por favor poderia me ajudar? <>Sub lerEmail() 'Ler o e-mail e copiar para o excel as informações na aba "BD" Application.DisplayAlerts = False 'Desabilitar alertas Application.ScreenUpdating = False 'Desabilitar atualização de tela ActiveWorkbook.Save 'Salvar planilha Dim outA
  18. Trabalho com planilhas para cálculos de comissão de funcionários. Possuo uma planilha com as seguintes caracteristicas: E uma coluna possuo valores de produções dos funcionários, como no exemplo: COLUNA A 4 570 621 314 476 240 120 Preciso que na célula seguinte ele faça multiplicação seguindo os seguintes critérios: Por 1,3 se o valor for menor que 100. Por 1,4 se o valor está entre 101 e 200. Por 1,5 se o valor está entre 201 e 300. Por 1,6 se o valor está entre 301 e 400. Por 1,7 se o valor está entre 401 e 500. Por 1,8 se o valor está entre 501 e 600. Por 1,9 se o va
  19. Boa tarde! 😀 Estou utilizando um código VBA para consolidação de planilhas afim de enviar um relatório semanal. Preciso de ajuda pois o código está buscando os dados certos, porém eu não preciso que me retorne a planilha inteira e sim apenas da A6 até a coluna E6 em todas as planilhas, e apenas os dados contidos, não precisa vim a formatação original pois se preciso for, formato depois do jeito que eu precisar. Tentei usar o Offset mas está dando erro "tempo de execução 9". Em anexo coloquei o print do modelo da planilha que será consolidada. Código Utilizado:
  20. Olá pessoal, Preciso realizar uma macro para copiar cada um dos escritórios da XP no Brasil para uma planilha, porém estou com dúvida no começo do código. Realizei duas subs, uma que abre o IE e outra que processa o código HTML. O site em questão (https://www.xpi.com.br/sobre-a-xp/encontre-um-escritorio/) conta com dois objetos de tag "select", um que se refere aos estados ("states") e outro que se refere à cidade ("cities"). Minha dúvida é como atualizar o objeto "cities" ao escolher um estado da lista. Meu código até aqui é esse, porém ao selecionar o estado as cidades possíve
  21. Bom dia galera. Estou tendo meu primeiro contato com access e bancos de dados. Fui encarregado em meu serviço para fazer a comparação de dois bancos de dados (tambem estao disponiveis em excel, mas quero evoluir meu conhecimento com banco de dados). Preciso comparar os dois para obter quais notas fiscais que tem em uma banco, e não esta presente no outro. Tentei pelo VBA (conhecimento muito basico) e pelo SQL, mas infelizmente sem sucesso. Se alguém puder ajudar...
  22. msottomaior

    Tabela Dinâmica

    Boa Noite pessoal, Queria ajuda para saber como eu monto uma tabela dinamica. Porem o Range que vai ser selecionado pode variar, por isso queria usar Range(Cells(1, 1), Cells(lngUltimaLinhaInfoInvestidor, lngUltimaColunaInfoInvestidor)) Como encaixo esse range macro de Tabela Dinamica?
  23. msottomaior

    Fórmulas Básicas

    Boa Tarde Pessoal, To precisando de uma ajuda.. To querendo preencher em uma sheet (shtResumo) algumas funções dado os dados de outra sheet (shtInfoInvestidor), mas não estou conseguindo realizar. Estou querendo colocar as formulas (Soma, Média, Desvio Padrão, Identificar qual o maior valor, e qual a última data) Segue o que comecei a fazer e o erro que tomei. Os dados devem ir para esses Campos Alguém consegue me ajudar?
  24. Estou preparando uma macro pra identificar o vencimento de apólices de seguro, dentro de uma base e avisar por msgbox as que estão vencidas/vencem dentro do mês. Sou limitado em VBA, mas já cheguei ao cód abaixo. Minha dúvida é como transformar o cód em LOOP, pra aplicar em toda a coluna H, sem precisar repetir o código para cada linha da base de dados... Também quero colocar o número da apólice da linha que passou a data do vencimento dentro do texto do msgbox. Sub Workbook_Open() Worksheets("Plan1").Select Dim valorData As Date
  25. Boa tarde! Preciso de ajuda para terminar uma planilha. Ao qual ela deve: Comparar a célula E2 a coluna coluna E5:E20 Caso a célula seja igual, ela cola o numero da F2 na primeira vazia da mesma linha, a partir do Primeiro Semestre E depois cole suscetivamente. Obrigado desde já:
×
×
  • Create New...