Boa noite!!

Monte um arquivo modelo compactado, cheio de detalhes.

Faça um exemplo forma que tenha o resultado manualmente.

Att

BOM DIA

Tenho Razão de um fornecedor eu queria um código em VBA Que se baseando no numero da NF fizesse uma subtração do valor da NF menos às parcelas pagas e se o resultado for igual a 0 excluísse as linhas referentes a esta Nota Fiscal.

Por Favor, se alguém puder me ajudar eu Agradeço.

SEGUE UM EXEMPLO DA MINHA PLANILHA EM ANEXO.

o anexo sumiu por isso estou postando novamente

Por favor se alguem puder me ajudar.

Obrigado

Onde está a planilha???

Postei a planilha novamente na segunda mensagem já que ela desapareceu do tópico original.
Tentei editar mas não consegui. Se não conseguirem visualizar ou se eu estiver fazendo alguma coisa errada, favor me avisar.
Obrigado

guma,

Seu arquivo precisa ser compactado antes de enviar aqui no fórum. Não consegui abrir seu arquivio.

Bom Dia

Segue arquivo Compactado.

Obrigado pela atenção.

Amigo,

Vamos esperar que alguém mais possa te ajudar. Infelizmente, eu não consegui fazer.

BOM DIA

Já postei a seguinte duvida no fórum, mas ninguém conseguiu me ajudar.

Tenho Razão de um fornecedor eu queria um código em VBA Que se baseando no numero da NF fizesse uma subtração do valor da NF menos às parcelas pagas e se o resultado for igual a 0 excluísse as linhas referentes a esta Nota Fiscal.

Por Favor, se alguém puder me ajudar eu Agradeço.

SEGUE UM EXEMPLO DA MINHA PLANILHA EM ANEXO

Pesquisando e modificando alguns códigos cheguei escrevi o código a seguir mas ainda não funcionou . Alguém pode solucionar o problema???

 Sub REMOVER()
Dim ws As Worksheet
Dim r As Long
lin = 3
i = j
j = Range("A65536").End(xlUp).Row
COD = Cells(i, 2)

UltimaLinha = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1

    For r = j To 3 Step -1
    If Application.WorksheetFunction.SumIf(Range("B2:B" & j), COD, Range("D3:D" & j)) - Application.WorksheetFunction.SumIf(Range("B2:B" & j), COD, Range("E3:E" & j)) = 0 Then
    'For i = j To 3 Step -1
        Rows(r).Delete
       ' If .Cells(i, 2) = r Then
   
    Else
    
 End If
 i = i - 1
 'Next i
 'End If
 Next r
End Sub

Guma,

Como você mesmo está dizendo, procure manter o foco nos tópicos já abertos, evite abrir novos tópicos referentes ao mesmo assunto, juntei os tópicos para mantermos este controle.

Já postei a seguinte duvida no fórum, mas ninguém conseguiu me ajudar.

Procure ter sempre em mente que toda a ajuda nos Foruns são voluntárias e gratuitas e depende muito do tempo e disponibilidade de cada um, por isso temos de ter paciência, ta certo que as vezes acabamos ficando sem respostas, mas não justifica utilizarmos termos tipo o "ninguem conseguiu me ajudar", tanto que chegou a ter alguma ajuda, o que não obteve ainda é uma solução satisfatória, sendo assim, peço a gentileza de ter um pouco mais de pacinencia que com certeza terá sua resposta, mesmo que seja para dizerem que não é possivel o que deseja.

[]s

Com base no demonstrado, modifiquei algumas coisas. O código se encontra na planilha.

Em resumo, ele copia a planilha com a qual você vai trabalhar (só para não perder rastreabilidade), executa o SomaSE antes de excluir as linhas, exclui o que tiver sido somado como 0 e boa.

Alminen obrigado era isso mesmo que eu precisava.

Mauro, Me desculpa a expressão, não foi minha intenção ser mau agradecido.
já consegui solucionar muitas das minhas dúvidas aqui no fórum e acho muito bacana o fato e vocês dividirem seus conhecimentos sem cobrar nada por isso.
Estou começando agora a mexer com VBA, mas espero logo logo poder colaborar mais com o pessoal aqui do fórum.

Se Alguém souber de um bom livro ou um curso, de preferência on-line, pois não tenho disponibilidade de horário eu também agradeço.

Att.

Guma, nçao me entenda mal, veja que praticamente no mesmo momento que juntei os tópicos você já obteve uma resposta favoravel, quando se em varios tópicos abertos referentes ao mesmo assunto, acabamos nos perdendo e acontece de nenhm deles ficarem com uma resposta positiva.

[]s

camera hanh trinh camera hành trìnhphim cach nhiet[url= http://otopro.net/ ] nội thất ô tôtin tuc 24hcamera hanh trinh camera hành trình độ đèn bi-xenon phim cach nhietdo choi xe oto

OtoPro.net chuyên bán buôn, bán lẻ đồ chơi ô tô và lắp đặt nội thất ô tô.

Địa chỉ: 291 Nguyễn Xiển - Thanh Xuân - Hà Nội
Website: http://ledtechvn.com & http://otopro.net
Facebook:
http://www.facebook.com/dochoiotopro (Đồ chơi ô tô OtoPro)
http://www.facebook.com/dodenxeoto (Độ đèn xe ô tô LEDTECH)

Điện thoại: 042.213.0595 Hotline: 098.276.1221