julioesf

Tenho uma planilha de controle de datas de fechamento, a coluna 1 e 2 são codigo e nome da empresa, da 3 em diante são os meses nas impares e as pares tem a data, então quando declaro janeiro como fechado, a coluna 4 automaticamente assume as data atual, quando declaro fevereiro como fechado na coluna 5 a 6 assume a data do fechamento, e assim por diante. As colunas pares tem um ComboBox com as opções aberto e fechado. Gostaria de travar as celulas que são preenchidas com a data do fechamento logo após que esta seja preenchida. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And IsEmpty(Cells(Target.Row, 4)) Then Cells(Target.Row, 4) = Date End If If Target.Column = 5 And IsEmpty(Cells(Target.Row, 6)) Then Cells(Target.Row, 6) = Date End If If Target.Column = 7 And IsEmpty(Cells(Target.Row, 8)) Then Cells(Target.Row, 8) = Date End If If Target.Column = 9 And IsEmpty(Cells(Target.Row, 10)) Then Cells(Target.Row, 10) = Date End If If Target.Column = 11 And IsEmpty(Cells(Target.Row, 12)) Then Cells(Target.Row, 12) = Date End If If Target.Column = 13 And IsEmpty(Cells(Target.Row, 14)) Then Cells(Target.Row, 14) = Date End If If Target.Column = 15 And IsEmpty(Cells(Target.Row, 16)) Then Cells(Target.Row, 16) = Date End If If Target.Column = 17 And IsEmpty(Cells(Target.Row, 18)) Then Cells(Target.Row, 18) = Date End If If Target.Column = 19 And IsEmpty(Cells(Target.Row, 20)) Then Cells(Target.Row, 20) = Date End If If Target.Column = 21 And IsEmpty(Cells(Target.Row, 22)) Then Cells(Target.Row, 22) = Date End If If Target.Column = 23 And IsEmpty(Cells(Target.Row, 24)) Then Cells(Target.Row, 24) = Date End If If Target.Column = 25 And IsEmpty(Cells(Target.Row, 26)) Then Cells(Target.Row, 26) = Date End If End Sub Muito obrigado pela atenção.