Bom dia!
Solicito ajuda para melhora na macro do arquivo anexo.
Quando seleciono o campo CATFIM (coluna "B" da planilha CADASTRO) a macro executa busca da DESCRICAO na planilha CID.
Entretanto ela faz a busca de todos os dados inseridos na coluna "B", preciso que ela faça apenas da célula que foi preenchida/alterada.
Na limpeza da célula ocorre o seguinte: se eu deletar o conteúdo de qualquer célula da coluna "B" ele limpa todos os campos seguintes da coluna "C", preciso que limpe apenas da célula lateral direita da coluna "C"
Muito obrigado!
MANUEL LOBATO
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Evento Worksheet.Change (Excel)
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Mai 29, 2017 8:27 am
Re: Evento Worksheet.Change (Excel)
Bom dia!
Veja este código atende:
Veja este código atende:
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("A:A").EntireColumn.AutoFit Else Range("A:A").EntireColumn.AutoFit End If If Target.Column = 2 Then If Cells(Target.Row, 2).Value <> "" Then Cells(Target.Row, 3).Value = WorksheetFunction.VLookup(Target.Value, Sheets("CID").[A1].CurrentRegion, 2, 0) Else Cells(Target.Row, 3).Value = "" End If End If End SubAbraço
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Mai 29, 2017 8:27 am