Excel 64BITS

[Julio Mangilli]

Olá pessoal, venho humildemente pedir uma ajuda, tenho a programação a baixo que foi criada no Excel 64bits que funciona muito bem e no 32 bits não está funcionando, ele fala que não encontra informação na biblioteca.

O que devo fazer?

depois dessa tenho uma MsgBox que também não funciona.

Sub Transferir()

ActiveWorkbook.Unprotect "041063"
Sheets("Hist?ricosEmpresas").Visible = True
Application.ScreenUpdating = False

Dim W As Worksheet
Dim W1 As Worksheet
Dim Matriz(5) As Integer



Set W = Sheets("Filtro")
Set W1 = Sheets("Hist?ricosEmpresas")

Matriz(0) = 14
Matriz(1) = 3
Matriz(2) = 4
Matriz(3) = 7
Matriz(4) = 8

Col1 = 1

For Col = 0 To 4

Ultlin = W.Cells(Rows.Count, Matriz(Col)).End(xlUp).Row

For Lin = 4 To Ultlin

UltLinW1 = W1.Cells(Rows.Count, Col1).End(xlUp).Row

W1.Cells(UltLinW1 + 1, Col1) = W.Cells(Lin, Matriz(Col))

Next Lin

Col1 = Col1 + 1

Next Col


Application.ScreenUpdating = True

Sheets("Hist?ricosEmpresas").Select
Call duplicadasremover
Call rodarmacro3macros
tranferirgeral
Sheets("Hist?ricosEmpresas").Visible = False
Sheets("Filtro").Select
Range("a1").Select
ActiveWorkbook.Protect "041063"

End Sub



Muito Obrigado desde já.

[Reinaldo]

Aparentemente nada haver com a rotina acima postada; talvez com as que são executadas com o comando "CaLL".
Verifique no equipamento de 32 bits, se alguma biblioteca esta marcada como ausente.
Abra o editor VBE, menu "Ferramentas" e depois em "Referencias"

[Julio Mangilli]

Olá,

Desde já agradeço muito seu retorno Sr. Reinaldo.
Então as referencias na bibliotecas estão as mesmas no equipamento 64Bits e 32 Bits, porem tem sim informações sem marcar, então fui marcar mais algumas e deu o erro de DLL.

Para acrescentar um detalhe porem não sei se realmente pode ser que tenha haver, mas quando vou depurar o código ele me mostra a linha "Col1 = 1" como se ela tivesse errado.

Outra situação quando coloco no userfom a data dentro de um textbox exemplo:

Private Sub UserForm_Initialize()
TextBox1 = Date
End Sub

No 64 funciona muito bem e no 32 não, preciso mudar de Date para Today.

Isso poderia ser um caso da diferença do equipamento ou de referencia ?

[Julio Mangilli]

Olá Amigos

Sr. Reinaldo você estava certo e faltou um pouco de paciência da minha parte para encontrar o meu erro.
Meu computador usa muitas referencias de varias planilhas que tenho que me auxilia diariamente, mas quando outro computador abria a mesma planilha dava erro por ter muitas referencias também, eu deixei somente as referencias que a planilha utilizava. Assim deu certo. Muito obrigado por sua explicação e resposta. Agradeço.

[Julio Mangilli]

Olá Amigos

Sr. Reinaldo você estava certo e faltou um pouco de paciência da minha parte para encontrar o meu erro.
Meu computador usa muitas referencias de varias planilhas que tenho que me auxilia diariamente, mas quando outro computador abria a mesma planilha dava erro por ter muitas referencias também, eu deixei somente as referencias que a planilha utilizava. Assim deu certo. Muito obrigado por sua explicação e resposta. Agradeço.