Daiane Casagrande

@Basole ok então há solução pelo que entendi, o que posso te afirmar é que meus conhecimentos ficaram restritos nas duas primeiras palavras.. sendo assim sem a ajuda de um passo a passo dificilmente vou conseguir, como não sou da área, fico na expectativa de uma boa ação pra me ajudar, se possível, claro!

Segue@Basole https://drive.google.com/open?id=1KuMXV8G6xoG7Ri0hDpvifCQ6nmOg5naD

Olá será que podem me ajudar tenho a seguinte situação: Tenho uma Banco de Dados com valores (preços dos itens) atualizados diariamente, são itens da construção civil: 1 - Ferro 8mm R$ 20,00 2 - Cimento R$ 25,00 Na data de hoje fechei o orçamento do JOÃO com esses valores, porém amanha os preços mudam para o orçamento do PEDRO. Quando atualizado o bando de dados para o orçamento do PEDRO ele também vai alterar o orçamento do JOÃO. O que me fará perder os custos reais de orçamento. O que eu quero é que após termina o Orçamento do JOÃO a planilha não atualize mais, mantendo os dados fieis ao dia que foi feita. Aguardo Obrigado. Para isso cheguei aos códigos abaixo, não sou da área, então tudo que faço e na base da pesquisa mesmo.. O problema que não consegui colocar dois códigos na Private Sub Worksheet_SelectionChange

Olá será que pode me ajudar tenho a seguinte situação: Tenho uma Banco de Dados com valores (preços dos itens) atualizados diariamente, são itens da construção civil: 1 - Ferro 8mm R$ 20,00 2 - Cimento R$ 25,00 Na data de hoje fechei o orçamento do JOÃO com esses valores, porém amanha os preços mudam para o orçamento do PEDRO. Quando atualizado o bando de dados para o orçamento do PEDRO ele também vai alterar o orçamento do JOÃO. O que me fará perder os custos reais de orçamento. O que eu quero é que após termina o Orçamento do JOÃO a planilha não atualize mais, mantendo os dados fieis ao dia que foi feita. Aguardo Obrigado. Para isso cheguei aos códigos abaixo, não sou da área, então tudo que faço e na base da pesquisa mesmo.. O problema que não consegui colocar dois códigos na Private Sub Worksheet_SelectionChange Option Explicit Private Sub TempCombo_KeyDown(ByVal _ KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) 'Ocultar caixa de combinação e mover a próxima célula com Enter e Tab Select Case KeyCode Case 9 ActiveCell.Offset(0, 1).Activate Case 13 ActiveCell.Offset(1, 0).Activate Case Else 'Nada End Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Dim wsList As Worksheet Set ws = ActiveSheet Set wsList = Sheets(Me.Name) Application.EnableEvents = False Application.ScreenUpdating = False If Application.CutCopyMode Then 'Permite copiar e colar na planilha GoTo errHandler End If Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .Top = 10 .Left = 10 .Width = 0 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With On Error GoTo errHandler If Target.Validation.Type = 3 Then Application.EnableEvents = False str = Target.Validation.Formula1 str = Right(str, Len(str) - 1) With cboTemp .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 15 .Height = Target.Height + 5 .ListFillRange = str .LinkedCell = Target.Address End With cboTemp.Activate 'Abrir a lista suspensa automaticamente Me.TempCombo.DropDown End If errHandler: Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub If ActiveCell.Row >= 2 And ActiveCell.Row <= 500 And ActiveCell.Column = 4 And ActiveCell.Value <> "" Then MsgBox (“Este campo já foi preenchido”) Cells(500, 2).End(xlUp).Offset(1, 0).Select End If End Sub