[Anónimo]

galerinha,

utilizo a programação abaixo para localizar nome em uma planilha, mas para data não funciona. preciso de uma ajuda para saber onde está o erro.

private sub commandbutton1_click()
application.screenupdating = false

range(“a1”).select

dim vdata as string
dim dataselecao as integer
dim msg as string

on error goto mensagem

vdata = dtpicker1.value

with worksheets(2).range(“a1:a10000″)

cells.find(what:=vdata, after:=activecell, lookin:=xlformulas, lookat _
:=xlpart, searchorder:=xlbyrows, searchdirection:=xlnext, matchcase:= _
false, searchformat:=false).activate

dataselecao = activecell.row

end with

application.screenupdating = true
exit sub
mensagem:
msg = msgbox(prompt:=” nome não existente!!!”, title:=”atenÇÃo!”)
end sub

[jorgerod]

wagner,

talvez antes do segmento:

vdata = dtpicker1.value.

se colocares este:

dtpicker1.value= date

pode ser que dê resultado.

[Anónimo]

não deu certo.

esse problema está dando em um arquivo que estou tentando resolver aqui no site mesmo, se possível, tenta resolvê-lo para mim.

att.
wagner goularte

[Autor]

Artigos