Talvez uma rotina direta possa deixar mais rápido o processo... Veja se funciona: Option Explicit Option Compare Text Sub Concatenar_Pedidos() Dim w...

Obrigado! me confundi aqui..

Sub ContarFeriados() Dim ContaFIXO As Long Dim I As Long For I = 1 To ListView1.ListItems.Count If ListView1.ListItems(I).Lis...

Bom dia! veja se é isso: Cole em K3 e arraste =CONT.SES($E$3:$E$12;$I3;$G$3:$G$12;"Sim") Cole em L3 e arraste: =CONT...

Colega boa tarde! Nesse caso você não pode travar a linha, apenas a coluna.. Segue corrigido: =SE(E(E($C4<>"";NÃO($C4="-"...

Boa tarde colega @maruchoa, segue conforme pedido:

Colega celsoyano,veja se isso resolve: Sub Remover_Espaço() Dim ul As Long ul = Plan2.Range("B" & Rows.Count).End(xlUp)...

Colega Edson obrigado pela observação , realmente não havia percebido isso.

Veja se é isso o que deseja:

Não veio exemplo...

Cara tem Bruxaria ai... Experimente apagar o ultimo carácter vazio e veja o que acontece..

Colega Bom dia! Veja se é isso: Sub Remover_Espaço() Dim ul As Long ul = Plan2.Range("B" & Rows.Count).End(xlUp).Ro...

Vc declarou iDias as date Repare que na coluna y, a célula y5 é texto e não date. Para comprovar isso transforme todos os dados da coluna y para o fo...

Também não entendi muita coisa, mas veja se é mais ou menos isso: