Bem vindo amigo!!!! Mostre um exemplo com dados.

Seja bem vindo amigo!!! Acesse: http://www.tudosobrexcel.com/userform/ FORMULÁRIO ANIMADO

Boa tarde!! Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_MAXIMIZEBOX = &H10000 Public Declare Function GetWindowLong Lib "User...

Boa tarde!! Eu creio que exatamente como quer, não seja possível. No mais leia: Att

Boa tarde!! Eu fico feliz que resolveu, obrigado pelo retorno!! Att

Boa tarde!! Seja bem vindo! O ideal seria tu postar um arquivo modelo compactado! Também, você pode usar a pesquisa, pois há muitas cosias que tu p...

Boa tarde!! Eu fico feliz que você resolveu, obrigado por retornar! Att

Boa tarde!! Se usar a pesquisa, encontrará muita coisa próxima disso... Sub teste() Range("H1:P10").Copy Range("H" &...

Boa tarde!! Seria isso? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column &...

Boa tarde!! No seu modelo, não tem guia geral, que resultado tu pretendo obter, eu não entendi o que você quer. Att

Boa tarde!! A variável x, recebe de 1 até a ultima linha populada na coluna -2 (2 linhas) Att

Estou enviando a planilha para facilitar a esclarecer minha dúvida !! RELATÓRIO DE TELEMARKETING.xlsx

Muito obrigado pessoal, o "cabaço" aqui estava fazendo somente testes e não apliquei em um botão e fiz merda. Esta funcionando perfeitament...

Testando seu modelo, funcionou perfeitamente com a rotina que o Reinaldo adaptou, a única alteração que fiz foi trocar : P1048576 por P65536 devido ao...

Reinaldo bom dia, O vba entra em loop "infinito", acredito que seja porque estamos adicionando +1: Lin = Range("P1048576").End(x...