Formatação de data e classificação
Enviado: 04 Dez 2017 às 14:32
No meu projeto criei um formulário ( formulário pesquisa) para a inserção de dados na planilha , tenho 5 textbox que são campos de data:
1ª folga domingo
1ª folga sábado inteiro
1ª folga 1/2 sábado
Inicio de férias
Fim de férias
Li no fórum umas 75 dicas mas, elas não funcionaram ou melhor eu não soube fazê-las funcionar. me da uma ajudinha ?
1 - Quando digito 03/09/2017 , o dado entra na planilha 09/03/2017 e as formulas que calculam as folgas não funcionam.
2 - Os campos inicio e fim de férias e invariavelmente um dos campos de folga no sábado ficarão em branco,o Cdate , e o format não admitem a célula em branco fazendo o comando ir para o depurador.... não sei o que estou fazendo errado
ainda sobre o campo de férias, ele só aprece se marcar o chkbox, ( aparecem o txt box inicio e fim de férias e o txtbox observação recebe a informação férias) isso é importante para marcar na escala que aquele individuo não estará escalado naquele período. o caso é que quando o ckbox e desmarcado o txtbox observação não fica "em branco" e as txtbox inicio e fim de férias nao ficam ocultos. como faz isso?
3- Quando faço uma busca pela matricula, ele deveria trazer as informações do funcionário, se ele já estiver cadastrado, ou informar que "a matricula não foi informada, deseja cadastrar? " mas ele está retornando uma matricula diferente da que foi digitada. pro exemplo se digito 53 ele retorna os dados da matricula 1053. Pensei que poderia ser porque as informações não estão em ordem então garimpei aqui no fórum um código que coloca em ordem numérica, mas não está funcionando corretamente, coloquei este código na planilha e não em um módulo, errei?
1ª folga domingo
1ª folga sábado inteiro
1ª folga 1/2 sábado
Inicio de férias
Fim de férias
Li no fórum umas 75 dicas mas, elas não funcionaram ou melhor eu não soube fazê-las funcionar. me da uma ajudinha ?
1 - Quando digito 03/09/2017 , o dado entra na planilha 09/03/2017 e as formulas que calculam as folgas não funcionam.
2 - Os campos inicio e fim de férias e invariavelmente um dos campos de folga no sábado ficarão em branco,o Cdate , e o format não admitem a célula em branco fazendo o comando ir para o depurador.... não sei o que estou fazendo errado
ainda sobre o campo de férias, ele só aprece se marcar o chkbox, ( aparecem o txt box inicio e fim de férias e o txtbox observação recebe a informação férias) isso é importante para marcar na escala que aquele individuo não estará escalado naquele período. o caso é que quando o ckbox e desmarcado o txtbox observação não fica "em branco" e as txtbox inicio e fim de férias nao ficam ocultos. como faz isso?
3- Quando faço uma busca pela matricula, ele deveria trazer as informações do funcionário, se ele já estiver cadastrado, ou informar que "a matricula não foi informada, deseja cadastrar? " mas ele está retornando uma matricula diferente da que foi digitada. pro exemplo se digito 53 ele retorna os dados da matricula 1053. Pensei que poderia ser porque as informações não estão em ordem então garimpei aqui no fórum um código que coloca em ordem numérica, mas não está funcionando corretamente, coloquei este código na planilha e não em um módulo, errei?
Código: Selecionar todos
Este código está colocando em ordem apenas a coluna A , quando preciso que todas as informações da linha a acompanhem inclusive as formulas. Estou colocando a planilha em anexo e desde já agradeço a ajudaPrivate Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim ultLin As Long
ultLin = Worksheets("Escala").Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Worksheets("Escala").Range("A5:ay" & ultLin)
Range("A5").Select
ActiveWorkbook.Worksheets("Escala").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Escala").Sort.SortFields.Add Key:=Range("A5"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Escala").Sort
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub