Boa tarde Diogo,

Esse seu Do While me parece errado, o AA4 me parece que sempre vai ficar menor que o V4.

Coloque uma planilha de exemplo, assim fica mais fácil ajudar.

OBS: Tem boas aulas no Youtube sobre rotinas de repetição: https://www.youtube.com/results?search_ ... C3%A3o+vba

Diogo Lian,

Boa tarde!

Sem ver sua planilha e entender o que ela faz fica meio difícil... mas vou tentar fazer algumas suposições.

Primeiramente, você deve verificar uma coluna que tenha dados em todas as linhas da sua planilha e descobrir qual é a última linha com dados dessa coluna. Supondo que essa coluna seja a coluna A de uma aba chamada Plan1, teríamos o seguinte código para descobrir qual é a última linha com dados:

    Dim i As Long
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row

Descoberta a última linha com dados, agora você faz um laço FOR/NEXT e coloca o seu código dentro dele, substituindo, obviamente, aonde tiver números que se referem aos n[úmeros da linha pelo contador "i". Supondo que os dados começam na linha 2, mais ou menos assim:

For i = 2 to UltimaLinha
     'Aqui começa o seu código
Next

obrigado pela atenção , mas sei muito pouco de VBA , como faço pra anexar minha planilha aqui ?

Fiz um vídeo também tenatndo explicar o que preciso fazer na minha Planilha , deixei os dados exatamente nas células que uso na outra planilha , fiz essa pra ficar mais leve sem os outros dados já que não importam muito para essa parte , gostaria de saber também como postar a Planilha no tópico , obrigado .

https://www.youtube.com/watch?v=QsHbLC7hw0o

Diogo Lian,

Bom dia!

Primeiramente, você compacta seu arquivo com . ZIP.

Abaixo da caixa de mensagem onde você digita tem duas abas (Opções e Adicionar um anexo). Clique em Adicionar um anexo. Depois clique no botão Selecionar arquivo que surgiu no passo anterior. Aparecerá a caixa de abertura de arquivos do Windows. Escolha o arquivo e feche a caixa. O nome do seu arquivo agora aparece no campo Nome do arquivo. Clique no botão Adicionar um anexo e depois no botão Enviar (para enviar a mensagem com o arquivo anexo).

Diogo Lian,

Boa tarde!

Sem ver sua planilha e entender o que ela faz fica meio difícil... mas vou tentar fazer algumas suposições.

Primeiramente, você deve verificar uma coluna que tenha dados em todas as linhas da sua planilha e descobrir qual é a última linha com dados dessa coluna. Supondo que essa coluna seja a coluna A de uma aba chamada Plan1, teríamos o seguinte código para descobrir qual é a última linha com dados:

    Dim i As Long
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row

Descoberta a última linha com dados, agora você faz um laço FOR/NEXT e coloca o seu código dentro dele, substituindo, obviamente, aonde tiver números que se referem aos n[úmeros da linha pelo contador "i". Supondo que os dados começam na linha 2, mais ou menos assim:

For i = 2 to UltimaLinha
     'Aqui começa o seu código
Next

Amigo, siga estes passos do Wag, que o código será feito para todos. Mas pelo que entendi, faltou ficar desta maneira o cálculo:

    Do While AA4 < V4
        Range(Valor_Vender).Value = Range(Valor_Vender).Value + Aumentar
        
    Loop

Pois o Excel reconhece as células AA4, V4, W4 na propriedade Range, a propriedade Cells deriva de Linhas e Colunas, como por exemplo: Cells(4,23) (Corresponde a W4)

Faça o teste utilizando as rotinas que o Wag passou para que sejam executadas em todas as linhas, e faça desta maneira para ver se funciona.

Para facilitar, já que você declarou uma variavel chamada Linha, mude ela para Integer, e tente o seguinte:

Linha = 1    'Ou 2, ou 3, ou 4..., depende se você utilizou um cabeçalho na sua planilha ou não
Do Until Cells(Linha,27) <> "" 'identifica se existe dado na linha ou não, verificando a célula da linha correspondente e da coluna AA4. (Pode-se alterar o 27 para qualquer outra coluna que quiser)
    Do While AA4 < V4

        Range(Valor_Vender).Value = Range(Valor_Vender).Value + Aumentar
        
    Loop

    Linha = Linha + 1 'Passa para a próxima linha

Loop

Olá adicionei a Planilha com a formatação que estou usando , ela também é a mesma do vídeo que postei , desculpem o vídeo muito longo , obrigado .

Vídeo ---> https://www.youtube.com/watch?v=QsHbLC7hw0o

Amigo, baixei a planilha aqui, mas não entendi muito bem a lógica dela...
Tem alguns cálculos lá, que ao meu ver estão errados (na parte lógica eu digo, e não na execução).

Têm como você explicar, sem ser pelo excel, o que você quer?

Se você quer calcular o desconto, se quer calcular o valor final do produto com os juros, se quer calcular o custo, o que seria que vc quer calcular, pois ao meu ver, não faz sentido fazer o que você jogou na programação ali, e as formulas que você esta usando.

A macro que passei funciona para o que você pediu, mas acho que não vai dar o valor que você quer.

Amigo, o que coloquei em code, foi antes de ver o começo do video.
Um video muito extenso, não tenho tempo agora de ver ele inteiro, mas pelo que entendi, é calculo simples de margem de lucro (neste caso, taxas a ser inseridas no valor final do cliente).

Ao invés de multiplicar por (1+0,11) o valor do produto, que daria o valor + 11%, faça o valor do produto DIVIDIDO POR (1-0,11) (divida por 1 menos 11% o valor do produto), que você terá o que quer.

Ou seja, não precisará "atingir meta".

Isto é calculo de contabilidade, e como disse meu professor de contabilidade da pós, o calculo errado de margem de lucro, já faliu muita empresa.

Enfim, no exemplo dos 10 reais que você disse, faça:

(10/(1-0,11))

terá como resultado: 11,236

Se você tirar 11% deste valor, voltará para os 10 reais.

mas pelo que entendi, é calculo simples de margem de lucro (neste caso, taxas a ser inseridas no valor final do cliente).
Ao invés de multiplicar por (1+0,11) o valor do produto, que daria o valor + 11%, faça o valor do produto DIVIDIDO POR (1-0,11) (divida por 1 menos 11% o valor do produto), que você terá o que quer.
Ou seja, não precisará "atingir meta".
Isto é calculo de contabilidade, e como disse meu professor de contabilidade da pós, o calculo errado de margem de lucro, já faliu muita empresa.
Enfim, no exemplo dos 10 reais que você disse, faça:
(10/(1-0,11)) 
terá como resultado: 11,236
Se você tirar 11% deste valor, voltará para os 10 reais.

Muitíssimo obrigado Felipe , resolveu meu problema sem usar VBA , com uma fórmula bem enxuta , na Planilha usei a Fórmula " =V4/(1-W2) " e ficou tudo beleza , agora a planilha me dá o valor que devo vender e quando for descontar a porcentagem do site eu recebo o valor de R$ 10,00 como queria , já que para receber esse valor depois do desconto precisarei vender por R$ 11,24 com desconto de 11% .

Obrigado .

Obrigado a todos pela Ajuda e Atenção .

mas pelo que entendi, é calculo simples de margem de lucro (neste caso, taxas a ser inseridas no valor final do cliente).
Ao invés de multiplicar por (1+0,11) o valor do produto, que daria o valor + 11%, faça o valor do produto DIVIDIDO POR (1-0,11) (divida por 1 menos 11% o valor do produto), que você terá o que quer.
Ou seja, não precisará "atingir meta".
Isto é calculo de contabilidade, e como disse meu professor de contabilidade da pós, o calculo errado de margem de lucro, já faliu muita empresa.
Enfim, no exemplo dos 10 reais que você disse, faça:
(10/(1-0,11)) 
terá como resultado: 11,236
Se você tirar 11% deste valor, voltará para os 10 reais.

Muitíssimo obrigado Felipe , resolveu meu problema sem usar VBA , com uma fórmula bem enxuta , na Planilha usei a Fórmula " =V4/(1-W2) " e ficou tudo beleza , agora a planilha me dá o valor que devo vender e quando for descontar a porcentagem do site eu recebo o valor de R$ 10,00 como queria , já que para receber esse valor depois do desconto precisarei vender por R$ 11,24 com desconto de 11% .

Obrigado .

Que bom que resolveu fácil Diogo!
Fique à vontade de perguntar sempre! hahahaha
Grande abraço.