Ir ao conteúdo

Erro ao executar código no excel.


AlysonR

Posts recomendados

Postado

Boa noite... Eu fiz uma planilha pora agilizar o meu trabalho ela recebe um arquivo importado TXT e este arquivo serve para verificar todos os materials que estarão disponivels. Problema depois que feito todos os código para apagar as linhas ele começou a apresentar um problema :muro: e eu não tenho minima idea a causa desse problema -.-"

Código principal para apagar as linhas que eu estou usando:

Sub Deletando()

Dim LR As Long, k As Long

LR = Cells(Rows.Count, "A").End(xlUp).Row

For k = 1 To LR

If Cells(k, "A").Value = "___________" Then

Cells(k, "A").Select

Selection.EntireRow.Delete

End If

Next k

End Sub

Anexo: Arquivo

Postado
Sub Deletando()
Dim LR As Long, k As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For k = LR To 1 Step -1
If Cells(k, "A").Value = "___________" Then
Rows(k).Delete
End If
Next k
Application.ScreenUpdating = True
End Sub

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!