Notifications
Clear all

Apagar conteúdo da célula.

6 Posts
2 Usuários
0 Reactions
1,599 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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
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
Fernando Fernandes
(@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!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/06/2014 12:19 pm