Apagar valores de uma coluna de células com valores específicos-VBA - Microsoft Office - Clube do Hardware
Apagar valores de uma coluna de células com valores específicos-VBA
Excel RESOLVIDO Apagar valores de uma coluna de células com valores específicos-VBA
Por Boeing25, 16 de maio de 2019 em Microsoft Office
Boeing25 0
Pessoal, por gentileza, estou com muita dificuldade em desenvolver uma solução para o meu caso:
Eu tenho uma planilha onde na coluna L, na coluna W e na coluna AH, eu posto "Siglas", dentre elas, há uma variação para diferencia-las como: 1VAH (sendo: Item A) e 2VAH (sendo: Item B).
Minha necessidade começa quando eu tento criar algum código que rastreie essas três colunas (L,W e AH) e apague apenas os conteúdos das células que comecem com o número 2 (2PI por exemplo),
Nesse momento, eu tenho essa solução, mas ela funciona para apenas umas célula e com valor específico.
Por gentileza, alguém poderia me dar uma força! Muito obrigado!
Dim lngRow As Long, COL As Long
Set mwksDados = ThisWorkbook.Worksheets("Plan1")
For COL = 12 To 50
For lngRow = 12 To .Cells(.Rows.Count, COL).End(xlUp).Row
If .Cells(lngRow, COL).Value = "2vah" Then
.Cells(lngRow, COL).Value = ""
osvaldomp 1.581
Sub ApagaIniciadasCom2()
For i = 12 To 34 Step 11
.[A1:AR1].AutoFilter i, "2*"
.Range(.Cells(2, i), .Cells(Rows.Count, i).End(3)).Value = ""
1. considerei que ao rodar o código a planilha ativa será a planilha de interesse
2. considerei que a planilha contém cabeçalhos de A1 até AR1, altere se necessário
Boeing25
@osvaldomp Obrigado pelo auxílio, Osvaldo! No entanto, após testes, eu percebi que o código acima está apagando tanto as células que comecem com o número 2 como também as que começam com 1. Vendo isso, eu refinei os testes e decidi escrever aleatoriamente nas colunas em questão e ao rodar o código, ele continua apagando todas as células. Você saberia me dizer o motivo? Muito obrigado!
Por favor disponibilize uma amostra do seu arquivo Excel com o código instalado.
Coloque na planilha algumas linhas com dados (10 linhas no máximo) e pinte as células que você deseja que sejam apagadas, com base no critério que você estabeleceu, ou seja, cujo caractere inicial seja o número 2.
obs. arquivos com macros (.xlsm) precisam ser compactados antes de serem anexados aqui no fórum.
@osvaldomp Agradeço pela disponibilidade, Osvaldo. No entanto, por ora, eu improvisei a solução com o mesmo código que postei, só que "rodando um IF" para cada valor possível que possa aparecer na tabela. Não era o que eu esperava, mas me atendeu bem. Agradeço novamente o esforço e a ajuda com o seu código! Abraço!