Este fórum está sendo desativado

Valeu.
Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia Caixa) os dados são copiados usando Arrays. Mas gostaria de copiar apenas algumas determinadas colunas da Guia Dados. Exemplos: - Colunas B, C, E e F ou - Colunas B, E, F e G ou às Vezes, vou Precisar Concatenar Colunas Também: - Colunas B e C Concatenadas, E...

Apareceu uma nova demanda: Preciso concatenar as colunas AC, AB e AA e colar na Coluna C. Tentei assim, mas dá erro tipos incompatíveis, erro 13. .Range(("AC5:AC" & UltimaLinha) & "-" & .Range("AB5:AB" & UltimaLinha) & "-" & .Range(&quo...

Olá, @PedroBB. A velocidade de processamento das coleções como Array, Collection e Dictionary, será bem maior se as operações forem executadas na própria coleção ou entre duas ou mais coleções, pois nesses casos o processo é todo efetuado na memória da máquina, que é rápida, e não existe interação ...

É desnecessário trabalhar com dois códigos. Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 27).End(3).Row: [A:C] = "" Range("AC1:AC" & LR).Copy [A1] Range("AB1:AB" & LR).Copy [B1] If [AH1] = 1 Then Range("AE1:AE" & LR).Co...

Pessoal, Na planilha anexa, os dados são copiados usando Arrays, porém preciso alterar a sequência das colunas, assim: Coluna AC (Data): Copiar para a Coluna A Coluna AB (Produto): Copiar para a Coluna B Coluna AD (Valor): Copiar para a Coluna C, se a Célula AH1 for 0 Coluna AE (%): Copiar para a Co...

Consegui com a fórmula:
=CLASSIFICAR(ÚNICO(FILTRO(TEXTO($A$2:$A$501;"aaaa");$A$2:$A$501<>"")))

DJunqueira escreveu: ↑09 Jan 2024 às 14:54 Excel 365

=CLASSIFICAR(ÚNICO(FILTRO(A2:A501;A2:A501<>"")))

DJunqueira escreveu: ↑02 Fev 2024 às 13:39Resolvido.

Alterei a fórmula da coluna J em Dados. =SE(A11;SE(E(I11=0;G11<HOJE());"Vencida";ESCOLHER(SE(H11="R";2;0)+SE(I11>0;1;2);"Paga";"A Pagar";"Recebida";"A Receber"));"") Corrigi a fórmula em Menu!A11. =SEERRO(CLASSIFICAR(FILTRO(TDado...

Na fórmula da Guia Menu, Célula A11, filtra o Mês e Ano <=E2 em dois momentos, relativo à data de Vencimento, Coluna G da Guia Dados. Porém o filtro não obedece (a última data de vencimento é 31/01/2025, e era pra filtrar <=03/2024). Preciso de todos os Negócios Vencidos e até o Mês/Ano da célula E2...

Consegui usando INDIRETO:
=DESLOC(Produtos!$AB$2;0;0;CONT.VALORES(INDIRETO("Produtos!$AB$2:AB"&Produtos!$AF$1));1)

.

Apareceu outra situação. Essa última linha está na Célula AF1, guia Produtos. O Valor da Célula AF1 é 30. Como capturar essa Linha no Intervalo Nomeado abaixo? =DESLOC(Produtos!$AB$2;0;0;CONT.VALORES(Produtos!$AB$2:$A$B &AF1);1) A Fórmula será: =DESLOC(Produtos!$AB$2;0;0;CONT.VALORES(Produtos!$A...

Foxtri escreveu: ↑31 Jan 2024 às 07:17 Bom dia.
Uma entre varias possibilidades:
=SOMARPRODUTO(MÁXIMO((A:A<>"")*LIN(A:A)))
Considerando que a coluna seja a "A".
Até
Foxtri

Pessoal,
Existe função ou fórmula pra descobrir o número da Ultima Linha Preenchida de uma Coluna Sem VBA?

Grato,
Pedro

DJunqueira escreveu: ↑26 Jan 2024 às 20:06 Quanto ao problema com datas retornando 0/1/1900, vc pode resolver isso com a formatação da data como abaixo:

dd/mm/aaaa;;""

Apliquei a solução na planilha anexa.

Inicialmente vc deveria formatar a coluna E como texto, mas há outras soluções sem sequer usar macro p/ filtrar. Na planilha anexa eu transformei sua tabela na aba 'Dados' em tabela nomeada e adicionei Segmentadores de Dados (Slicer), na aba 'Menu' eu utilizei a função FILTRO() p/ fazer a pesquisa ...

Na planilha anexa, guia Menu, Coluna E, gostaria que os dados fossem filtrados exatamente igual à
Guia Dados, Coluna E., com o formato de parcela. Exemplo: 01/02; 01/05; 05/05 ......

Grato,
Pedro

Boa tarde. Seria algo assim ?? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Rows.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A3:C12")) Is Nothing Then With Target ActiveSheet.Unprotect If .Offset(0, 6).Value = 0 And .Offset(0, 6).Value <> "&qu...