Márcio Rodrigues

Olá AlanBC Verifique se te atende. Veja se é por aí... Té + Márcio controle v1.rar

Olá Paulo Lebeis Tem como mandar o arquivo para que possamos recriar o problema e tentarmos achar uma solução? Té + Márcio

Olá MProvinciatto Dúvida: O relacionamento e n para n, ou seja, todos os vendedores com todos os produtos? Té + Márcio

Olá ErickSant Segue anexo. Veja se é por aí... Té + Márcio teste v1.rar

Olá diego_janjao Verifique se resolve o problema. Veja se é por aí... Té + Márcio rec2019 v2.rar

Olá xxmarcos2 A ActiveSheet.Cells(1, 1).Value é a celula A1 da planilha ativa. Segue arquivo que fiz de exemplo. Veja se é por aí... Té + Márcio localizar um texto dentro de uma forma.rar

Olá diego_janjao Segue anexo. Veja se é por aí... Té + Márcio rec2019 v1.rar

Olá xxmarcos2 Tente isto: Option Explicit Dim i As Integer Dim bSearchShape As Boolean Sub searchShape() bSearchShape = False For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Select If Selection.ShapeRange.Name = ActiveSheet.Cells(1, 1).Value Then MsgBox "Localizado o " & ActiveSheet.Cells(1, 1).Value bSearchShape = True Exit For End If Next i If bSearchShape = False Then MsgBox "Não localizado o " & ActiveSheet.Cells(1, 1).Value End If End Sub consultado Ricardo Villafaña Figueroa no site https://sites.google.com/site/automatizacionexcel/macros-para-manejar-los-elementos-de-una-forma Veja se é por aì... Té + Márcio

Olá luis_uardo Teste e verifique se resolve o seu problema. Inclui um campo na sua planilha de ACOMPANHAMENTO na coluna L para verificação. Veja se é por aí... Té + Márcio Teste 34 v1.rar

Olá luis_uardo Dúvidas: Na plan AGENDAMENTOS você tem n registros. Os registros do dia 6-jun você quer que vão para a plan 6 por exemplo? É isto? Se possível mande um exemplo feito manualmente do resultado esperado. Té + Márcio

Olá Luks Skywalker Vefirique se resolve o problema: Option Explicit Dim i As Integer Dim j As Integer Dim varColor As Variant 'consultado osvaldomp 09 Mai 2017 às 18:59 em https://gurudoexcel.com/forum/viewtopic.php?f=12&t=4645 Sub changeColorConditional() '(L9:BG258) linha = 09 até 258;coluna = 12 até 59 For i = 9 To 258 For j = 12 To 59 varColor = Cells(i, j).DisplayFormat.Interior.ColorIndex If varColor = 3 Then Cells(i, j).Value = "N" End If Next j Next i End Sub Veja se é por aí... Que a Força esteja com você Márcio

olá xandymarinho Não consegui ententer o q você precisa: Na sua plan base compras tem por exemplo 9 registros do MULTIGIRO DISTRIBUIDORA LTDA Esta plan tem os seguintes campos: codigoenti codigoloja FORNECEDOR condipagto numnotafis numnotanfe dataentrad TOTAL NF Na plan base forn existem 368 registros da MULTIGIRO DISTRIBUIDORA LTDA sendo que existem 15 departamentos diferentes Esta plan tem os segintes campos: cód depart DEPARTAMENTO cod fab FORNECEDOR Como fazer está associação? Qual o resultado (faça manualmente) para a MULTIGIRO DISTRIBUIDORA LTDA? abs, Márcio

Olá Paulo Cezar 1 - Veja as macros que você mesmo criou em: EstaPasta_de_trabalho Módulo1 Módulo2 Eu não sei qual a função delas e as mantive no no arquivo. 2 - você proteje a planilha e isto está dando problema, retirei o: Sheets(ActiveSheet.Name).Unprotect "0" Sheets(ActiveSheet.Name).Protect "0" Aparentemente isto estava protegendo a célula ativa 3 - Veja se é por aí... abraços Té + Márcio Correspondencias 2018 v2.rar

