Este fórum está sendo desativado

[Creuza]

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?

Código: Selecionar todos

Private 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

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 ajuda

[babdallas]

Seria melhor se colocasse uma dúvida por vez. Além disso, detalhe mais o problema. Por exemplo, ao digitar uma data, é cadastrada uma data diferente (troca o dia pelo mês e vice-versa). Mas em qual controle é digitado? Em qual planilha é salva?
Qual o botão para cadastrar?
Detalhe mais sua dúvida, o máximo que você puder. Você pode dominar sua planilha, mas nós não. Detalhar o problema facilita a busca pelo erro para quem está vendo a sua planilha pela primeira vez.