Este fórum está sendo desativado

Você marcou que deseja excluir a linha 2. É para excluir também as linhas 16, 30, ... ?

sugestão - disponibilize outra planilha e coloque também o resultado desejado ao lado de ao menos 3 grupos de dados (códigos 31607, 33668 e 33698)

Experimente estes. Copiam/colam somente a última célula preenchida da coluna 'J'. Sub Teste() Dim LR As Long LR = Cells(Rows.Count, 10).End(3).Row Range("J" & LR).Copy Range("J" & LR + 1) End Sub Sub TesteV2() Range("J" & Cells(Rows.Count, 10).End(3).Row).Co...

Experimente: Sub Teste() Dim LR As Long LR = Cells(Rows.Count, 1).End(3).Row Range("A" & LR).Resize(, 11).Copy Range("A" & LR + 1) End Sub ou Sub TesteV2() Range("A" & Cells(Rows.Count, 1).End(3).Row).Resize(, 11).Copy Range("A" & Cells(Rows.Co...

1. acrescente o código abaixo Private Sub boxcliente_Change() Dim n As Range For Each n In Range("A4:A" & Cells(Rows.Count, 1).End(3).Row) If n.Value = boxcliente.Value Then Me.boxNF.AddItem n.Offset(, 1).Value Next n End Sub 2. remova o código Private Sub boxNF_Change() 3. no código P...

Olá, Éverton. A causa do problema é que na área de critérios há células vazias. Assim, a área de critérios está setada como 'A1:B3', mas em 'A3:B3' não há dados. Faça um teste, coloque naquele intervalo por exemplo JV e 5101AA. Para filtrar com apenas uma linha de critérios é preciso ajustar o inter...

sugestão - disponibilize uma amostra do seu arquivo Excel, com o código instalado e coloque/explique na própria planilha qual o resultado esperado. dica - para postar códigos diretamente no fórum, após colar o código aqui selecione-o e clique na ferramenta "Código" no menu ~~~> ícone </>

Descreva com exatidão o que você quer. Exemplo: 1. o código vinculado ao botão NFs Saída carrega o Form 2. após preenchido o Form você vai clicar em qual botão do Form ? 3. ao clicar no botão do Form você quer que os dados do Form sejam replicados na planilha de destino, esta escolhida no campo Empr...

Selecione toda a tabela / menu Validação de Dados / Personalizado / na Caixa de fórmula coloque a fórmula abaixo

=CONT.SES($B:$B;$B3;$C:$C;$C3;$D:$D;$D3)<2

Você pode utilizar o Filtro Avançado e adicionar o caracter curinga ao critério, assim *Silva, *Lopes, ...

Se for a versão 2016 do Excel ... vai precisar de um "downgrade" para a versão 2011.

https://answers.microsoft.com/en-us/mso ... a8a2bdf611

...eu preciso encontrar todos os números na coluna ZIP Code que estão entre todos os intervalos do CEP inicial e CEP final. Veja se ajuda. Cole a fórmula abaixo em 'D2' e dê duplo clique no canto inferior direito para estender a fórmula. =CONT.SES($B$2:$B$279;"<="&A2;$C$2:$C$279;"...

O botão deve estar na planilha "Condutas" e a quantidade de colunas a replicar você ajusta conforme a observação do meu post anterior. O resultado vai para a planilha "Tubos", exatamente da forma como você pediu.

Experimente: Private Sub CommandButton1_Click() Dim lr As Long, r As Long lr = Cells(Rows.Count, "C").End(xlUp).Row For r = 2 To lr Cells(r, 1).Resize(, 10).Copy Sheets("Tubos").Cells(Rows.Count, 1).End(3)(2).Resize(Cells(r, 3), 10) Next r End Sub obs. será replicado o intervalo ...

substitua esta inha

If txt_valor.Value > quantidade.Caption Then

if CDbl(txt_valor.Value) > Left(quantidade.Caption, Len(quantidade.Caption) - 3)

Veja se o arquivo anexo atende.

Na Sub Linha20 substitua esta linha

 .Cells.EntireRow.Hidden = False

 .Rows("6:76").Hidden = False

   .Cells.EntireRow.Hidden = False

 .Rows("82:152").Hidden = False

Muitos dados de usuário do serviço... É óbvio que não se deve tornar público dados de usuários. Releia o que eu escrevi antes: amostra do seu arquivo , que é diferente do arquivo original . Você consegue entender isso ? Claro, preparar uma amostra (SEM DADOS PESSOAIS) para colocar no fórum demanda ...

Abaixo da última postagem clique no botão +Resposta / mais abaixo clique em Adicionar um anexo / Selecione o arquivo / escolha o arquivo

... como se o excel reconhecesse isso como um texto... Sim, parece data e hora mas é texto. Possíveis causas: 1. a presença do hifen; faça um teste digitando data e hora na TextBox sem o hifen 2. declaração da variável DTAten do tipo inadequado ~~~> experimente ~~~> Dim DTAten as Date 3. forma de p...

1. selecione o intervalo desejado, ex. 'A1:A10'
2. menu Validação de Dados / Personalizado / na caixa de fórmulas cole a fórmula abaixo

=E($A1>=1;$A1<=60;$D1<=1)