Ir para conteúdo
  • Publicidade

osvaldomp

  • Postagens

    1.450
  • Desde

  • Última visita

  • Days Won

    53

osvaldomp venceu no dia Julho 1

Seu conteúdo teve mais votos "Gostei" neste dia!

Mídias Sociais

Sobre osvaldomp

  • Título
    Microsoft Office

Perfil

  • Estado
    São Paulo
  • Sexo
    masculino
  • Escolaridade
    Superior completo
  • Área Profissional
    Engenharia
  • Nível Profissional
    Profissional curso superior

Últimos Visitantes

11.489 visualizações
  1. osvaldomp

    ANSWERED Filtro Excel

    Sugestão - nos próximos tópicos que você abrir tire um tempo para elaborar de forma definitiva a sua planilha. substitua as duas linhas conforme abaixo para contornar os problemas apontados : LC = Cells(17, Columns.Count).End(1).Column + 2 If UCase(.Cells(16, c)) <> UCase(.[A15]) Then .Range(.Columns(c), .Columns(c + 2)).Hidden = True
  2. osvaldomp

    ANSWERED Filtro Excel

    Sub AplicaFiltro() Dim LC As Long, LR As Long, c As Long Application.ScreenUpdating = False RemoveFiltro LC = Cells(16, Columns.Count).End(1).Column + 2 LR = Cells(Rows.Count, 1).End(3).Row With ActiveSheet .Range("A17", .Cells(LR, LC)).AutoFilter 1, [A14] For c = LC - 2 To 15 Step -3 If .Cells(16, c) <> UCase(.[A15]) Then .Range(.Columns(c), .Columns(c + 2)).Hidden = True Next c End With Application.ScreenUpdating = True End Sub
  3. osvaldomp

    ANSWERED Filtro Excel

    Sobre as listas suspensas experimente inserir Caixa de Listagem na planilha, que oferece mais recursos do que a Validação: menu Desenvolvedor / Inserir / Controles de Formulário / Caixa de Listagem ou menu Desenvolvedor / Inserir / Controles ActiveX / Caixa de Listagem (ListBox) em seguida clique com o direito sobre a Caixa inserida / Formatar Controle ou no caso de ActiveX / Propriedades Para obter uma lista sem repetição e sem vazios uma alternativa é copiar a lista, colar em uma coluna vazia / Dados / Remover Duplicatas / depois ordene, ou a lista pode ser dinâmica e obtida por fórmulas ( o Patropi é fera nisso).
  4. osvaldomp

    Excel - Macros em Folhas Protegidas

    Olá, Bernardo. Veja se o código abaixo atende. obs. alterei o nome da variável de pivotTable para pvtTable pois o primeiro é termo reservado do VBA. Sub Actualizar_TDs() Dim pvtTable As pivotTable, plan As Worksheet For Each plan In ThisWorkbook.Sheets plan.Protect "25", uiserinterfaceonly:=True For Each pvtTable In plan.PivotTables pvtTable.RefreshTable Next pvtTable Next plan End Sub
  5. osvaldomp

    Excel - Macros em Folhas Protegidas

    Todas as planilhas/folhas estão protegidas com senha ? Se sim, a senha é igual para todas as planilhas/folhas ?
  6. osvaldomp

    ANSWERED Filtro Excel

    Bernardo, desculpe, não funcionou porque o cabeçudo aqui esqueceu de informar: coloque em A12 a cor desejada para o filtro, exemplo Azul coloque em A13 a letra desejada para o filtro, exemplo A
  7. osvaldomp

    ANSWERED Filtro Excel

    Olá, Bernardo. Veja se atende. Instale os dois códigos abaixo em um módulo comum. Vincule cada código a um botão. Sub AplicaFiltro() Dim LC As Long, LR As Long, c As Long RemoveFiltro LC = Cells(14, Columns.Count).End(1).Column + 2 LR = Cells(Rows.Count, 1).End(3).Row With ActiveSheet .Range("A14", .Cells(LR, LC)).AutoFilter 1, [A12] For c = LC - 2 To 15 Step -3 If .Cells(14, c) <> .[A13] Then .Range(.Columns(c), .Columns(c + 2)).Hidden = True Next c End With End Sub Sub RemoveFiltro() With ActiveSheet .AutoFilterMode = False .Columns.EntireColumn.Hidden = False End With End Sub
  8. osvaldomp

    Apagar linhas Excel

    Olá, Bernardo. .[A19:L200].AutoFilter 2, "=" ~~~> neste comando o número 2 corresponde à coluna B coluna A ~~~> 1 coluna B ~~~> 2 coluna C ~~~> 3 ... ...
  9. osvaldomp

    Apagar linhas Excel

    Olá, Bernardo. Veja se o código abaixo atende. Sub ExcluiLinhas() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False .[A19:L200].AutoFilter 2, "=" .Range("A20:L200").SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With Application.ScreenUpdating = True End Sub obs. 1. considerei que a linha 19 contém cabeçalho, que não será afetado pelo código 2. se entendi corretamente o critério para excluir a linha é se B estiver vazia, independente se A estiver vazia ou não 3. considerei que os dados estão da coluna A até a coluna L, altere se necessário
  10. osvaldomp

    Macro Bloqueio "X" e Imprimir

    Veja se os códigos abaixo atendem. Cole estes dois códigos no módulo de EstaPasta_de_trabalho. Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "clique no botão IMPRIMIR" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) If NoEvents Then Exit Sub MsgBox "clique no botão FECHAR" Cancel = True End Sub Cole estes dois e a declaração de variável em um módulo comum (menu Inserir / Módulo) Public NoEvents As Boolean Sub ImprimePlanilha() With ActiveSheet Application.EnableEvents = False .PrintOut Application.EnableEvents = True End With End Sub Sub SalvaFechaArquivo() NoEvents = True If Range("B1").Value <> "" Then Application.DisplayAlerts = False ThisWorkbook.Close savechanges:=True Application.DisplayAlerts = True End If End Sub
  11. osvaldomp

    Apagar linhas Excel

    Olá, Bernardo. Da linha 20 até a linha 200 você quer apagar a linha se A for diferente de vazio e B for vazio, é isso ? E se A e B forem vazios, é para apagar ou não?
  12. osvaldomp

    Coordenadas X, Y da tabela

    Olá, Bernardo. Sim, está tudo correto o que você fez, só falta você inserir em C8 o valor procurado 😉
  13. osvaldomp

    ANSWERED Pesquisar com várias células simultâneas

    Olá, Geneci. Faltou atribuir a nova macro ao botão. Outro problema é que o novo código ao ser copiado daqui do fórum e colado no módulo foi contaminado por "sujeiras" aqui do fórum o que provocou erro em alguns comandos. Esse problema é comum neste fórum e a contaminação se dá ao copiar fórmulas e códigos em VBA. Segue o arquivo com os ajustes feitos. Veja se melhorou. Pesq.varias celulas.xlsm
  14. osvaldomp

    ANSWERED Pesquisar com várias células simultâneas

    Olá, Geneci. Substitua o código existente pelo código abaixo e veja se o resultado atende. Sub ProcuraV2() Dim crit As Range, i As Long If [A5] <> "" Then Range("A5:F" & [A5].End(4).Row).Value = "" With Sheets("CADASTRO") .AutoFilterMode = False For Each crit In Range("B2:E2") .Range("A6:G" & .Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter i + 2, crit.Value i = i + 1 Next crit .Range("A7:G" & Cells(Rows.Count, 1).End(xlUp).Row).Copy [A5] .AutoFilterMode = False End With Columns("F:F").Delete End Sub obs. por favor desloque o botão PESQUISAR para a esquerda dos critérios (coloque-o na região A1:A3)
  15. osvaldomp

    Macro Bloqueio "X" e Imprimir

    Sugestão - deixe de lado por um momento os códigos que você está tentando utilizar e descreva com exatidão o seu objetivo.
  • Publicidade

×