sempre que clicom em registrar no formulario que fiz, aparece o seguinte erro, que estou boiando!
private sub dataft_click()
dataf = getcalendário(dataf)
end sub
private sub datait_click()
datai = getcalendário(datai)
end sub
private sub datat_click()
dataa = getcalendário(dataa)
vp.setfocus
end sub
private sub reg_passagemb_click()
range("f4").select
selection.listobject.listrows.add (2)
linhaps 4
cells(linhaps, 6) = dataa.value
cells(linhaps, 7) = pr.value
cells(linhaps, 8) = datai.value + " a " + dataf.value
cells(linhaps, 9) = vp.value
unload reg_passagem
end sub
private sub reg_passagemi_click()
range("f4:i4").select
selection.listobject.listrows.add (2)
linhaps 4
cells(linhaps, 6) = dataa.value
cells(linhaps, 7) = pr.value
cells(linhaps, 8) = datai.value + " a " + dataf.value
cells(linhaps, 9) = vp.value
unload reg_passagem
end sub
private sub userform_initialize()
dataa = date
ult_linha_nome = sheets("dados").range("b4").end(xldown).row
pr.rowsource = "dados!b4:b" & ult_linha_nome
end sub