Este fórum está sendo desativado

[Domingsp]

Olá. Eu estou usando esse código para abrir um arquivo txt, PARTE1, o qual irá receber valores repetidos que se encontram numa planilha, a Plan5. Nessa planilha não posso excluir os duplicados.
O que preciso é fazer com que os valores repetidos sejam excluídos no arquivo txt e só fiquem nele os exclusivos. Qualquer ajuda é bem vinda

Código: Selecionar todos

Sub PTE1()
   Workbooks("LISTA.xlsm").Sheets("Plan5").activate 
 Ulinha =cells(Rows.Count, 27).end(xlUp).row
Open "C:\Users\Contabilidade\Documents\Loja\PARTE1. txt" for output as 1
         For m=2 to Ulinha 
                 Print #1,cells(m, 27)
         Next
   Open 1 
End sub 

[Reinaldo]

Sem testar, mas experimente:

Código: Selecionar todos

Sub PTE1()
Workbooks("LISTA.xlsm").Sheets("Plan5").Activate
Ulinha = Cells(Rows.count, 27).End(xlUp).Row
Open "C:\Users\Contabilidade\Documents\Loja\PARTE1. txt" For Output As 1
    For m = 2 To Ulinha
        If Application.WorksheetFunction.CountIf(Range(Cells(2, 27) & ":" & Cells(m, 27)), Cells(m, 27)) = 1 Then Print #1, Cells(m, 27)
    Next
Close #1
End Sub

[Domingsp]

Reinaldo, obrigado, mas deu erro 1004. O metodo range do objeto global falhou . Não deve estar aceitando cells(m,27) ou cells(2, 27)

[Reinaldo]

Altere a linha conforme abaixo

Código: Selecionar todos

        If Application.WorksheetFunction.CountIf(Range("AA2:AA" & m), Range("AA" & m)) = 1 Then Print #1, Cells(m, 27)

[Domingsp]

Olá Reinaldo. Estou adaptando sua solução para minha necessidade, estou tentando excluir duplicados com o código abaixo, mas o resultado é:
0111
7777
7777
Veja que tem um valor respetido.
No momento não consigo anexar uma planilha de exemplo. Na planilha a situação é a seguinte(desconsidere as palavras CEM e JC, são apenas codigos, o loop não inclui essas palavras) :
BH2: O111
BH3:CEM
BH4:JC
BH5:JC
BI2:-
BI3:-
BI4:CEM
BI5:JC
BJ2: -
BJ3: -
BJ4: 7777
BK2: -
BK3: -
BK4: 7777
BK5: 7777

Código: Selecionar todos

Sub PTE1()
Workbooks("LISTA.xlsm").Sheets("Plan5").Activate
Open "C:\Users\Contabilidade\Documents\Loja\PARTE1.txt" For Output As 1
        If Range("BH2") <> "-" Then Print #1, Range("BH2")
    For m = 2 To 3         ' Coluna BI
       If Cells(m, 61) <> "-" And Application.WorksheetFunction.CountIf(Range("BI2:BI" & m), Range("BI" & m)) = 1 Then Print #1, Cells(m, 61)
    Next m
    For n = 2 To 4         ' Coluna  BJ
       If Cells(n, 62) <> "-" And Application.WorksheetFunction.CountIf(Range("BJ2:BJ" & n), Range("BJ" & n)) = 1 Then Print #1, Cells(n, 62)
    Next n
    For o = 2 To 5         ' Coluna  BK
       If Cells(o, 63) <> "-" And Application.WorksheetFunction.CountIf(Range("BK2:BK" & o), Range("BK" & o)) = 1 Then Print #1, Cells(o, 63)
    Next o
Close #1
End Sub

[Domingsp]

Só explicando os hífens: os valores numéricos são resultados de fórmulas. Quando não existe condição para o resultado a formula exibe um hífen.