Jump to content

Fabio de Souza

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About Fabio de Souza

  1. Ola amigos é minha primeira vez no forum, Estou com o seguinte problema: efetuei uma planilha em vba excel, porem em uma determinada textbox, estou tendo dor de cabeça, fiz uma tabela que busca de valores e insere de valores. Na tabela fde inserção de valores, tudo, ok efetuei a formula com comando Cdate(textde) - quando preenche a mesma ela inserre corretamente em formato de datas porem, na busca de valores quando a celula na estão preenchida ele nãos tras nada nesta txtDE, e quando eu efetuo a alteração ele da erro, porque na opção "Cdade" tem que esdta preenchida com alguma coisa... consegume me ajudar? ' este faz a busca de valores: Private Sub txtLocaliza_AfterUpdate() Dim intervalo As Range Dim texto As String Dim codigo As Integer Dim pequisa Dim mensagem codigo = txtLocaliza.Value 'Sheets("Clientes").Select Set intervalo = Sheets("Clientes").Range("A:Y") On Error GoTo trataErro pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False) pesq4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False) pesq5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False) pesq6 = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False) pesq7 = Application.WorksheetFunction.VLookup(codigo, intervalo, 9, False) pesq8 = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) pesq9 = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False) pesq10 = Application.WorksheetFunction.VLookup(codigo, intervalo, 12, False) pesq11 = Application.WorksheetFunction.VLookup(codigo, intervalo, 13, False) pesq12 = Application.WorksheetFunction.VLookup(codigo, intervalo, 14, False) pesq13 = Application.WorksheetFunction.VLookup(codigo, intervalo, 15, False) pesq14 = Application.WorksheetFunction.VLookup(codigo, intervalo, 16, False) pesq15 = Application.WorksheetFunction.VLookup(codigo, intervalo, 17, False) pesq16 = Application.WorksheetFunction.VLookup(codigo, intervalo, 18, False) pesq17 = Application.WorksheetFunction.VLookup(codigo, intervalo, 19, False) pesq18 = Application.WorksheetFunction.VLookup(codigo, intervalo, 20, False) pesq19 = Application.WorksheetFunction.VLookup(codigo, intervalo, 21, False) pesq20 = Application.WorksheetFunction.VLookup(codigo, intervalo, 22, False) pesq21 = Application.WorksheetFunction.VLookup(codigo, intervalo, 23, False) pesq22 = Application.WorksheetFunction.VLookup(codigo, intervalo, 24, False) pesq23 = Application.WorksheetFunction.VLookup(codigo, intervalo, 25, False) pesq24 = Application.WorksheetFunction.VLookup(codigo, intervalo, 1, False) lblCod = pesq24 txtAddress = CDate(pesquisa) txtNumber = pesq1 txtNeighb = pesq2 txtCity = pesq3 cbUF = pesq4 txtDDD1 = Format(CCur(pesq5), "#0.000") txtPhone1 = Format(CCur(pesq6), "#0.000") txtDDD2 = Format(CCur(pesq7), "#0.000") txtPhone2 = Format(CCur(pesq8), "#0.000") txtEmail = Format(CCur(pesq9), "#0.000") txtmn = Format(CCur(pesq10), "#0.000") txtti = Format(CCur(pesq11), "#0.000") txtal = Format(CCur(pesq12), "#0.000") txtcomplemento = pesq13 If pesq14 <> "" Then txtDT = CDate(pesq14) End If txtIN = pesq15 txtTR = pesq16 ''If pesq17 <> "" Then txtPeso = Format(CCur(pesq17), "###,##0.000") ''End If txtPecas = pesq18 ''If pesq19 <> "" Then txtPB = Format(CCur(pesq19), "###,##0.000") ''End If ''If pesq20 <> "" Then txtPL = Format(CCur(pesq20), "###,##0.000") ''End If If pesq21 <> "" Then txtDE = CDate(pesq21) End If txtDS = pesq22 txtVT = pesq23 Exit Sub trataErro: texto = "Não Localizado" mensagem = MsgBox(texto, vbOKOnly + vbInformation) End Sub 'este altera na tabela Sub lsAlterarStudent() 'Define a Range de Pesquisa Set currentFind = Worksheets("Clientes").Range("A:A").Find(frmCadastroStudents.lblCod, , _ Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _ Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False) lLinha = currentFind.Row With frmCadastroStudents Sheets("Clientes").Cells(lLinha, 2).Value = CDate(.txtAddress) Sheets("Clientes").Cells(lLinha, 3).Value = .txtNumber Sheets("Clientes").Cells(lLinha, 4).Value = .txtNeighb Sheets("Clientes").Cells(lLinha, 5).Value = .txtCity Sheets("Clientes").Cells(lLinha, 6).Value = .cbUF Sheets("Clientes").Cells(lLinha, 7).Value = CCur(.txtDDD1) Sheets("Clientes").Cells(lLinha, 8).Value = CCur(.txtPhone1) Sheets("Clientes").Cells(lLinha, 9).Value = CCur(.txtDDD2) Sheets("Clientes").Cells(lLinha, 10).Value = CCur(.txtPhone2) Sheets("Clientes").Cells(lLinha, 11).Value = CCur(.txtEmail) Sheets("Clientes").Cells(lLinha, 12).Value = CCur(.txtmn) Sheets("Clientes").Cells(lLinha, 13).Value = CCur(.txtti) Sheets("Clientes").Cells(lLinha, 14).Value = CCur(.txtal) Sheets("Clientes").Cells(lLinha, 15).Value = .txtcomplemento Sheets("Clientes").Cells(lLinha, 16).Value = CDate(.txtDT) Sheets("Clientes").Cells(lLinha, 17).Value = .txtIN Sheets("Clientes").Cells(lLinha, 18).Value = .txtTR ''If txtPeso <> "" Then Sheets("Clientes").Cells(lLinha, 19).Value = CCur(.txtPeso) ''End If Sheets("Clientes").Cells(lLinha, 20).Value = .txtPecas ''If txtPB <> "" Then Sheets("Clientes").Cells(lLinha, 21).Value = CCur(.txtPB) ''End If ''If txtPL <> "" Then Sheets("Clientes").Cells(lLinha, 22).Value = CCur(.txtPL) ''End If ''If txtDE <> "" Then Sheets("Clientes").Cells(lLinha, 23).Value = CDate(.txtDE) ''End If Sheets("Clientes").Cells(lLinha, 24).Value = .txtDS Sheets("Clientes").Cells(lLinha, 25).Value = .txtVT End With End Sub
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.