[jkf1456]

eu crie uma forma. trabalha perfeita mas ocorre que:
outras células depende das informações adicionadas pela forma.
exemplo:
a forma alimenta a célula ar3 (data) automaticamente vai para a próxima linha.
na célula bk3 (data) =repet(ar3). quando o primeiro cliente é adicionado não tem problema, agora os próximos é que aprece o erro: o cliente não aprece.
como se faz para fixar os valores que vao entrando pela forma na coluna ar?

muito obrigado

[jorgerod]

jk…,

vê o seguinte exemplo e adapta, ok?

‘—————————————————————————————
‘ module : userform1
‘ datetime : 05-07-2012 17:30
‘ author : jorge rodrigues
‘ purpose : este módulo tem por finalidade criar registos
‘—————————————————————————————

‘—————————————————————————————
‘ procedure : commandbutton1_click
‘ datetime : 05-07-2012 17:30
‘ author : jorge rodrigues
‘ purpose : adiciona registos e limpa o formulário antes de adicionar novo registo.
‘—————————————————————————————
‘
private sub commandbutton1_click()

dim intnext as integer
dim c as control
dim numero as integer

worksheets(“inscritos”).select

intnext = range(“aa1”) + 2
numero = intnext
codtipodoc.setfocus

for each c in me.controls
if typename(c) = “textbox” or typename(c) = “combobox” then
if c.value = “” then
msgbox “por favor, preencha todos os campos!”
c.setfocus
exit sub
end if
end if
next

range(“a” & intnext) = numero – 1
range(“b” & intnext) = codtipodoc.value
range(“c” & intnext) = numeroid.value
range(“d” & intnext) = apelido.value
range(“e” & intnext) = nome.value
range(“f” & intnext) = condiesp.value

codtipodoc = “”
numeroid = “”
apelido = “”
nome = “”
condiesp = “”

codtipodoc.setfocus
end sub

‘—————————————————————————————
‘ procedure : commandbutton2_click
‘ datetime : 05-07-2012 17:30
‘ author : jorge rodrigues
‘ purpose : cancela a adição de um registo ou sai do formulário
‘—————————————————————————————
‘
private sub commandbutton2_click()
unload me
sheets(1).select

end sub

[Author]

Posts