Este fórum está sendo desativado

[Dihego]

Boa Tarde

Preciso de ajuda para esta planilha em anexo. Queria uma macro para apagar as linhas B6:I43, somentes os que estão de verde.

[osvaldomp]

Código: Selecionar todos

Sub LimpaOrdenaCélulas()
 Application.ScreenUpdating = False
  ActiveSheet.AutoFilterMode = False
   Range("B5:K5").AutoFilter 8, "OK"
   Range("B6:K" & Cells(Rows.Count, 9).End(3).Row).Value = ""
  ActiveSheet.AutoFilterMode = False
  If Application.CountA([B6:B48]) > 0 Then
   Range("B6:K" & Cells(Rows.Count, 2).End(3).Row).Sort Key1:=[B6], Order1:=xlAscending
  End If
 Application.ScreenUpdating = True
End Sub

obs.
1.antes de rodar o código desfaça as mesclagens de células da planilha
2. sugestão - nunca mais na sua vida volte a mesclar células, pois células mescladas são desnecessárias, são inúteis e podem provocar erros em fórmulas e em macros

[alexandrevba]

Bom dia!!

Olá Diego, favor tirar um tempo e ler as regras do fórum!!
viewtopic.php?f=5&t=4

Regra nº 2B:
Não utilize textos como "AJUDA", "HELP", "DÚVIDA", "URGENTE" ou similares nos títulos. O título deve ser condizente com o conteúdo da sua pergunta.

Att