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. Olá pessoal, tudo bem? Tenho uma planilha com macros para tratamento de dados e está habilitada para macros, porém, acontece um bug que ela simplesmente some com todos os códigos e não deixa salvar a plan. Aparecendo os erros abaixo e quando dou atl+F11 os módulos estão em branco. Já aconteceram 3x com planilhas diferentes. Ela funciona por um período e do Nada acontece esse erro. uso ela todos os dias para atualizar as bases de dados. Alguém já passou por um problema semelhante? Vlw, pessoal.
  2. Boa tarde a todos do fórum! Venho tirar uma dúvida de VBA com vocês. É um trivial de copiar valores de um arquivo e colar em outro, porém tem um detalhe que está me travando, e vejo muitas dicas boas que tem ajudado a solucionar problemas aqui no fórum. Tenho um Excel com a aba Orig Tenho meu Excel destino já com a aba Dest o ultimo valor da Orig coluna B vai na primeira linha disponível da Dest coluna B, e escreva "Quantidade A" na célula da coluna A o ultimo valor da Orig coluna C vai na primeira linha disponível da Dest coluna B também, e escreva "Quantidade B" na célula da coluna A o ultimo valor da Orig coluna D vai na primeira linha disponível da Dest coluna B também, e escreva "Quantidade C" na célula da coluna A assim por diante, usando da coluna B até a coluna G da Orig. Caso o valor seja 0 (0,000 no caso da Orig), não deva colar este valor ou deva apagar apó s o código. Tenho já descrito o código que abre a janela, pede o Excel Orig para ser importado, ele copia os dados da aba Orig, porém cola tudo na Dest sem ser na ordem que desejava. Sub CopyQuant() Application.ScreenUpdating = False Dim flder As FileDialog Dim FileName As String Dim FileChosen As Integer Dim wkbSource As Workbook Dim wkbDest As Workbook Set wkbDest = ThisWorkbook Dim LastRowIndex As Integer Dim RowIndex As Integer Dim UsedRng As Range Dim npav As String Dim rangM As Range OpenFile: Set flder = Application.FileDialog(msoFileDialogFilePicker) flder.Title = "Arquivo" flder.InitialFileName = "c:\" flder.InitialView = msoFileDialogViewSmallIcons flder.Filters.Clear flder.Filters.Add "Excel Files", "*.xls*" MsgBox ("Selecione o arquivo") FileChosen = flder.Show FileName = flder.SelectedItems(1) Set wkbSource = Workbooks.Open(FileName) '''''''''''''''''''''''''''''''''''''''''''''''' 'DADOS PARA Dest wkbSource.Sheets("Orig").UsedRange.Copy ultimalinha = wkbDest.Sheets("Dest").Cells(Rows.Count, 1).End(xlUp).Row wkbDest.Sheets("Dest").Cells(wkbDest.Sheets("Dest").Rows.Count, "A").End(xlUp).Offset(ultimalinha + 1, 0).PasteSpecial xlPasteValues Alguém sabe como posso dar um passo a mais neste caso? Obrigado.
  3. Olá a todos. Estou estudando VBA a pouco tempo, e estou fazendo um projeto de planilha solicitando que os funcionários PJ emitam as notas. Eu preciso enviar para o funcionário um e-mail com valor a receber, referente ao dia dos serviços prestados, e quando ele deve emitir a nota. O primeiro comando da programação é que SE a célula E ="valor" estiver vazia, não enviará o e-mail. Com a célula preenchida, ele seleciona o outlook app, coloca destinatário do e-mail, cc, título, imagem de corpo e texto. Porém eu preciso criar um novo SE - caso a célula G = "devolução" estiver preenchida, ele vai adicionar mais uma parte em texto ao corpo do e-mail. Não consigo fazer isso de jeito nenhum. Outro problema que tenho também é que ao colocar em Display, ele passa por todos os e-mails que precisam ser exibidos e termina no último e-mail, em uma unica aba. Exemplo, se eu tiver 10 e-mails pra mandar, ele vai exibir todos os emails rapidamente em uma guia só, e não abrir 10 guias; Coloco a programação aqui e a planilha em anexo para quem puder me ajudar. (obviamente as imagens no corpo do e-mail não funcionarão pois estão apontando o caminho da minha máquina) Agradeço desde já Sub Enviar_Email() Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.createitem(0) Dim png As String On Error Resume Next For linha = 1 To 5 If Teste.Range("E" & linha + 4).Value <> "" Then With OutlookMail .To = Teste.Range("C" & linha + 4).Value .CC = "[email protected]" & " [email protected]" .Subject = "NF | Trabalho PJ - " & Teste.Range("B" & linha + 4).Value png = ThisWorkbook.Sheets("PJ").Range("H" & linha + 4).Value texto1 = "<body style = font-size:12pt>" & "Olá " & Teste.Range("B" & linha + 4).Value & ", tudo bem?" & "<br>" & "Segue abaixo suas participações no período de: " & Teste.Range("D" & linha + 4).Value texto2 = "<body style = font-size:14pt>" & "Valor:<b><u> R$" & Teste.Range("E" & linha + 4).Value & ",00 </b></u>" & "<br>" texto3 = "<body style = font-size:12pt>" & "Estando corretas, favor me encaminhar a NF entre os dias <b><u> " & Teste.Range("F" & linha + 4).Value & "</b></u>." texto4 = "<body style = font-size:12pt>" & "Cumprindo acordo, estamos descontando <b>R$ " & Teste.Range("G" & linha + 4) & ",00 </b> do seu pagamento, tudo bem?" texto5 = "<body style = font-size:12pt>" & "Se precisar de mim, sigo a disposição." & "<br>" & "Abraços," .htmlbody = texto1 & "<br><br>" & "<img src=" & Chr(34) & png & Chr(34) & ">" & "<br><br>" & texto2 & "<br>" & texto3 & "<br><br>" & texto5 .display End With End If Next linha On Error GoTo 0 Set OutlookApp = Nothing Set OutlookMail = Nothing End Sub ------------ Já tentei If Teste.Range("G" & linha + 4).Value = "" Then .htmlbody = texto1 & "<br><br>" & "<img src=" & Chr(34) & png & Chr(34) & ">" & "<br><br>" & texto2 & "<br>" & texto3 & "<br><br>" & texto5 Else .htmlbody = texto1 & "<br><br>" & "<img src=" & Chr(34) & png & Chr(34) & ">" & "<br><br>" & texto2 & "<br>" & texto3 & "<br>" & texto4 & "<br><br>" & texto5 E não foi... Sempre dá erro no With, no If, etc. ENVIEI UM GIF COM O PROBLEMA DO E-MAIL LInk pra Planilha: https://drive.google.com/file/d/1jpKBmdmnTMUIKZNx9I7pJI31vdpFgV8e/view?usp=sharing
  4. Gleyson 0 Publicado 3 horas atrás Como criar um formulário onde tenha um Combobox de cargos... em que ele abre uma ListBox com os nomes dos Cargos... podendo clicar em várias linhas (ao mesmo tempo) da ListBox para excluir alguns cargos e apagar na Planilha?
  5. Olá, Para quem puder me auxiliar, estou tentando montar uma macro e acionar por um botão para que faça o seguinte: • Pegar as informações de uma tabela simples e transpor os dados como nos exemplos. • Como essa tabela é dinâmica o número de colunas pode variar assim como as linhas. • A intenção é que cada cabeçalho da coluna entre novamente como título das linhas que estão na sequência. Tabela Original Tabela com dados transpostos Alguém pode me sugerir como fazer isso? Desde já, grato.
  6. Olá pessoa, estou com um problema aqui. O código não consegue ler a linha caso tenha uma LETRA no caminho dele, vou dar um exemplo. A B C D 1 ola mundo 2 01/02/2021 200 200 3 se não tiver as palavras "ola" e "mundo" ele consegue fazer o calculo, vai descendo ate achar os valores 200,200 mas caso eu escreve qualquer coisa no caminho dele, ele não consegue calcular. Desde já agradeço. Codigo: Sub somarValores() On Error GoTo fim Dim data As Date Dim linha As Long Dim soma As Double Dim valor1, valor2 As Double soma = 0 caixa = 0 safra = 0 bb = 0 linha = 2 dataInicial = CDate(Planilha1.Cells(2, "F").Value) dataFinal = CDate(Planilha1.Cells(2, "F").Value) While Planilha1.Cells(linha, 1).Value <> "30/02/2021" valor1 = CDbl(Planilha1.Cells(linha, "B").Value) valor2 = CDbl(Planilha1.Cells(linha, "C").Value) 'se a data da coluna 1 estiver entre a dataInicia e dataFinal' If CDate(Planilha1.Cells(linha, 1).Value) >= dataInicial And CDate(Planilha1.Cells(linha, 1)) <= dataFinal Then 'somar valores' soma = soma + valor1 + valor2 End If 'passa para a proxima linha' linha = linha + 1 Wend 'coloca o valore da soma na coluna 10 da linha 2' Planilha1.Cells(2, 7) = soma Exit Sub fim: MsgBox "Não Foi possivel efetuar a soma" End Sub
  7. Boa noite, estou iniciando no mundo do VBA no Excel e ainda não sei como realizar uma operação automática: A ideia é: assim que eu colar um conjunto de dados (cada dado com um conteúdo/nome padrão [001, 002... 009...] correspondente com a coluna A) da coluna hipotética X, eu quero que a célula exatamente à direita de cada dado respectivo copiado na coluna X vá pra uma posição exata na coluna B: Coluna A Coluna B Coluna X Direita de X 001. 002. Valor Z 002. Valor Z 004. Valor C 003. 009. Valor M 004. Valor C 005 ... 008 009. Valor M OBS: os nomes colados na coluna X sempre terão alguma correspondência com os nomes da coluna A (sempre serão códigos fixos) Alguém poderia me explicar como conseguir realizar esse processo? Muito obg!
  8. Opa, estou me deparando com um problema nas planilhas de controle comercial da empresa que trabalho, basicamente eles possuem um arquivo desde 2012, sendo alimentada de forma nada prática, da seguinte maneira visível nas imagens em anexo, onde alterei o nome da empresa, e criei varias linhas de teste para esconder o nome dos outros clientes, pois estou usando uma copia do arquivo que está no comercial para realizar as alterações. O arquivo tem a seguinte estrutura, na primeira aba estão listados todos os clientes, e todas as outras abas são ficheiros, que contem um cabeçalho padrão, cada aba de ficheiro possui uma linha que representa a empresa na listagem da primeira aba de clientes, e há um hiperlink na primeira coluna da linha do cliente, que direciona até o ficheiro do cliente, e no ficheiro há um hiperlink que direciona de volta para a aba de clientes. Até agora para facilitar o processo do comercial, que já está acostumado com esse arquivo, e devido a grande quantidade de ficheiros para importar caso fosse iniciar um novo arquivo criei um macro de criação de novos clientes; Mas basicamente automatizei a criação de novas linhas de registro do cliente na aba CLIENTES, a criação de uma nova aba, que é um novo ficheiro do cliente com o cabeçalho e os dados, até ai tudo bem, entretanto necessito automatizar 3 coisas ainda, são elas: A renomeação da aba do ficheiro do cliente, colocando o nome que está na célula B2 do mesmo ficheiro. A criação de um hiperlink na primeira coluna, da linha do cliente, na aba CLIENTES que irá direcionar diretamente para a aba que é o ficheiro relativo a aquele cliente, já com aba tendo um novo nome. A atualização automática do último contato que se teve com o cliente, com base na última linha da primeira editada da aba de ficheiro
  9. Olá, sou iniciante no VBA e gostaria de criar um formulário de preenchimento de uma linha para um Fluxo de Caixa Diário, contendo essas informações, o que eu gostaria de de fazer é: Alterar a "Fonte" da ListBox "Item", de acordo com o Option Button selecionado (Entrada e Saída), fazendo com que a ListBox mostrasse a lista de Entradas se o Button de Entradas for selecionado, a mesma coisa c om o ListBox de Saídas. Em uma das imagens há um código que pega as células para aparecer na ListBox (de um dos tutoriais da Hashtag Treinamentos), se possível aproveitá-lo... Se alguém puder me dar uma explicação de como posso fazer ou tiver uma maneira melhor de fazer eu agradeço! Abraços!
  10. Faala pessoal! Sou novo por aqui e já rodei o fórum inteiro à procura de um código de vba que insere um apóstrofe (') na antes do texto da célula, Segue um exemplo: Esqueci de agradeceeer Muito obrigado desde já pela ajuda de vocês!
  11. 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.
  12. 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 x = 0 For linha = 2 To linhaFinal If Planilha1.Cells(linha, 1).Value >= MonthView1 And Planilha1.Cells(linha, 1).Value <= MonthView2 Then ListBox1.AddItem Planilha1.Cells(linha, 1).Value ListBox1.List(x, 1) = Planilha1.Cells(linha, 2).Value ListBox1.List(x, 2) = Planilha1.Cells(linha, 3).Value ListBox1.List(x, 3) = Planilha1.Cells(linha, 4).Value ListBox1.List(x, 4) = Planilha1.Cells(linha, 5).Value x = x + 1 End If Next End Sub Porque isso acontece e o que pode ser feito? Preciso da ajuda dos colegas! Forte abraço! Resposta Rápida Resposta 1
  13. 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 QTD TEMPO PAUSA QTD TEMPO Nome 1 BANHEIRO 0 00:00:00 ALMOÇO 0 00:00:00 LANCHE 0 00:00:00 AMBULATÓRIO 0 00:00:00 Nome 2 BANHEIRO 0 00:00:00 ALMOÇO 0 00:00:00 LANCHE 0 00:00:00 AMBULATÓRIO 0 00:00:00 Nome 3 BANHEIRO 0 00:00:00 ALMOÇO 0 00:00:00 LANCHE 0 00:00:00 AMBULATÓRIO 0 00:00:00 Gostaria que a informação viesse por colunas: "OPERADOR", "PAUSA", "QUANTIDADE" E "TEMPO", repetindo o nome do vendedor várias vezes na Coluna A, pra que as informações dele venham nas colunas seguintes, e não inseridas em linhas: OPERADOR PAUSA QUANTIDADE TEMPO Nome 1 BANHEIRO 0 00:00:00 Nome 1 ALMOÇO 0 00:00:00 Nome 1 LANCHE 0 00:00:00 Nome 1 AMBULATÓRIO 0 00:00:00 Nome 2 BANHEIRO 0 00:00:00 Nome 2 ALMOÇO 0 00:00:00 ... E assim por diante. O meu problema é que eu até consigo fazer a Coluna A me dar os vendedores ao transpor, mas quando faço isso na coluna B me vem tanto linhas de pausa, quanto quantidade e banheiro 😞 E como essa base sempre vem muitos vendedores e de forma variável, não sei como resolver isso ._. Agradeço desde já aos que puderem me dar um help !
  14. 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
  15. 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 não esta funcionando <div class="HTMLButton" id="pesquisar" style="left: 968px; top: 49px; width: 177px; height: 33px; display: block; position: absolute; z-index: 100000;"> <button style="width: 100%; height: 33px; text-decoration: none;" type="button"> <img src="openImageStreamFromGalery.do?sys=SGP&amp;formID=464569073&amp;guid=%7BF0155A0D-DE1E-4F0A-B5BD-E03B601599C8%7D"> <span style="color: rgb(0, 128, 128); font-family: MS Sans Serif; font-size: 10pt;">Pesquisar RDO</span> </button> </div> Mas não libera o próximo campo que esta em efeito cascata. Segue abaixo o código quando inspeciono o elemento. <input id="WFRInput877545" autocomplete="off" name="WFRInput877545Show" style="height: 21px; padding-right: 17px; text-decoration: none;"> Acredito que esse código chame o código abaixo <select id="lookupInput" size="2" style="width: 100%; min-height: 48px;"> <option value=""></option> <option value="985">Projeto B1</option> <option value="685">Projeto 3</option> </select> Mas não consigo selecionar um dos itens Estou precisando de uma ajudar sou novo nessa interação vba com internetExplorer. Desde já agradeço
  16. 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/2018 Transação3;un;3;6;18;03/01/2018 Resultado Nova Aba Adjacente 1 = Transação1 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 Nova Aba Adjacente 2 = Transação2 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 Nova Aba Adjacente 3 = Transação3 Transação3 un 1 1,59 1,59 03/01/2018 Transação3 un 2 2 4 03/01/2018 Transação3 un 3 6 18 03/01/2018 Eu uso Excel 2016. Desde já agradeço a ajuda!!
  17. 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 coluna A e vai até a coluna F) Essa é a tabela de testes
  18. 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!
  19. 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ção de produtos novos.Link com a planilhahttps://www.sendspace.com/file/9j3tc4
  20. 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) Tenho os itens produzidos e quanto planejo produzir por dia Na coluna A tenho os itens produzidos Da coluna B até a G são as quantidades que plenejo produzir por dia (de segunda a sabado) Por último tenho na Planilha 3 (NECESSIDADE) Nela constam as minhas matérias primas. e nela que quero que o código VBA funcione. Na coluna A tenho as materias primas que utilizo para produzir os produtos Da coluna B até a coluna G quero calcular a quantidade de cada matéria-prima que irei precisar para produzir as quantidades planejadas na planilha 2 com base no consumo calculado na Planilha 1 Mas quero fazer isso automaticamente. Qual seria a forma mais simples de fazer isso?
  21. 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 pessoas tendo o mesmo problema e não conseguindo resolver. Queria saber se alguém sabe como mudar essa configuração do outLook ou ao menos sabe uma forma de adicionar uma acionamento automática para cada e-mail que chega sem precisar usar as regras nativas no outlook.
  22. 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 = ThisWorkbook.Sheets("FSL").Range("C2:D" & Lastrow2) ReDim FSLTList(1 To 1, 1 To 2) For i = LBound(FSLList) To UBound(FSLList) If UCase(FSLList(i, 1)) Like "*" & UCase(TextBox7.Text) Or UCase(FSLList(i, 2)) Like "*" & UCase(TextBox7.Text) & "*" & "*" Then FSLTList(UBound(FSLTList), 1) = FSLList(i, 1) 'Assign the array element FSLTList(UBound(FSLTList), 2) = FSLList(i, 2) 'Assign the array element ReDim Preserve FSLTList(UBound(FSLTList) + 1, 1) End If Next i FSLListBox.List = FSLTList End Sub
  23. 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 centralizado na célula. Tentei varias formas, porém sem sucesso 😞 Function CV(rng As Range) Dim cell As Range For Each cell In rng Next cell CV = WorksheetFunction.StDev(rng) / WorksheetFunction.Average(rng) CV = FormatPercent(CV, 1) End Function
  24. 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 meu problema é: * Unificar 04 planilhas no access; (creio que essa seja a forma correta para que eu consiga trabalhar como mais de uma pessoa "logada" ao mesmo tempo"; * Criar Login para 04 usuários onde cada usuário terá acesso apenas as planilhas selecionadas na hora da criação do usuário e ficando as outras ocultas; * Criar um LOG onde conste qual usuário acessou a planilha e que seja salvo independente se ele clicar em salvar. ( Digamos que apenas abriu a planilha, olhou ela mais não alterou dados nenhum e posteriormente a fechou, mesmo assim, preciso que a partir do momento que ele logar e abrir a planilha o LOG seja salvo automaticamente independente se ele salvou algo ou simplesmente a fechou em seguida); Já pesquisei bastante e consegui absorver algumas coisas, só que estou com uma dificuldade tremenda em como por em prática. Se algum de vocês puder me orientar por onde começar e mostrar o caminho que devo seguir já será de grande ajuda, porque sou iniciante nessa questão de VBA e fazer essa conexão entre Excel e Access. Obrigado.
  25. 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 x = y Then Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("Result").Select Range("A1").Activate ActiveSheet.Paste End If Next y Next x End Sub Me deem uma luz, por favor kk Agradeço desde já
×
×
  • Create New...