Notifications
Clear all

Apagar conteúdo da célula.

6 Posts
2 Usuários
0 Reactions
1,571 Visualizações
(@heber)
Posts: 20
Eminent Member
Topic starter
 

Bom dia pessoal,

Gostaria de mais uma ajuda dos colegas do Fórum. Gostaria de incluir um código VBA, onde numa Planilha do Excel, temos as colunas A, B e C. Gostaria de apagar o conteúdo da célula que consta na coluna C de acordo com os critérios escolhido nas colunas A e B. Obs. Obedecendo as informações que constam na mesma linha.

EX.
col A Col B Col C
Linha 1 casa ap 222
Linha 2 casa sp 222
Linha 3 com mg 333
Linha 4 casa ap 222

Os critérios escolhido nas colunas A é "casa' e na Coluna B é "ap". Então com esse critério deletaria as informações nas Cél: Linha 1 Col C e Linha 4 Col. C

Desde já, agradeço da possível ajuda.

 
Postado : 26/06/2014 8:56 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tem que ser macro?
pq vc não filtra pelas duas colunas e remove as linhas visiveis do resultado ?

FF

 
Postado : 26/06/2014 9:04 am
(@heber)
Posts: 20
Eminent Member
Topic starter
 

Fernando,
Sim, pois tem outros processos, onde vai ser incluindo esse novo código.

Obrigado.

 
Postado : 26/06/2014 10:23 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Disponibiliza um modelo por favor, devidamente compactado de acordo com as regras do forum.
Daí eu vejo o que consigo fazer direto no arquivo...

FF

 
Postado : 26/06/2014 10:42 am
(@heber)
Posts: 20
Eminent Member
Topic starter
 

Fernando, segue em anexo conforme solicitado.

Obrigado.

 
Postado : 26/06/2014 11:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 
Option Explicit

Sub ApagarColunaC()
Dim wsh As Excel.Worksheet
Dim UL  As Long 'ultima linha
Dim cnt As Long 'contador
    
    Set wsh = ThisWorkbook.Worksheets("Plan1")
    With wsh
        UL = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        For cnt = 1 To UL
            If UCase(.Range("A" & cnt).Value) = "COM" And UCase(.Range("B" & cnt).Value) = "CENTRO OESTE" Then
                .Range("C" & cnt).Value = vbNullString
            End If
        Next cnt
        
        Set wsh = Nothing
    End With
    
End Sub

Segue o código.

Heber, próxima vez, compacte o anexo conforme as regras do site e conforme solicitado.
Segue modelo compactado coma solução em VBA.

Não inseri botão, para visualizar o código, use Alt+F11 para abrir o VBE e F5 para rodar!

 
Postado : 26/06/2014 12:19 pm