Índice Corresp Apagar e Escrever em VBA

[ValterCardoso]

Tenho uma formatação condicional vinculada à seleção de célula (Em VBA). Toda vez que se clica numa célula, certo range da linha formata diferente. Funciona bem, mas após a execução da macro fico sem o recurso de desfazer.

Para fugir disso, gostaria de executar uma macro para achar um valor na planilha, apagar valores existentes em uma coluna e escrever um valor apenas na célula corresponde à linha encontrada. Desta forma consigo uma formatação condicional vinculada ao valor escrito que só vai ser alterada quando a macro for executada outra vez

O Objetivo é na Plan1 executar a macro que procura um valor da Plan1 e vai para a Plan2 e destaca a linha encontrada.

Em VBA preciso 2 ações na mesma macro:

 

1)      Apagar os valores da Plan2!K3:K250

Já tenho uma macro que faz isso:   

   Sub Apaga_Coluna_K()
     Sheets("plan2").Visible = True
     Sheets("plan2").Select
     Range("K3:K250").ClearContents
     End Sub

 

Mas  preciso acrescentar no mesmo código:

2)      Buscar o valor de Plan1!A3 em Plan2!A3:A250 e escrever o valor “1” na célula da Plan2, coluna K da linha encontrada (correspondente) em K3:K250

Equivalente a: Índice(Plan2!K3:K250;CORRESP(A3; Plan2!A3:A250;0)), mas não somente trazendo o valor da célula, e sim escrevendo nela. Dessa forma, nessa coluna haverá somente uma célula com o valor escrito, permitindo a formatação condicional somente nessa linha.

 

Agradeço qualquer orientação!