franchinni

@osvaldomp obrigado!!!!! funcionou!!

Bom dia pessoal, Preciso muito da ajuda de vocês, estou com este código abaixo funcionando porém ele não trás o nome exato na pesquisa, preciso que seja exato alguém me ajuda? Private Sub TextBoxModelo_AfterUpdate() If Me.TextBoxModelo = " " Then Exit Sub End If Dim linha As Integer Dim codigo As String codigo = TextBoxModelo Sheets("DADOS").Select On Error GoTo não_encontrado linha = Sheets("DADOS").Range("A:A").Find(codigo).Row TextBoxFabricante = Sheets("DADOS").Cells(linha, 2) TextBoxTecnologia = Sheets("DADOS").Cells(linha, 3)

@osvaldomp Muito obrigado!!! resolveu problema! valeu mesmo.

Boa tarde Pessoal Alguém consegue me ajudar com código abaixo: Preciso que se o usuário clicar na opção "cancelar" não apresente o erro: erro em tempo de execução 13 " Tipos incompatíveis" apenas saía do código Alguém pode me ajudar? obrigado. Sub ComboBox_Sup_Tec_Rem_Change() If ComboBox_Sup_Tec_Rem.Value = "SIM" Then [C40] = CDbl(InputBox("FAVOR INFORMAR A QUANTIDADE DE ACIONAMENTO")) [E40] = CDbl(InputBox("FAVOR INFORMAR O VALOR UNITÁRIO DO ACIONAMENTO")) End If End Sub

@osvaldomp verdade não me atentei a isso, obrigado deu certo agora! funcionou perfeitamente. muito obrigado pela ajuda. adicionado 34 minutos depois @osvaldomp desculpa te amolar, tentei usar o mesmo cod para mais uma célula no caso a L19 se for "SIM" mas não deu certo, sabe onde errei no codigo abaixo? funcionou a que me passou so não consegui fazer com mais de uma. obrigado Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address <> "$L$18" Or Target.Value <> "SIM" Then Exit Sub On Error Resume Next [E39] = CDbl(InputBox("favor inserir o valor do frete")) If Target.Address <> "$L$19" Or Target.Value <> "SIM" Then Exit Sub On Error Resume Next [E40] = CDbl(InputBox("favor inserir o valor do custo da implantação")) End Sub

@CasaDoHardware obrigado pela ajuda, funcionou... a caixa apareceu para digitar o valor assim que a célula l18 ficou como "Sim" o valor digitado entrou na celula "E39" porém apos da ok na caixa volta a caixa novamente pedindo para por o valor, coloco valor e novamente pedi para por o valor. adicionado 10 minutos depois @osvaldomp segue arquivo. FPreço.rar

@CasaDoHardware obrigado pela ajuda. Funcionou porém entrou em loop quando alterei para "sim" abriu a caixa para inserir o valor porém apos inserir o valor e dar "ok" voltou a caixa solicitando para por valor novamente entrando em loop sem parar. adicionado 0 minutos depois @osvaldomp obrigado pela ajuda. tentei o código informado não deu certo, sera que fiz algo errado.

@Patropi Obrigado pela ajuda. Executei seu código deu certo porém este código não se relacionou se a opção da célula "L18" for "Sim". A ideia é que se na celula L18 for "sim"; apareça esta caixa para inserir valor que entrará na celula "e39"

Boa tarde, pessoal sou iniciante em vba, preciso muito da ajuda de vocês. Criei uma planilha onde usuário informar se haverá custo de frete, se ele escolher na célula L18 a opção "não" não ocorre nada, porém se ele escolher opção "sim" aparece uma msgbox "favor inserir o valor do frete". gostaria da ajuda de vocês que apos aparecesse esta informação ao clicar ok aparecesse outra tela com opção dele inserir manualmente o valor em "R$ XX,XX" e este valor inserisse na celula E39 da mesma planilha. Private Sub Worksheet_calculate() If Range("L18").Value = "SIM" Then MsgBox "Favor Inserir o Valor do Frete ", vbInformation End If End Sub desde ja obrigado!