Dados repetidos na ...
 
Notifications
Clear all

Dados repetidos na coluna

24 Posts
2 Usuários
0 Reactions
5,462 Visualizações
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Bom dia senhores,

estou tentando uasr este codigo para evitar lançamentos duplicados mas tem um erro e nao consiguo entender,

Dim r1 As Long

r1 = wsBDConvenio(Columns("E"))

If r1 = 0 Then

Else

If r1 > 0 Then MsgBox "A nova entrada conflita com a linha: " & r1

End If

Obrigado

 
Postado : 28/05/2012 9:35 am
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Obrigado por responder Reinaldo,

Coloquei o anexo ai, esta função que o Mauro passou é perfeita para o meu formulário, no anexo ela esta funcionando por que criei uma aba"plan1" com os dados, ai no evento exit do comando NComanda ele me diz se tem ou não este numero já cadastrado, mas não consigo referenciar meu banco de dados a esta função, sei que provavelmente é coisa simples mas não esta entrando na minha cabeça.

Obrigado.

 
Postado : 05/06/2012 1:57 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como disse, a variavel workbook já está declarada e definida, então tente sem alinha "Dim wbClientes As Workbook"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/06/2012 2:41 pm
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Ja tinha tentado sem esta linha, sei que o problema esta no meu entendimento, mas mesmo assim obrigado Reinaldo.

 
Postado : 05/06/2012 5:33 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Fabio, em seu exemplo; depois da retirada da linha; a informação retorna (msgbox), veja no anexo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/06/2012 6:44 am
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Bom dia Reinaldo,

Neste exemplo esta funcionando sim, porque a planilha(plan1) esta dentro desta pasta, o que não consigo e fazer ele ir ate o banco de dados externo, ( anexo que mandei ontem ), é isto que não estou conseguindo fazer.

 
Postado : 06/06/2012 9:06 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja no anexo.
Movi a função de pesquisa para "dentro" do codigo do formulario, alterei a referencia à worksheet para a comum no codigo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/06/2012 9:40 am
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Agora sim, na verdade era só o fato de estar dentro de um modulo então ???

Sempre grato pela tua atenção e paciência.

Fabio Pradella

 
Postado : 06/06/2012 11:11 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não, podia ficar fora, mas ai teria que referenciar tudo (Arquivo e planilha), então dentro do modulo do form, fica mais facil, pois já há esse referencia.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/06/2012 1:21 pm
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Grande Reinaldo, um grande abraço.

 
Postado : 06/06/2012 4:39 pm
Página 2 / 2