francorp, segue a rotina com a alteração, o que acontecia é que estava copiando os dados no inicio da rotina e quando adiciona nova linha na aba Histó...

Silviag123, acrescente na rotina a instrução : xlDescending - Do Menor para o Maior, ou xlAscending - Do Maior para o Menor Private Sub Worksheet_Ch...

valzito, esse link está quebrado, só tem um atalho. A dica do Reinaldo funciona, mas vai depender de como voce está carregando, se é imagem de algum ...

francorp, teria como disponibilizar um exemplo resumido com dados ficticios se for o caso, fica mais fácil analisar, uma vez que está utilizando Filtr...

Laerte, Só mais uma observação, como se trata de um Forum de ajuda voluntária onde dependemos de tempo livre para respondermos, nem sempre conseguimos...

Boa tarde, Mauro Coutinho Nossa um vacilo meu, não me atentei a este detalhe... outra coisa desculpe ter respondido é que estava olhando este Tópico...

LaerteB, eu entendi o que quiz dizer, mas só para esclarecer, o Evento "UserForm_QueryClose" pode ser utilizado em qualquer UserForm, não é ...

Tente assim newrow.Range(1).PasteSpecial Paste:=xlPasteValues

valzito, utilize no Evento "UserForm_QueryClose" do UserForm: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim ...

vonzuben, como eu disse, quando vamos por suposição fica dificil dar uma resposta precisa, eu só indiquei uma forma de fazer um Array pelos nomes das ...

vonzuben, quando formular suas duvidas procure colocar mais detalhes para que possamos dar uma resposta mais precisa e não ficarmos por suposição, e o...

Wagner, se entendi você quer add Macros / Procedimentos em outro arquivo, se não for isso é só dizer. Eu não sei se tem como add nos Eventos, eu já f...

willianrc, eu estava sem tempo, não cheguei a baixar seu exemplo, mas ainda bem que temos mais membros dispostos a ajudar e resolveu. Farah, o bom do...

Poste como voce montou a sua rotina, porque a que o colega Farah passou funciona perfeitamente com um nome digitado em D2, e com a mensagem de erro qu...

Silviag123, veja se é isso o que quer : Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Inters...