Denis Martins

Boa Tarde Marcio Anderson, Tente o seguinte: Crie uma nova variável para a contagem das linhas linha = 2 nliha = linha+1 contato = Cells(nlinha, 2).Value msg = Cells(nlinha, 3).Value arquivo = Cells(nlinha, 4).Value Ou inicio = 2 contaLinha = 1 linha = inicio + contaLinha contato = Cells(linha, 2).Value msg = Cells(linha, 3).Value arquivo = Cells(nlinha, 4).Value Teste das 2 formas.... Se ainda sim não der certo, na condição do loop use linha = linha + 1 ' para pular linha Segue um codigo onde esse recurso é usado.... < Sub IsInserirItem() Range("AO1:AT4").Copy inicio = 15 contaLinha = 1 'Esta variavel irá servir para pular de linha Linha = inicio + contaLinha verificaCel = Range("B" & Linha).Value 'Variável para gravar o conteúdo da célula Do While verificaCel <> "" 'Faça enquanto conteudo da celula diferente de vazio '... Linha = Linha + 1 'soma ela mesma, pula para próxima linha verificaCel = Range("B" & Linha).Value 'verifica novo conteudo Loop 'volta para o while If verificaCel = "" Then Range("A" & Linha).PasteSpecial Range("A" & Linha).Select Application.CutCopyMode = False 'Worksheets("ORÇAMENTO").Range("A" & Linha).Select Call Macro End Sub >

Boa Tarde Pessoal !!!, Sou iniciante em VBA e estou em meio a um projeto de sistema de orçamentos no Excel. Gostaria de somar todas as celulas que estão ao lado (Na mesma linha que...) de onde estiver escrito exatamente: "VALOR TOTAL DO ITEM:" Foi a unica maneira que consegui pensar para verificar onde está este resultado que já é o produto da soma de outros items, pois a localização das linhas não serão fixas. "VALOR TOTAL DO ITEM:" - Estará localizado na coluna D O Resultado da soma - Estará localizado na coluna E ("AQUI") Para melhor entendimento irei disponibilizar imagens de uma planilha simplificada do meu projeto. Caso alguém encontre outra forma de localizar exatamente onde estão esses itens, estou aberto a opções. Desde Já Grato!