Duvidas Apagar Conteudo VBA - Macro - Excel

Sub LimpaK()

Dim LR As Long, c As Range

LR = Cells(Rows.Count, 1).End(3).Row

For Each c In Range("A1:A" & LR)

  Select Case Left(c, 1)

   Case "F", "L", "M"

   c.Offset(, 10) = ""

  End Select

Next c

End Sub

NayraJH disse:

Boa tarde,
Será que alguém poderia me dá uma ajuda por favor?

Eu tenho uma planilha que vai da coluna A à M.
Na coluna A aparecem alguns números. Ex:

A
602449
701167
F000297
FX00266
L800012
MX00067
O que eu gostaria é que quando aparecem na coluna A itens iniciados com F, L e M fosse automaticamente limpado o conteudo das mesmas na coluna K.
Eu não gostaria que fosse excluido a linha não, mas sim que só fosse limpado o conteúdo da coluna K.
Os outros itens como o 302449 o que surgir na coluna K permanece.
Obs: Essa planilha é gerada todos os dias, e em seguida atualizada. Ou seja, hoje o F pode aparecer na A1 por exemplo mas amanhã pode aparecer na B1. Por isso eu preciso que seje localizado para depois ser limpo o conteudo.
Estou enviando a imagem da planilhar em anexo.
Deu pra entender o que preciso?

Alguém poderia me ajudar por favor?

NayraJH disse:

1) Gostaria que na coluna M (Buyer) se aparecer #N/D esse conteúdo dessa linha (Ex linha 2) na coluna (M) seja apagado e fique vazio (a linha não pode ser deletada), de #N/D passaria para vazio. Caso apareça uma outra palavra como CASA por exemplo o conteúdo permanece o mesmo, ou seja na coluna M continuará escrito CASA.
2)Toda vez que na coluna K aparecer o número 199910 as linhas sejam excluídas.
3)Toda vez apagar ou excluir a ultima linha que sempre se chamará Total Geral e as linhas abaixo dela também.

Sub ExcLinLimpaCél()

Dim k As Long, c As Long, LR As Long, TG As Long

LR = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

Application.ScreenUpdating = False

With ActiveSheet

  TG = .Cells(Rows.Count, 1).End(3).Row

  .Range(.Cells(TG, 1), .Cells(LR, 13)) = ""

  On Error GoTo errH

  .Range("A1:M" & TG - 1).AutoFilter Field:=13, Criteria1:="#N/D"

  .Range("M2:M" & TG - 1).SpecialCells(xlCellTypeVisible).Value = ""

  .Range("A1:M" & TG - 1).AutoFilter

  .Range("A1:M" & TG - 1).AutoFilter Field:=11, Criteria1:=199910

  .Range("A2:M" & TG - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete

errH:

  .Range("A1:M" & TG - 1).AutoFilter

End With

Application.ScreenUpdating = True

End Sub

NayraJH disse:

Sabe o que posso fazer?