Anexo

Seria algo mais ou menos assim: sub teste ( ) dim coluna as integer dim achou as boolean achou=false 'Percorrer as colunas da linha 2 for coluna = ...

Anexos

Coloque o arquivo na nuvem e compartilhe o link. Dê mais detalhes.

Vamos esclarecer: ws = WorkSheet = Guia / Planilha wb = WorkBook = Arquivo do Excel / Pasta de Trabalho Você não fez a declaração das WorkBooks: D...

..............

Option Explicit Sub RemoverDuplosAcima() Dim x As Long Dim LastRow As Long Dim linha As Long ThisWorkbook.Worksheets("Plan2...

Nesta linha você já tem o arquivo: [url] Arquivo = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt") [/url] Depois desta linh...

Envie o código que está utilizando ou o arquivo de Excel completo.

Sub DeletDuplicate() Dim x As Long Dim LastRow As Long ThisWorkbook.Worksheets("Plan2").Activate inicio:...

O tópico a seguir contém exatamente a mesma dúvida: http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=26476&p...

Pode ser em relação a usuário administrador e usuário padrão.

Sub Contador() Dim NUMEROREGISTROS As Long NUMEROREGISTROS = Range("A65536").End(xlUp).Row 'MsgBox "Número de Registros:...

O tópico a seguir é semelhante ao seu: http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=28067 Creio que a part...

Option Explicit Sub teste() Dim linha As Long Dim coluna As Long For linha = 6 To 20 For coluna = 3 To 20 ...