Macro para apagar celulas

ljrbrasil · 7 de dezembro de 2011

Pessoal tenho na coluna A a matricula do funcionário e na B o nome do funcionário gostaria de quando deleta-se o nome do funcionário na B automaticamente apaga-se a matricula e possível com macro?

alguém pode me ajudar nesta?

zinhovba · 7 de dezembro de 2011

Bom dia!!!

Seria algo assim...

Sub ZinhoLimpar()

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Dim cell As Range
  For Each cell In Application.Intersect(ActiveSheet.Range("A:A"), _
         ActiveSheet.UsedRange)
    If Trim(cell.Value) = "" Then
        ActiveSheet.Range(cell, cell.Offset(0, 1)).ClearContents
    End If
  Next
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
End Sub

ljrbrasil · 7 de dezembro de 2011

Bom dia!

zinhovba

Não entendi bem o codigo mas a ideia é quando deletar a informação na celula B1 automaticamente apague na A1

7 de dezembro de 2011

cole o código no módulo da planilha, assim:

clique com o direito na guia da planilha > Exibir código > cole na janela em branco que se abrirá

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
        If Target.Column <> 2 Then Exit Sub
    If Target.Value = "" Then Target.Offset(, -1) = ""
End Sub

zinhovba · 7 de dezembro de 2011

Boa noite!!!

Me desculpa fiz uma inversão (além de não está automático), mas de qualquer forma a forma que o osvaldo fez é melhor...

Att...

ljrbrasil · 8 de dezembro de 2011

Pessoal

Pera que estou meio confuso desculpe.

osvaldomp

Você passou o seu código e gostaria que você explica-se melhor o certo então seria entra no Visual Basic (alt+F11) vou em inserir / modulo e colo seu código. seria isto.

este processo roda em todas as células das colunas A e B?

agradeço desde já pela ajuda

osvaldomp

consegui entender aqui o nosso amigo Mourense também de uma ajuda.

de qualquer forma muito obrigado pela força.