Franklin Queiroz_339147

Olá boa tarde, então eu estou com um problema com meu notebook VR415 samsung, estava com problema na tela (troquei mas não resolveu) então estava usando ele em um monitor normal, estava tudo normal até quando formatei agora a entrada vga e nem a hdmi estão funcionando tentei "decorar" para instalar os driver sem ver na tela mas sem sucesso, teria algum outro jeito para eu instalar essa placa vga, lembrando que ficou muito caro para consertar e não vale a pena, vou ter que jogar ele fora? desde desde já agradeço

Amigos estou desenvolvendo um programa de vendas, mas preciso fazer um atalho para vendas, para eu não precisar digitar todas as informações necessárias, exe: quanto eu clicar em ctrl k, ele selecione tudo apenas com um clique, o código ja funciona quanto eu seleciono manualmente, então preciso saber onde mudar para fazer vários botões de atalho,valeu!! Private Sub btmCalendario_Data_Click() Set obj_frm = frmVendas.txtData frmCalendario.Show Set obj_frm = NothingEnd SubPrivate Sub btmGrava_Click()Dim iLin As LongIf txtData.Text <> "" And cmbCliente.Text <> "" And cmbVendedor.Text <> "" And lstBoxProdutos.ListCount > 0 Then For i = 0 To lstBoxProdutos.ListCount - 1 ' Ultimo registro novo iLin = Sheets("Vendas").Range("A65000").End(xlUp).Row + 1 If IsNumeric(Sheets("Vendas").Cells(iLin - 1, "A").Value) Then Sheets("Vendas").Cells(iLin, "A").Value = Cells(iLin - 1, "A").Value + 1 ' ID Else Sheets("Vendas").Cells(iLin, "A").Value = 1 ' ID End If 'Sheets("Vendas").Cells(iLin, "A").Value = 1 Sheets("Vendas").Cells(iLin, "B").Value = txtData.Text ' Clientes Sheets("Vendas").Cells(iLin, "C").Value = Sheets("Clientes").Cells(cmbCliente.ListIndex + 2, "B").Text Sheets("Vendas").Cells(iLin, "D").Value = cmbCliente.Value ' Vendedor Sheets("Vendas").Cells(iLin, "E").Value = Sheets("Vendedor").Cells(cmbVendedor.ListIndex + 2, "B").Text Sheets("Vendas").Cells(iLin, "F").Value = cmbVendedor.Value Sheets("Vendas").Cells(iLin, "G").Value = Val(lstBoxProdutos.List(i, 2)) * Val(lstBoxProdutos.List(i, 3)) Sheets("Vendas").Cells(iLin, "I").Value = Val(lstBoxProdutos.List(i, 1)) iiLin = Pesquisa_Produto(lstBoxProdutos.List(i, 1)) Sheets("Produtos").Cells(iiLin, "E").Value = Sheets("Produtos").Cells(iiLin, "E").Value - Val(lstBoxProdutos.List(i, 3)) iLin = iLin + 1 Next lstBoxProdutos.Clear txtProdQuantidade.Text = "" Else MsgBox "Não gravado a venda", vbExclamationEnd IfEnd SubFunction Pesquisa_Produto(sId As Long) As LongWith Worksheets("Produtos").Range("B2:B65000") Set c = .Find(sId, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Pesquisa_Produto = c.Row Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End IfEnd WithEnd FunctionPrivate Sub btmInclui_Click() If cmbProdutos.Value <> "" And Val(txtProdQuantidade.Value) > o Then lstBoxProdutos.AddItem cmbProdutos.Value iLin = cmbProdutos.ListIndex + 2 lstBoxProdutos.List(lstBoxProdutos.ListCount - 1, 1) = Sheets("Produtos").Cells(iLin, "B").Text lstBoxProdutos.List(lstBoxProdutos.ListCount - 1, 2) = Sheets("Produtos").Cells(iLin, "D").Text lstBoxProdutos.List(lstBoxProdutos.ListCount - 1, 3) = txtProdQuantidade.Value lblValorTotal.Caption = Val(lblValorTotal.Caption) + Sheets("Produtos").Cells(iLin, "D").Value * txtProdQuantidade.Value End IfEnd SubPrivate Sub cmbProdutos_Change()End SubPrivate Sub txtCodCliente_Change()Dim iLin As Long iLin = fBusca_Cod(Sheets("Clientes").Range("B2:B6500"), txtCodCliente.Text) If iLin > 0 Then cmbCliente.Text = Sheets("Clientes").Cells(iLin, "C").Text Else cmbCliente.Text = "" End If End SubPrivate Sub txtCodVendedor_Change()Dim iLin As Long iLin = fBusca_Cod(Sheets("Vendedor").Range("B2:B6500"), txtCodVendedor.Text) If iLin > 0 Then cmbVendedor.Text = Sheets("Vendedor").Cells(iLin, "C").Text Else cmbVendedor.Text = "" End IfEnd SubPrivate Sub txtData_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Formata_Data txtData, KeyAsciiEnd SubPrivate Sub txtValor_AfterUpdate() Formata_Moeda txtValorEnd SubPrivate Sub txtValor_Change()End SubPrivate Sub txtProdQuantidade_Change()End SubPrivate Sub UserForm_Initialize() fCarrega_Vendedor_Clientes_ProdutosEnd SubFunction fCarrega_Vendedor_Clientes_Produtos()Dim iLin As Long iLin = 2 ' limpa comboBox Vendedor cmbVendedor.Clear ' Carrega cmbVenNome While Sheets("Vendedor").Cells(iLin, "A").Text <> "" cmbVendedor.AddItem Sheets("Vendedor").Cells(iLin, "C").Text iLin = iLin + 1 Wend iLin = 2 ' limpa comboBox Clientes cmbCliente.Clear ' Carrega cmbCliente While Sheets("Clientes").Cells(iLin, "A").Text <> "" cmbCliente.AddItem Sheets("Clientes").Cells(iLin, "C").Text iLin = iLin + 1 Wend iLin = 2 ' limpa comboBox Produtos cmbProdutos.Clear ' Carrega cmbProdutos While Sheets("Produtos").Cells(iLin, "A").Text <> "" cmbProdutos.AddItem Sheets("Produtos").Cells(iLin, "C").Text iLin = iLin + 1 Wend End Function