Olá paulocezarpicos Faça uns teste para ver se te atende. Veja se é por aí... Té + Márcio Correspondencias 2018 v1.rar

Olá ewpreis Faça teste e verifique se deu o resultado esperado. Veja se é por aí... Té + Márcio modelo.rar

Olá Thiago088 Você poderia filtrar por cor e excluir as linha, coloquei um exemplo no arquivo. Por macro, conforme já colocado pelo: Fiz uma macro que verifica a cor da célula A2 (seu cabeçalho) e varre toda a planilha, caso todas as células do range A até E tenham a mesma cor da célula A2 então deleta a linha. Veja se é por aí... Té + Márcio 2013 a 2015 v1.rar

Olá Neri Schuck Na SUB Private Sub PopulaListBox(..... Após .... Next i 'seleciona o primeiro item da lista LstLista.ListIndex = 0 Else LstLista.Clear End If Coloque isto: For i = 1 To UBound(myArray) + 1 LstLista.List(i, 7) = Right(Space(20) & Format(myArray(i - 1, 7), "R$ #,0.00"), 20) LstLista.List(i, 8) = Right(Space(20) & Format(myArray(i - 1, 8), "R$ #,0.00"), 20) 'VALOR Next i Veja se é por aí... Té + Márcio

Ola xandymarinho Alterei o código. Inclui um teste para saber se esta no começo do range. Teste e veja se é por ai.. Té + Márcio Analise Mix_AMOSTRA v1.rar

Ola xandymarinho Com o seu modelo Analise Mix_AMOSTRA.rar ficou mais fácil de entender, mas mais difícil de fazer (rs). Range é uma seleção de células, por exemplo de B82 até AG96 é um Range de Bebidas Importadas de 08 anos (está parte é a melhor). Vou ver se dá pra fazer um código para este modelo. Dúvidas: você vai rodar a macro em cada Range ou pode rodar tudo de uma vez? Todos os Ranges (olha ele aqui de novo) vão ter de uma até n linhas ai pula duas linhas e começa o outro Range (cara chato este Range)? Vai ter que classificar até a coluna AG? That's all folks! Márcio

Olá Neri Schuck Na SUB Private Sub PopulaListBox(..... Após 'coloca as linhas do RecordSet num Array, se houver linhas neste If Not rst.EOF And Not rst.BOF Then myArray = rst.GetRows 'troca linhas por colunas no Array myArray = Array2DTranspose(myArray) 'atribui o Array ao listbox LstLista.List = myArray 'adiciona a linha de cabeçalho da coluna LstLista.AddItem , 0 'preenche o cabeçalho For i = 0 To rst.Fields.Count - 1 LstLista.List(0, i) = rst.Fields(i).Name Next i 'seleciona o primeiro item da lista LstLista.ListIndex = 0 Else LstLista.Clear End If Insira uma chamada do procedimento: formatarcolunas Veja se é por aí... Té + Márcio

Ola xandymarinho 1 - você precisa que apareça a fórmula? 2 - Eu não sei onde você vai criar a range, então tenho que indicar o primeiro endereço. Qualquer dúvida, manda aí...

Ola xandymarinho Tente indicar a célula A3 e rode. você tem que indicar a 1ª célula do Range A3 ou A9 no seu exemplo. Márcio

Ola xandymarinho Fiz um código que solicita a célula inicial do Range. Veja se é por aí... Té + Márcio Pasta7 v1.rar

Olá RicardoAD você pode usar tabela dinâmica para obter os resultados. Segue anexo exemplo. Veja se é por aí... Té + Márcio Lista Cotação v1.xlsx

Ola xandymarinho Não entendi o que você precisa. No Range A3:J6 você tem 4 produtos e quer fazer os cálculos neste range? Depois o Range A9:J12 terão os mesmos cálculos? Os demais Ranges (se tiver) serão tb com 4 linhas? Márcio