Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''object variable or with block variable not set''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 1 registro

  1. Olá ! Sou leigo em programação e estou engatinhando em VBA por conta própria fazem alguns dias Criei um código para a partir de uma lista de caracteres especiais relacionados na coluna A na sheet "Base Caracteres", encontrá-los e marcá-los na sheet "Base Validação". Apesar de possivelmente o código não ser o mais enxuto ou mais adequado, ele funciona corretamente até que não encontre um dos caracteres pesquisados, dando o erro run-time 91. Já tentei usar a função On Error GoTo, que deu certo no primeiro Loop, porém a partir do segundo caracter não encontrado, não funciona mais. Tentei a função If Not "Variável" is Nothing Then, porém não consegui fazer funcionar. Gostaria muito da valiosa ajuda de vocês para fazer com que o código escrito funcione, e dessa forma poderei entendê-lo e posteriormente aprimorá-lo. Segue o código:- Sub Macro1() 'Declara Variáveis Dim W1 As Worksheet Dim W2 As Worksheet Dim P As Long Dim S As String Dim V As String Dim L As String 'Inicializa variáveis Set W1 = Sheets("Base Validação") Set W2 = Sheets("Base Caracteres") L = 1 V = W2.Range("A" & L).Value 'Inicia rotina de Loop que buscará o valor (S) a ser procurado Do While V <> "" S = W2.Range("A" & L).Value W1.Select Range("A2").Select 'Inicia a busca do valor adicionado à variável S em toda a Sheet "Base Validação" Cells.Find(What:=S, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate 'Muda a cor da célula onde o valor foi encontrado With ActiveCell.Font .Color = 255 .Bold = True End With 'Muda a cor da linha onde o valor foi encontrado With ActiveCell.EntireRow.Interior .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With 'Inicia a variável "P" com o valor da célula ativa (será usada como marcação) P = ActiveCell.Row 'Inicia o Loop da rotina Find Next Do Cells.FindNext(After:=ActiveCell).Activate 'Muda a cor da célula onde o valor foi encontrado With ActiveCell.Font .Color = 255 .Bold = True End With 'Muda a cor da linha onde o valor foi encontrado With ActiveCell.EntireRow.Interior .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With 'Realiza o Loop de forma a continuar procurando "S" em todas as células enquanto a célula ativa for maior que P Loop While ActiveCell.Row > P 'Atualiza a variável L em 1 para avançar para a próxima linha da sheet "Base Caracter" e carregar o novo valor de "S" L = L + 1 Loop End Sub
×
×
  • Criar Novo...