Boa tarde s4ever Seja bem-vindo ao fórum! Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo: viewto...

Prefiro utilizar conforme abaixo: Private Sub CommandButton1_Click() Dim objPlanilha As Worksheet Dim i As Integer i = 1 For...

O velho amigo DJunqueira esta aqui ajudando, grande cara, parabéns pela ajuda meu amigo. Nossa esta planilha que vc me passou, conhecimento profundo, ...

Minha nossa, tão fácil assim e eu quebrando a cabeça com várias formas e fórmulas encontradas na net. Muito obrigado Reinaldo e colegas do fórum, apr...

Estranho que não tenha encontrado, só aqui no fórum há inúmeros de post's sobre essa "ocorrência" experimente: enumeraid ActiveCell...

Conforme abaixo, funcionou sem problemas Sub MAIS_VENDIDOS_MENOS_VENDIDOS() ' Pocisionar Produto no Ranking Dim Produto As String, Venda As String D...

Vc já respondeu no outro fórum, que utiliza a função de obtenção de dados externos / nova consulta (query). Contudo creio,para o que pretende utiliza ...

Sem olhar toda a rotina, mas na linha do erro " Range("D:H" & x).Copy 'Copia o intervalo", falta a referencia a linha da colun...

E possivel ser feito no Excel, via sql/ conexão com o banco; porem precisa passas maiores detalhes

As duas fazem a mesma "coisa", se estão certas ou não ....

E o seu que deu os erros reportados. qual o retorno esperado?

No inicio do topico vc disse que a rotina estava funcionando, então não me atentei a detalhes, agora com seu modelo algumas duvidas/erros Erros: Rotin...

Talvez assim: Sub MAIS_VENDIDOS_MENOS_VENDIDOS() ' Pocisionar Produto no Ranking Dim Produto As String, Venda As String Dim Cont As Long, x as integ...