Este fórum está sendo desativado

[manilha]

srs boa tarde, como, no intervalo B3:K18, ao clicar 2x em uma célula vazia aparecer a palavra "aprovado".

preciso fechar o 2º bimestre aqui na escola e gostaria de agilizar o trabalho.

[AndersonLeal]

Olá,

Vá no editor do Visual Basic (Alt + F11) e insira o código abaixo no módulo da planilha:

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 2 And Target.Row < 18 And _
    Target.Column > 1 And Target.Column < 12 Then
     ActiveCell.Value = "Aprovado"
End If
End Sub

Abraço!

[manilha]

Valeu Anderson ajudou em mais uma, obrigado.