Comunidade DATAB

Seja bem vindo ao fórum oficial da DATAB | Sua dose diária de Power BI e Excel

Pesquisa resultou em 3271 ocorrências

 Voltar para a pesquisa avançada

Re: Macro copia e cola se duas células iguais

 por osvaldomp ¦  21 Mai 2022 às 09:56 ¦  Fórum: Macros e VBA ¦  Tópico: Macro copia e cola se duas células iguais ¦  Respostas: 1 ¦  Exibições: 8

Olá, @piasserpa . Experimente: Sub ReplicaDados() Dim k As Long Sheets("Gráfico_SDemand_22").[D6:O6] = "" For k = 4 To 15 If Sheets("Gráfico_SDemand_22").Cells(3, k) = Sheets("Targets").[A3] And Sheets("Targets").[A3] <> "" Then Sheets(&quo...

Re: Criar Private Sub para Ocultar Linhas dos Projetos Não Selecionados

 por osvaldomp ¦  20 Mai 2022 às 19:52 ¦  Fórum: Macros e VBA ¦  Tópico: Criar Private Sub para Ocultar Linhas dos Projetos Não Selecionados ¦  Respostas: 5 ¦  Exibições: 52

Waltricke escreveu: 20 Mai 2022 às 14:11 ... mas quando tento recolher as linhas usando o botão lateral, elas não permanecem recolhidas.
Qual o critério que você utiliza para recolher/expandir as linhas ? Ou em que momento você faz essa operação ?

Olá, @CinOlive .

Se você disponibilizar uma amostra do seu arquivo Excel com o código instalado talvez facilite para obter ajuda.

Veja o caminho no final do meu post.

Re: Iniciante | Ao Criar um novo arquivo a partir do Doc Exce

 por osvaldomp ¦  20 Mai 2022 às 13:07 ¦  Fórum: Macros e VBA ¦  Tópico: Iniciante | Ao Criar um novo arquivo a partir do Doc Exce ¦  Respostas: 1 ¦  Exibições: 17

Experimente: Sub CriarArquivoV2() Dim fat As Range, LR As Long With ActiveSheet .AutoFilterMode = False LR = .Cells(Rows.Count, 1).End(3).Row .Range("F2:F" & LR).Copy .[W1] .Range("W1:W" & LR).RemoveDuplicates Columns:=1 For Each fat In .Range("W1:W" & .Cell...

Mude a posição da linha em vermelho da posição atual para a posição conforme indicado abaixo. wsmra.UsedRange.EntireRow.EntireColumn.AutoFit lastrow = wsmra.UsedRange.Rows.Count wsmra.PageSetup.PrintArea = Range("A1:O" & lastrow).Rows.SpecialCells(xlCellTypeVisible).Address

Re: Criar Private Sub para Ocultar Linhas dos Projetos Não Selecionados

 por osvaldomp ¦  19 Mai 2022 às 20:40 ¦  Fórum: Macros e VBA ¦  Tópico: Criar Private Sub para Ocultar Linhas dos Projetos Não Selecionados ¦  Respostas: 5 ¦  Exibições: 52

Olá, @Waltricke . Cole uma cópia do código abaixo no módulo da Plan1 . Para acessar o módulo clique com o direito na guia da planilha e escolha Exibir Código . Private Sub Worksheet_Calculate() Dim k As Long Application.EnableEvents = False For k = 6 To 29 Rows(k).Hidden = Cells(k, 1) = ""...

Re: Filtro avançado não funciona

 por osvaldomp ¦  19 Mai 2022 às 14:36 ¦  Fórum: Macros e VBA ¦  Tópico: Filtro avançado não funciona ¦  Respostas: 1 ¦  Exibições: 15

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com as explicações na própria planilha do que você quer fazer e qual o resultado esperado. Ainda, informe com exatidão que manobra é essa abaixo e qual o objetivo. Criei uma caixa de texto e coloquei o código: Selecti...

substitua este trecho ques = InputBox("selec dia? (1 hj, or 2 amanha)", "test", "1") If ques = "1" Then rng1.AutoFilter 1, Criteria1:="TRUE", Operator:=xlFilterValues rng1.AutoFilter 2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic rng2.AutoFi...

Re: Contar celulas preenchidas de acordo com ano da coluna

 por osvaldomp ¦  17 Mai 2022 às 21:59 ¦  Fórum: Excel Básico ¦  Tópico: Contar celulas preenchidas de acordo com ano da coluna ¦  Respostas: 3 ¦  Exibições: 14

=SOMARPRODUTO((ANO(Planilha1!A$1:A$600)=Planilha1!C1)*(Planilha1!A$1:A$600<>""))

Se ainda assim você não conseguir, então disponibilize o seu arquivo Excel com alguns dados (bastam poucas linhas representativas) e com o resultado desejado.

Re: Contar celulas preenchidas de acordo com ano da coluna

 por osvaldomp ¦  17 Mai 2022 às 21:00 ¦  Fórum: Excel Básico ¦  Tópico: Contar celulas preenchidas de acordo com ano da coluna ¦  Respostas: 3 ¦  Exibições: 14

=SOMARPRODUTO((ANO(A$1:A$600)=C1)*(A$1:A$600<>""))

Re: Iniciante | Apagar várias linhas com base em códigos de coluna

 por osvaldomp ¦  17 Mai 2022 às 15:20 ¦  Fórum: Macros e VBA ¦  Tópico: Iniciante | Apagar várias linhas com base em códigos de coluna ¦  Respostas: 6 ¦  Exibições: 73

Experimente este. Sub DeletaLinhas() 'Eliminar Erros N.º 19,98,311,715,716 e 799 Dim LR As Long, X With ActiveSheet .AutoFilterMode = False LR = .Cells(.Rows.Count, 3).End(xlUp).Row X = Array("19", "98", "311", "715", "716", "799") .Range(&...

Re: Organizar Proprietários

 por osvaldomp ¦  17 Mai 2022 às 13:17 ¦  Fórum: Fórmulas e Funções ¦  Tópico: Organizar Proprietários ¦  Respostas: 1 ¦  Exibições: 11

Experimente:
=SE(CONT.SE(B$2:B2;B2)=1;C2;ÍNDICE(C$2:C2;CORRESP(B2;B$2:B2;0)))
#
obs.
1. o seu resultado em D24 está incorreto, deve ser 31189414 e não 31312141
2. verifique que o conteúdo de B9, embora pareça igual a B10, não é. Para confirmar coloque em qualquer célula vazia ~~~> =B9=B10

Re: Iniciante | Apagar várias linhas com base em códigos de coluna

 por osvaldomp ¦  17 Mai 2022 às 11:55 ¦  Fórum: Macros e VBA ¦  Tópico: Iniciante | Apagar várias linhas com base em códigos de coluna ¦  Respostas: 6 ¦  Exibições: 73

Olá, @atcgfc .

Qual é a mensagem de erro ?

Você poderia disponibilizar uma amostra do seu arquivo Excel com alguns dados e com o código que você está tentando utilizar ?

Re: Função concatenar erro quando colocado %

 por osvaldomp ¦  17 Mai 2022 às 10:56 ¦  Fórum: Fórmulas e Funções ¦  Tópico: Função concatenar erro quando colocado % ¦  Respostas: 2 ¦  Exibições: 12

Olá, @JMCNETO .

Na sua fórmula, no lugar de C2 coloque ~~~> TEXTO(C2;"0,00%")

Re: Iniciante | Apagar várias linhas com base em códigos de coluna

 por osvaldomp ¦  17 Mai 2022 às 10:47 ¦  Fórum: Macros e VBA ¦  Tópico: Iniciante | Apagar várias linhas com base em códigos de coluna ¦  Respostas: 6 ¦  Exibições: 73

Olá, @atcgfc .

Acrescente os comandos abaixo ao seu código, nas devidas posições.

Código: Selecionar todos
 Dim arr As Variant
  arr = Array(19, 98, 311, 715, 716, 799)
...
...
  If Not IsError(Application.Match(Cells(linha, "C"), arr, 0)) Then .Rows(linha).Delete

Re: Dúvida para extrair dados de base

 por osvaldomp ¦  17 Mai 2022 às 10:21 ¦  Fórum: Fórmulas e Funções ¦  Tópico: Dúvida para extrair dados de base ¦  Respostas: 5 ¦  Exibições: 41

@chopper .

Dependendo da quantidade de linhas na base de dados, possivelmente uma solução por fórmulas irá provocar lentidão no recálculo da planilha.

Segue uma solução via macro que funciona para qualquer quantidade de linhas na base de dados.. Veja se lhe serve.

Re: Ajuda Ocultar linhas

 por osvaldomp ¦  17 Mai 2022 às 09:21 ¦  Fórum: Macros e VBA ¦  Tópico: Ajuda Ocultar linhas ¦  Respostas: 4 ¦  Exibições: 25

Olá, @LeoHenrique . Experimente: Sub OcultaLinhasVazias() Rows(Cells(Rows.Count, 2).End(3).Row + 1 & ":10000").Hidden = True End Sub # Caso lhe seja útil, este abaixo reexibe a primeira linha vazia abaixo da tabela para posterior preenchimento. Sub ReexibePrimeiraLinhaVazia() Rows(Cell...

Re: Ajuda Ocultar linhas

 por osvaldomp ¦  16 Mai 2022 às 20:32 ¦  Fórum: Macros e VBA ¦  Tópico: Ajuda Ocultar linhas ¦  Respostas: 4 ¦  Exibições: 25

Olá, @LeoHenrique . A coluna B contém fórmulas ? No momento que você tentou aplicar esse trecho de código que você publicou qual era a última linha com dados na coluna B ? Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel e informe quais linhas você deseja ocultar. E...

Re: Selecionar célula mesclada

 por osvaldomp ¦  16 Mai 2022 às 17:00 ¦  Fórum: Macros e VBA ¦  Tópico: Selecionar célula mesclada ¦  Respostas: 2 ¦  Exibições: 17

Experimente: Sub SelecionaPrimeiraMescladaAcima() Dim c As Range If ActiveCell.Column > 1 Or ActiveCell.MergeCells = True Then Exit Sub With Application .FindFormat.Clear .ReplaceFormat.Clear .FindFormat.MergeCells = True End With Set c = Range("A:A").Find("", ActiveCell, , , xlP...

Re: Somar valores de acordo com ano da coluna A

 por osvaldomp ¦  16 Mai 2022 às 16:21 ¦  Fórum: Excel Básico ¦  Tópico: Somar valores de acordo com ano da coluna A ¦  Respostas: 2 ¦  Exibições: 15

Olá, @albertosilvarj . 1. coloque na linha 1, a partir de E1, os números que representam os anos (2015, 2016, 2017, ...) 2. coloque na coluna D, a partir de D3, os números que representam os meses (1, 2, 3, ...) Soma por ano ~~~> cole uma cópia da fórmula abaixo em E2 e arraste para a direita =SOMAR...

  • 1
  • 2
  • 3
  • 4
  • 5
  • 164

... mas quando tento recolher as linhas usando[…]

Valeu, meu caro Deciog! Abraço!!!!

Galera, agradeço a quem pelo menos se inter[…]

Olá, @piasserpa . Experimente: Sub Rep[…]

Olá queridos parceiros! Estou com um proble[…]

=ÚNICO(FILTRO(Tabela1[SEÇÃO];[…]

Olá, @CinOlive . Se você disponi[…]

Experimente: Sub CriarArquivoV2() Dim fat As R[…]