Maeda
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/01/2009 14:46 hs
Estou montando um codigo onde preciso que seja gerado números aleatórios e quando eu rodo o sistema apresenta o seguinte erro:
"Run Time Error '13'
Type mismatch
Não sei o que esta acontecendo
Segue o código abaixo:
Private Sub CBGERA_Click()
cadastrocodigo = Worksheets("Solic Compra Serv Clientes").Range("codcalc").Value + 1 o erro é nessa linha
If MsgBox("confirma atualização?" & "codigo:" & cadastrocodigo & "nome:" & Sheets("SolicCompraServClientes").Range("TBCLI2"), vbYesNo,"oi") = vbNo Then
Exit Sub
End If
With SolicCompraServClientes
TBID.Value = cadastrocodigo
.Range("codcalc").Value = cadastrocodigo
cadastrolinha = .UsedRange.Rows.Count + 1
.Cells(cadastrolinha, 1).Value = cadastrocodigo
.Cells(cadastrolinha, 2).Value = SolicCompraServClientes.Range("TBID").Value
.Cells(cadastrolinha, 4).Value = SolicCompraServClientes.Range("TBCON2").Value
.Cells(cadastrolinha, 5).Value = SolicCompraServClientes.Range("TBCLI2").Value
.Cells(cadastrolinha, 6).Value = SolicCompraServClientes.Range("TBINC").Value
.Cells(cadastrolinha, 7).Value = SolicCompraServClientes.Range("TBTEC").Value
.Cells(cadastrolinha, 8).Value = SolicCompraServClientes.Range("TBDUC").Value
.Cells(cadastrolinha, 9).Value = SolicCompraServClientes.Range("TBEMAIL").Value
.Cells(cadastrolinha, 10).Value = SolicCompraServClientes.Range("TBPES").Value
.Cells(cadastrolinha, 11).Value = SolicCompraServClientes.Range("TBEND").Value
.Cells(cadastrolinha, 12).Value = SolicCompraServClientes.Range("TBCID").Value
.Cells(cadastrolinha, 13).Value = SolicCompraServClientes.Range("TBCEP").Value
.Cells(cadastrolinha, 14).Value = SolicCompraServClientes.Range("TBTEL").Value
.Cells(cadastrolinha, 15).Value = SolicCompraServClientes.Range("CBEST").Value
.Cells(cadastrolinha, 17).Value = SolicCompraServClientes.Range("TBCLI3").Value
.Cells(cadastrolinha, 18).Value = SolicCompraServClientes.Range("TBPES1").Value
.Cells(cadastrolinha, 19).Value = SolicCompraServClientes.Range("TBEMAIL1").Value
.Cells(cadastrolinha, 20).Value = SolicCompraServClientes.Range("TBEND1").Value
.Cells(cadastrolinha, 21).Value = SolicCompraServClientes.Range("TBTEL1").Value
.Cells(cadastrolinha, 22).Value = SolicCompraServClientes.Range("TBCEP1").Value
.Cells(cadastrolinha, 23).Value = SolicCompraServClientes.Range("TBCID1").Value
.Cells(cadastrolinha, 24).Value = SolicCompraServClientes.Range("CBEST1").Value
End With
MsgBox "atualização efetuada"
End Sub
Será que alguem pode me ajudar, por favor |
|
|
|
|
|
ivanhoe
|
BARRA BONITA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/01/2009 00:02 hs
Caro Maeda, Este erro "Type mismatch " é comum quando se usa variaveis com conteudo diferentes ou nulas, ou seja iguale as variaveis para receber o mesmo tipo de dados, se o conteudo for numero defina : Dim cadastrocodigo as double e depois converta o conteudo para o mesmo formato cadastrocodigo = cdbl(Worksheets("Solic Compra Serv Clientes").Range("codcalc").Value) + 1 acho que é isso |
|
|
|
Maeda
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/01/2009 09:18 hs
Obrigada pela grande ajuda, mas depois que fiz isso ainda permanece com o mesmo erro, nao sei o que pode ser |
|
|
|
|
