Bikke
-
Posts
154 -
Cadastrado em
Tópicos solucionados
-
O post de Bikke em Só permitir uma data, nada mais que isso na célula, Excel 2007 foi marcado como solução
Boa noite
Consegui resolver
E como tal, coloco aqui a solução.
Em Q1 e Q2, coloquei as fórmulas a não serem permitdas. ( podem ser colocadas mais fórmulas a não serem permitas, e alarga-se nas células Q )
E na Validação de dados, coloquei a seguinte fórmula: =SE(SE.ERRO(PROCV(J8;$Q$1:$Q3;1;0);"")="";VERDADEIRO;FALSO)
Se o mesmo for possível fazer em VBA, agradecia.
Obrigado
P.S. - Segue em anexo a planilha
Lançamento.de.Horas.xls
-
O post de Bikke em Visualizar e depois imrimir, excel 2003 e 2007 foi marcado como solução
Depois de muito pesquisar na net, e de fazer alguns testes e ajustes, consegui o que pretendia.
Assim, deixo aqui para quem precisar.
Cumprimentos
-
O post de Bikke em Colocar o mês em maiuscula, Excel 2003 e 2007 foi marcado como solução
Boa noite
Já consegui resolver.
Formula correcta: ="escala de serviço do pessoal referente ao mês de "& maiúsculas((texto((a3);"mmmm")))&" de "&texto(a3;"aaaa")
Bom fim de semana
Cumprimentos
P.S.- Não sei o que se passa com o Fórum agora, pois quando se coloca alguma palavra em maiúscula para diferenciar das outras e assim possamos mostrar aos outros usuários, passa para minúscula.
Acho que devia ser corrigido esse Bug.
Fica a minha dica.
-
O post de Bikke em VBA que oculte algumas colunas e imprima o restante, Excel 2007 foi marcado como solução
Após pesquisar na net e testar na minha planilha, encontrei o correcto e o que pretendia.
Aqui deixo o código VBA para quem necessitar.
Sub PRINT_ESCALA() Sheets("ESCALA").Unprotect "123" Columns("O:AF").Hidden = True Sheets("ESCALA").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("ESCALA").Select Columns("O:AF").Hidden = False Sheets("ESCALA").Protect "123" End Sub
Cumprimentos
-
O post de Bikke em Inserir comentário em planilha protegida, excel 2007 foi marcado como solução
Resolvido
-
O post de Bikke em Limpar dados de várias celulas, Excel 2007 foi marcado como solução
Já me resolveram o problema, fica aqui o código VBA para quem precisar.
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Target.Count > 1 Then Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub End If If Target.Address(False, False) = "GC48" Then If Target.Value <> "" And IsNumeric(Target.Value) Then Sheets("TARDE").Range("Q54").Value = "" Sheets("TARDE").Range("Q56").Value = "" Sheets("NOITE").Range("Q53").Value = "" Sheets("NOITE").Range("Q55").Value = "" Sheets("DISTRIBUIÇÃO").Range("B42").Value = "" Sheets("DISTRIBUIÇÃO").Range("B46").Value = "" Sheets("DISTRIBUIÇÃO").Range("F42").Value = "" Sheets("DISTRIBUIÇÃO").Range("F46").Value = "" End If End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Um resto de boa semana para todos.
Cumps
-
O post de Bikke em Célula ao ser preenchida, surge uma MsgBox foi marcado como solução
Já está resolvido
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("G7:G211"), Target) Is Nothing And Target.Value <> "" Then MsgBox " ATENÇÃO !!!!!.... ??" & vbLf & _ vbLf & "Só pode voltar a usar este número ao fim de 30 dias...." & vbLf & _ vbLf & " ..... Favor de consultar os números vagos ..... ", vbCritical, "Numeração Geral 2017" End If End Sub
-
O post de Bikke em Célula do Excel com determinado valor - Toca Som foi marcado como solução
Assunto Resolvido
Obrigado
Cumps
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais