Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Creuza
#28607
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
Você não está autorizado a ver ou baixar esse anexo.
#28613
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.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord