Comunidade DATAB

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...

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.

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

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) = ""...

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...

=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.

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

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(&...

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

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 ?

Olá, @JMCNETO .

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

Olá, @atcgfc .

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

 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

@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.

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...

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...

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...

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...