Notifications
Clear all

CALCULAR DATAS

13 Posts
2 Usuários
0 Reactions
3,301 Visualizações
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

*
Bom dia prezados,

Estou começando agora em VBA e estou construindo um projeto de controle de equipamento, neste eu faço o controle patrimonial e prazos de manutenção entre outros controles.

Estou parado no meu projeto pois, estou precisando de algumas coisas para proseguir:

1º - Eu tenho um textbox1 que lança a data de calibração do equipamento e na textbox2 deverá aparecer a próxima, exemplo: textbox1 = 17/04/2012 e na textbox2 deverá aparecer a data de 365 dias depois que será 17/04/2012, porém eu preciso monitorar essa data, ou seja, quando chegar 2meses, 1mês e 15dias antes a planilha deverá a cada set desse me dar uma informação numa textbox3...faltando dos meses textbox3 = "agendar".

2º - Numa listabox eu já consigo visualizar dados da planilha e clicando no index os textbox's já são auto preenchidos, porém não estou conseguindo construir uma rotina que possa excluir, alterar esses dados e salvar sem criar um novo registro.

4º - É possível a partir de uma palavara que apareça no textbox a mesma seja preenchida com alguma cor???

 
Postado : 17/04/2012 6:04 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Danilo, por ventura não um modelo semi pronto para postar (o arquivo deve ser COMPACTADO!!!)??

Att.

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

 
Postado : 17/04/2012 6:15 am
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

Tenho sim vou mandar assim que possível.

Desde já agradeço a atenção.

 
Postado : 17/04/2012 7:08 am
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

Bom dia,

Segue em anexo conforme solicitado.

Obs.: na minha planilha os campos já estão todos preenchidos, porém quando consulto algo através da listbox os campos na textbox das datas não estão com os formatos corretos se possível gostaria que ajudasse nesse sentido também.

 
Postado : 17/04/2012 7:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Danilo, no anexo algumas alterações para tentar atender ao que deseja.
Observação:
Por default txtbox recebe e "transfer" seus valores como texto (string),
para utilização desses valores em contas, salvar em arquivo ou "resgata-los para um formulario, é aconselhav :? el faze-lo com a devida conversão.

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

 
Postado : 17/04/2012 12:45 pm
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

Obrigado Reinaldo,
Vou dar uma olhada aki mais aprofundada...
Eu achei algumas coisas que não entendi direito e queria uma explicação maior se possível...
Mas desde já agradeço

 
Postado : 17/04/2012 2:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Basta perguntar, que tentarei explicar, dentro de minhas limitações

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

 
Postado : 17/04/2012 2:06 pm
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

Muito obrigado Reinaldo,

O arquivo me ajudou bastante e eu consegui adptá-la as minhas condições aqui, mas eu não entendi muito como utilizar o cálculo de data dentro de IF, porém eu vou replicar aquele arquivo adicionado na planilha como eu faço essa monitoração de data com fórmulas diretamente no excel e usando a formatação condicional.
Acho que assim você irá entender mais.

Desde já agradeço a atenção e ajuda.

 
Postado : 18/04/2012 7:43 am
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

Segue exemplo modificado conforme informado...

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

Danilo, não entendi, o arquivo está igual ao primerio post, não vi formulas ou condicional.Como é feito esse controle de datas
Quanto ao calculo de datas no exemplo que enviei; utilizei a Função DateDiff do VBA; similar ao DataDif na planilha; porem tem uma sintaxe diferenciada
IF DateDiff("m", Date, CDate(txt49_proxcalibracao), vbSunday, vbFirstFourDays)
Objetivo: Obter a diferença (em meses: "m"), entre a data do dia (Date) e a data proxima calibração (txt49_....)
Os atributos: vbSunday indica semana iniciando no domingo, e vbFirstFourDays considera a primeira semana do ano com 4 dias ou mais (podem ser omitidos)

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

 
Postado : 18/04/2012 9:08 am
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

Reinaldo boa tarde,

A planilha não é a mesma...observe que que no código realmente esta a mesma coisa, mas na planilha estão as fórmulas que uso para controlar isso na "MÃO GRANDE"(rsrsrs), porém em VBA ainda n tenho essa habilidade...No arquivo descreve bem os problemas que eu tenho enfretado...se ainda sim não entender pode entrar em contato

 
Postado : 18/04/2012 10:25 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Danilo,
Pra eclarecer, o que vc deseja?:
Ter no Form de Consulta "form_consulta_calibravel"; um TexBox ou Label, que ao ser consultado um equipamento; seja feita as contas que estão na planilha e o mesmo seja "mostrado" com a descrição e cor definidas; abandonando assim o controle na planilha;
ou
Manter o controle na Planilha e trazer nesse TexBox/Label o "Valor" do Campo Status da planilha com sua respectiva formatação de cor?
Em paralelo vj na plan, como as formulas podem ser um pouco mais "simples"

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

 
Postado : 18/04/2012 12:01 pm
(@daniloengeletrico)
Posts: 9
Active Member
Topic starter
 

Muito obrigado Reinaldo,
Ajudou bastante, mas ainda n resolveu o problema totalmente...estou abusando bastante, mas falta pouco...
Acho q se faz necessário nos coversarmos em outro canal para eu te mostrar o meu projeto completo, pois você consiguirá ter uma visão mais ampla do que estou precisando.
No aguardo

 
Postado : 18/04/2012 12:38 pm