Midori

@Douglas Zacarias As formatações e filtros aplicados pela macro Estoque devem ser feitos em qual planilha? Se for na planilha ftsaldonv ela tem que ser a planilha ativa durante a execução, então coloque o ActiveWorkbook ou ActiveSheet correto antes disso.

@Douglas Zacarias Aqui deu certo. Só para testar crie outra planilha no Estoque.xlsm, deixe ela ativa e rode apenas a macro Pega_dados.

@Douglas Zacarias Acima da linha do erro onde está Range("A1").Select mude para Range("B4").Select.

@Douglas Zacarias Que tipo de erro? Ocorre em que parte do código?

@salvir Para ter acesso a essas funções você vai ter que ativar manualmente nas opções do Excel em Central de Confiabilidade "Confiar no acesso ao modelo de objeto de projeto do VBA. Feito isso poderá usar as funções Export/Import, p.ex Application.VBE.VBProjects(1).VBComponents("Módulo1").Export "C:\Módulo1.bas" ... Workbooks("Arquivo").VBProject.VBComponents.Import "C:\Módulo1.bas" Para vincular um botão ao novo arquivo tente atribuir OnAction, Worksheets("Planilha1").Shapes("Botão").OnAction = "SuaMacro" Outra alternativa para contornar essas questões é salvar uma cópia do arquivo completo original e remover as planilhas desnecessárias dele.

@Murilo Da Cunha Faça um loop nas linhas da tabela da Planilha 1 e use a função Find para verificar se a empresa já existe na outra planilha. E caso não exista, copie a linha da empresa para a Planilha 2 usando SumIf na quantidade.

@biaa_sly Em vez de testar cada possibilidade, você pode fazer assim, if (!(n>=0 && n<=9)) Para imprimir apenas a quantidade do números digitados, basta verificar se o valor do índice no loop é diferente de 0, int main(void) { int vetor[10]={0}, n; while(1){ scanf("%d", &n); if (!(n>=0 && n<=9)) break; else vetor[n]++; } for(n=0; n<10; n++) if(vetor[n]) printf("%d = %d\n", n, vetor[n]); return 0; }

Para resolver atribua 0 ao label da soma no Initialize do Form, lblSoma = 0

@CRegina Use um loop para pegar todas as planilhas e a função Find para procurar os itens, p.ex For Each W In ThisWorkbook.Worksheets Set R = W.Range("B:B").Find(Item) If Not R Is Nothing Then End If Next W

@DaviCN A macro pega a Tabela 1 em A1:D3 e cria a segunda no formato a partir de A6. Faça um teste e adapte conforme seu caso. Sub Macro() Dim T, N As Range Dim L As Integer L = 6 For Each T In Range("A2:A3") For Each N In T.Offset(0, 1).Resize(1, T.End(xlToRight).Column - 1) If N > 0 Then Cells(L, 1).Resize(N, 1) = T Cells(L, 2).Resize(N, 1) = N.Offset((T.Row - 1) * -1, 0) L = L + N End If Next N Next T End Sub

strlen é uma função que retorna o tamanho da string. E a variável len vai armazenar esse valor. Então se a string for "ABC", len vai armazenar o valor 3.

@Alan Meira Assim? =CONCATENAR(SE(C2;"mais fino,";"");SE(D2;"mais crespo,";"");SE(E2;"mudou a cor,";"");SE(F2;"mais quebradiço,";"");SE(G2;"mais oleoso,";""))

@WILSON SILVA JUNIOR Você pode usar '*' no filtro, acrescentando um If nesta parte, ... If Right(ComboBox1, 6) = "_Total" Then Planilha1.Range("F2") = Mid(ComboBox1, 1, Len(ComboBox1) - 5) & "*" Else Planilha1.Range("F2") = ComboBox1 End If Call FILTRO ...

@Dinei San A fórmula CONT.SES deve servir, p.ex =CONT.SES(A1:A10;123;B1:B10;"Saída")

@Luis Geraldo Tenta entrar em contato com os desenvolvedores para saber se eles podem disponibilizar a senha ou implementar esses recursos.

@Grazzhy Para funcionar o arquivo do Excel tem que estar salvo com a extensão xlsm. Copie e cole a macro abaixo no módulo EstaPastaDeTrabalho. Após salvar, fechar e abrir o arquivo novamente o vídeo deve rodar corretamente. Private Sub Workbook_Open() Dim WMP As WindowsMediaPlayer Dim Arquivo As String Arquivo = "\\svr-dc-001\Data\NOVA ESTRUTURA 2017\ENGENHARIA\P&D\PROJETOS\P&D\OLEX_DBO_AEROSSOL\Teste 15.05_forma aluminio_bolo\desmoldante.mp4" Set WMP = Worksheets("TESTE EM BOLO").WindowsMediaPlayer1 WMP.Url = Arquivo WMP.Controls.Play End Sub

Sim, mas se rodar a macro novamente ele vai abrir/recarregar o vídeo corretamente. Você pode rodar a macro manualmente ou deixar automática no evento Workbook Open para rodar sempre que abrir o arquivo.

@PEDRO_qzs Você pode usar a função Find para procurar se algum registro já está na planilha. E caso haja ocorrência faça a soma na linha do registro. Sub Macro() Dim R As Range Dim S As String S = "4444444" Set R = Worksheets("Geral").Range("A:A").Find(What:=S, LookAt:=xlWhole) If R Is Nothing Then MsgBox "Novo Registro" Else R.Offset(0, 9) = R.Offset(0, 9) + 1 End If End Sub

@Grazzhy Se o controle não estiver em Planilha1 é só alterar para o nome correto da planilha. E se houver mais de um controle talvez você tenha que mudar o nome também que neste caso é WindowsMediaPlayer1. Sub Macro() Dim WMP As WindowsMediaPlayer Dim Arquivo As String Arquivo = "C:\Video.wmp" Set WMP = Worksheets("Planilha1").WindowsMediaPlayer1 WMP.Url = Arquivo WMP.Controls.Play End Sub

@Grazzhy Tente usar as funções do controle no VBA para reproduzir ou recarregar o arquivo, p.ex no WMPlayer. Worksheets("Planilha1").WindowsMediaPlayer1.URL = "C:\Video.mp4" ... Worksheets("Planilha1").WindowsMediaPlayer1.Controls.Play

@BrunoG10 Para anexar o arquivo coloque o caminho do arquivo em OutMail.Attachments.Add.

Sub Macro() Dim F, V() As String Dim I As Integer V() = Split("Pedro Henrique", " ") I = UBound(V) While I > -1 F = Trim(F & " " & V(I)) I = I - 1 Wend MsgBox F End Sub

A fórmula que postei retorna o valor igual da dinâmica conforme imagem abaixo,

Qual erro? Veja se você editou todos os ranges corretamente.

@FSoares.FCS Você pode usar SOMA matricial, =SOMA(SE('Dinâmica SFT'!B:B=VENDAS!C5;SE('Dinâmica SFT'!D:D=VENDAS!D5;SE('Dinâmica SFT'!G:G=101;'Dinâmica SFT'!P:P)))) Cole a fórmula e digite Ctrl+Shift+Enter no modo de edição.