Boa Tarde.
Preciso de uma ajuda de vcs...
tenho uma planilha Excel que eu digito o codigo numa celula ele vai buscar num banco mdb e traz o resultado. so que eu preciso usar nessa planilha umas 200 linhas.
Mais esta dando esse erro:
Erro em tempo de exexução 1004
BOF ou EOF São Verdadeiros, ou o registro atual foi excluido.
a operação solicitada pelo aplicativo requer um registro atual.
a rotina que estou usando e essa..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Produto As String
Dim Cont As Integer
Cont = 2
Produto = Range("A" & Cont).Value
Cnn.Open "Banc_db", "Adim", ""
Rs.Open " SELECT BancoDados.Fornecedor,BancoDados.Produto,BancoDados.Descricao FROM BancoDados WHERE BancoDados.Pluproduto = " & Produto & "", Cnn, adOpenDynamic, adLockReadOnly
For Cont = 2 To 200
If Range("A" & Cont).Value = Produto Then
Range("B" & Cont).Value = Rs.Fields(0)
Range("C" & Cont).Value = Rs.Fields(1)
Range("D" & Cont).Value = Rs.Fields(2)
Rs.MoveNext
End If
Next Cont
Rs.Close
Cnn.Close
End Sub
Agradeço se vcs podem me ajudar..
Obrigado.
Marcelo Freitas
