Notifications
Clear all

Erro em Array

3 Posts
2 Usuários
0 Reactions
975 Visualizações
(@andersonrj)
Posts: 11
Active Member
Topic starter
 

Estou querendo adicionar valores em arrays e inseri-los em outra planilha, por favor podem em ajudar, está retornando um erro de incompatibilidade eu não estou encontrando o erro podem me ajudar?

Este código faz o seguinte encontra o código de um cliente e copia os valores da linha correspondente ao cliente e cola em outra planilha.

Private Sub CommandButton1_Click()


If txtCod = "" Then

MsgBox ("Insira o código do cliente!")

Exit Sub

Else

Dim codigo As Integer
Dim elemento(2) As Integer
Dim valor As Integer

linha = 4
codigo = txtCod
'
Sheets("Plan1").Select
Do Until Sheets("Plan1").Cells(linha, 2) = "" 'condicção para localizar o código
If Sheets("Plan1").Cells(linha, 2) = codigo Then
'seleciona célula com o código
Sheets("Plan1").Cells(linha, 1).Select

ActiveCell.Offset(0, 1).Select

elemento(0) = ActiveCell

ActiveCell.Offset(0, 1).Select

elemento(1) = ActiveCell

ActiveCell.Offset(0, 1).Select

elemento(2) = ActiveCell

Sheets("Plan6").Select
Range("C1:L4").Cells(1, 1) = elemento(0)
Range("C1:L4").Cells(1, 4) = elemento(1)
Range("C1:L4").Cells(4, 1) = elemento(2)
ListBox1.ColumnCount = 12
ListBox1.RowSource = "Plan6!A1:L152"

End If

linha = linha + 1
Loop

End If
 
Postado : 26/05/2017 8:35 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Andersonrj,

Boa tarde!

O tipo de erro que você se refere deve estar ocorrendo em razão de que muito provavelmente você deve está tentando inserir no array algum valor que não é compatível com o tipo de dados que o array aceita. Ou seja, na sua planilha, no caminho onde os dados são capturados para compor os elementos do array, deve haver algum dado que não é um número. Seu array está definido como Integer, portanto, só aceitará números do tipo integer.

Veja, no exemplo abaixo, que montei aqui, a partir do seu próprio código, que está correto e funcionando normalmente.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 26/05/2017 11:17 am
(@andersonrj)
Posts: 11
Active Member
Topic starter
 

Muito obrigado Wagner, eu deixei passar despercebido valeu cara obrigado pela atenção

 
Postado : 26/05/2017 12:48 pm