Ir ao conteúdo
  • Cadastre-se

MID CURSOS

Membro Pleno
  • Posts

    29
  • Cadastrado em

  • Última visita

Reputação

1
  1. estou preparando um trabalho para um colega no word. fazendo as formatações que ele não conseguiu, entre elas tem uma que não estou conseguindo. o trabalho não para contar a capa. e a numeração de página é para aparecer a partir da introdução iniciando no 3, a capa não conta, a folha rosto é 1 e sumário é 2, só que não estou consigo fazer.
  2. segue em anexo a planilha e o bano no qual faço conexão, mas no form "frmatfuncionario" e no "frmctfunciorio". esta dando o seguinte ("erro de execução '3705' operação não permitida quando objeto estiver aberto.) e não estou conseguindo encontrar obs: o endereço do banco esta em uma célula nomeada com Cbanco. tem que trocar no momento que for abrir. projeto -sistema loja.rar
  3. uso o seguinte código: #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As LongPtr #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As Long Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #End If aí acontece o erro: "erro de compilação - tipos e incompatíveis. e seleciona o parâmetro FindWindow, da seguinte parte do código. Sub removeCaption(objForm As Object) Dim lStyle As Long Dim hMenu As Long Dim mhWndForm As Long If Val(Application.Version) < 9 Then mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97 Else mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+ End If lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm End Sub vou usar essa planilha em ksa com o office 2016 64 bits e no trabalho 2013 32 bits. não estou acertando resolver esse problema. segue em anexo o arquivo que estou trabalhando. CRIANDOPLANLHACERTIFICADO.rar
  4. Boa tarde, tenho uma planilha que esta distribuída com informações dos conteúdos de pacote de cursos. e estou montando uma planilha que fará a solicitação e impressão do certificado. mas alguns campos nem sempre vão esta com o conteúdo. no momento estou concatenando e separando por vírgula. gostaria de substituir a vírgula por vazio quando um determinado conteúdo for vazio. um conhecido me disse para usar "unirtexto" mas esta função esta somente no office 2016 e no trabalho é o 2013. teria outra maneira? segue o anexo do arquivo de exemplo. ExampleJunior.xlsx
  5. fiz um formulário de login, neste formulário tem um botão sair. nele usei o seguinte código, unload Formlogin, só que ele está fechando só o formulário e não fecha a planilha. não estou acertando fazer esse procedimento.
  6. utilizo o seguinte código que esta em anexo e atribuo a macro ocultar e mostrar a botões. ocultarmostrar.txt
  7. boa tarde, estou com probleminha em minha planilha. nesta planilha ja utilizo com ajuda do membros deste fórum mas recentemente vi que a função está retornando a data errada por exemplo era para retornar o dia 7 que corresponde a sexta do mês atual. mas está retornando 6 que é quinta-feira. esta função estava dando certo mas neste mês que deu esse problema. e não consegui consertar. segue em anexo para melhor entendimento. desde já muito obrigado Pasta1.xlsx
  8. fiz um controle de frequência para compartilhar o este arquivo em excel para duas ou mais pessoas usarem ao mesmo tempo, so que depois que coloquei uma macro para destacar linha ativa. o arquivo não abriu mais no pc da outra pessoa que utiliza o office 2013. no meu pc abre normalmente, utilizo o office 2016. estou anexando dois arquivos um com macro e outro sem macro. o que pode esta acontecendo para não abrir mais frequncia_compartilhada.rar
  9. Boa Tarde, seria melhor você anexar um arquivo de exemplo para facilitar o raciocínio para lhe ajudar. Obs: arquivo tem estar compactado em rar. zip, pois tem alguns formatos que o fórum não aceita. assim fica melhor para feras em Vba lhe ajudar.
  10. Bom Marilia a acredito que fechada não tem como, mas sim todas tem que esta abertas.
  11. segue em anexo um exemplo forum_lista_suspensa.xlsx
  12. Bom dia, Diego no caso não vai ter como eu utilizar desta maneira por q tenho que usar validação de dados em todas as células.
  13. boa noite, lista com estados, cidades, bairros ruas e cep gostaria de criar uma lista suspensa que quando escolher o estado aparecer somente as cidades referente a este estado e também os bairros referente a cidade escolhida e assim as ruas e o cep, já consegui fazer com a cidades mas não estou conseguindo fazer com os bairros e as ruas e com o cep

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

×
×
  • Criar novo...