Solicitar preenchimento de células

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Já vi algo parecio com meu título no fórum, mas não é o que exatamente preciso.

Bom, primeiramente boa tarde néh!

Seguinte pessoal: Na pasta de trabalho que estou finalizando existem 16 planilhas, eu uma delas, eu devo informar NOME DA EMPRESA - RAMO DE ATIVIDADE E CNPJ e esses dados são transferidos para outras planilhas. O que quero pode parecer muitíssimo complicado para um simples mortal como eu, mas, talvez, seja muito simples para vocês aqui do Planilhando.

Quero que, ao abrir a minha pasta de trabalho, se não tiver nenhum nome defnido nos 3 campos citados acima surja uma mensagem perguntando se desejo incluir um novo NOME DA EMPRESA - RAMO DE ATIVIDADE E CNPJ, onde, quando clicar que desejo incluir, apareça uma janela para eu informe estes dados. Lembrando que isso deve ocorrer apenas se as células estivem em branco, ou seja, sem preenchimento.

Confio muito que exista possibilidade de se fazer isso, pois, sei que aqui é o lugar certo, onde existe muita gente extremamente capacitada, e mais, já solicitei ajuda em algumas coisas que nunca imaginava que pudesse ter solução, no entanto, sempre apresentaram respostas satisfatórias.

Em anexo, segue a planilha que desejo que receba as devidas informações.

Postado : 03/07/2012 9:49 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

Essa é meio complicada néh, será que alguém se habilitará?

Postado : 03/07/2012 11:08 am

benzadeus

(@benzadeus)

Posts: 78

Trusted Member

A Planilha está com senha. Consegui destravar, mas lembre-se de, quando pedir ajuda, informar a senha das Planilhas da Pasta de Trabalho ou disponibilizar a Pasta de Trabalho sem nenhum bloqueio.

Sua Planilha possui sérios problemas de desempenho. Você colocou um laço massivo no evento SelectionChange de Planilha só para converter em maiúculas um intervalo. Por que não colocar esse código num evento diferente, como Deactivate? Se fizer isso, melhorará muito a experiência do usuário.

Sobre a solução do seu problema, crie o formulário que deseja que o usuário entre com os dados na hipótese dos campos mencionados não estiverem preenchidos e adicione o código abaixo na classe de sua Pasta de Trabalho:

Private Sub Workbook_Open()
    With Me.Sheets("Relação de Funcionários")
        If .Range("B1") & .Range("E1") & .Range("I1") = "" Then
            'Faz chamada ao formulário frmEntrarDados
            frmEntrarDados.Show
        End If
    End With
End Sub

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

Postado : 03/07/2012 11:33 am

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

benzadeus??? Seria alguma surpresa eu dizer que não consegui colocar a coisa para funcionar??? Seria possível, demonstrar em meu exemplo?

Postado : 03/07/2012 1:05 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

benzadeus??? bom dia!

Consegui inserir o código e o formulário, só não consegui fazer com que o botão de OK feche a caixa de dados. Será que pode me ajudar?

Postado : 04/07/2012 5:46 am

benzadeus

(@benzadeus)

Posts: 78

Trusted Member

Olá, disponibilize novamente sua Pasta de Trabalho porque não consigo reproduzir o seu erro sem ver o formulário que criou.
O que seria "Caixa de Dados"? Seria o formulário? Se sim, use a instrução Unload para fechar e descarregar um formulário, como em:

Unload Me

Associe o código acima ao término da rotina em que o usuário clica num botão para salvar os dados.

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

Postado : 04/07/2012 5:12 pm

Charlie-81

(@charlie-81)

Posts: 290

Reputable Member

Topic starter

benzadeus... bom dia!!!

O que falta é exatamente o que citou na última resposta, carregar os dados inseridos no formulário na planilha. O nome do formulário no projeto é Dados_Empresa. Minha pasta de trabalho segue em anexo. O usuário e senha enviei por MP.

Postado : 05/07/2012 5:13 am

benzadeus

(@benzadeus)

Posts: 78

Trusted Member

Hoje meu dia está corrido. Sugiro que remova os dados sigilosos de seu projeto e envie novamente aqui, destravado. Da forma como esse tópico está evoluindo, somente eu poderei te ajudar porque só eu tenho a senha, e como você precisa da resposta, torne sua pergunta pública.

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

Postado : 05/07/2012 6:53 am