Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Userform para inserir a data numa determinada célula de várias folhas.

Ir para baixo 
2 participantes
AutorMensagem
ee99161




Mensagens : 19
Data de inscrição : 27/09/2014

Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. EmptyDom Out 05, 2014 6:20 pm

Boas Alexandre,

Estou a evoluir bastante com a minha folha de excel e a sua ajuda foi e continua a ser fundamental.
A macro que me arranjou por causa daquilo das datas, está a funcionar lindamente, já adaptei para as outras folhas todas. Agora gostava de fazer uma coisa. Tenho uma folha resumo, onde aparece variada informação de todas as folhas presentes no meu ficheiro. Queria nessa folha inserir uma célula ou um userform (o que der mais jeito) e uns botões. Ora bem, tenho 5 sheets de informação e uma de resumo. Nessas 5 de infomação, uma delas é aquela do banco que me fez com aquela macro (elas são todas iguais, o principio de funcionamento e localização das células, só muda o nome da sheet), ou seja, inserir a data e ao clickar, digamos no primeiro botão ele inserir a data na folha correspondente. Se clickar no primeiro botão, ele ir para a sheet "Evolução BIC" e colar a data. Essa data tem de ser no dia a seguir ao último dia, se colocar a data 05-10-2014, ele tem de verificar se a data 04-10-2014 existe e usar a célula seguinte. Outra coisa, tem de verificar se essa data já existe e se existir, inseri-la na mesma posição onde ela estava. Digamos que eu colocava lá a data, 04-10-2014, ela já deveria estar na folha, pelo que ele procura e como já existe, nessa mesma célula insere-a.

Obrigado mais uma vez.

PS - É verdade, já consegui aquilo de recolher informação dos sites, andei a pesquisar e consegui descobrir pelo Yahoo que já existem toneladas de macros para fazer isso.
Ir para o topo Ir para baixo
ee99161




Mensagens : 19
Data de inscrição : 27/09/2014

Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. EmptyDom Out 05, 2014 8:05 pm

Já descobri qualquer coisa, mas não sei se vai funcionar.

Private Sub cmdTransfer_Click()
Dim FoundCell As Range
Dim Search As String
Dim eRow As Long
eRow = Worksheets(“Evolução BIC”).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Search = txtData.Text
Set FoundCell = Worksheets(“Evolução BIC”).Columns(1).Find(Search, LookIn:=xlValues, Lookat:=xlWhole)

If FoundCell Is Nothing Then
Cells(eRow, 1).Value = txtData.Text
Else
Replace FoundCell.Adress with txtData.Text
End If
End Sub

O meu problema é com a linha assinalada. Isso é possível? Como faço isso? Acho que dá para perceber a ideia.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. EmptySeg Out 06, 2014 3:05 am

Boa noite!!

Tem como postar seu arquivo modelo?

Att
Ir para o topo Ir para baixo
ee99161




Mensagens : 19
Data de inscrição : 27/09/2014

Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. EmptySeg Out 06, 2014 1:16 pm

Boas Alexandre,

Segue o link para download:

https://dl.dropboxusercontent.com/u/59281190/Fundos2.xlsm

Está assinalado a vermelho o espaço que pretendia para a alteração. Pode ser a célula, ao inserir a data ele verifica nas páginas "Evolução" e Acções, para alterar a data se existir e para acrescentar se não existir.

Eu vou eliminar as datas após o dia de hoje, porque não faz sentido.

Obrigado.
Ir para o topo Ir para baixo
ee99161




Mensagens : 19
Data de inscrição : 27/09/2014

Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. EmptyTer Out 07, 2014 12:44 am

Caro Alexandre,

Já conseguiu dar uma olhadela na minha folha? Aquilo começou por ser uma coisa muito simples, mas há medida que vai passando o tempo e que vou vendo mais umas coisas, tento melhorar.
Obrigado.

Cumprimentos.
Pedro
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. EmptyTer Out 07, 2014 4:39 pm

Bom dia!!

Então no trabalho, é bloqueado o acesso a sites de hospedagem, após o trabalho eu vou para faculdade, chego em casa 23:00, fica complicado.... Crying or Very sad

Att
Ir para o topo Ir para baixo
ee99161




Mensagens : 19
Data de inscrição : 27/09/2014

Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. EmptyTer Out 07, 2014 6:01 pm

Claro, percebo isso perfeitamente e peço desculpa por estar a chatear.
Quando puder, não há problema.

Obrigado.
Pedro
Ir para o topo Ir para baixo
Conteúdo patrocinado





Userform para inserir a data numa determinada célula de várias folhas. Empty
MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Userform para inserir a data numa determinada célula de várias folhas. Empty

Ir para o topo Ir para baixo
 
Userform para inserir a data numa determinada célula de várias folhas.
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» MsgBox ao clicar numa célula
» funçao vba para inserir valor em uma celula
» Inserir Imgem nu userform
» UserForm - Inserir dados pré-determinados em caixa de texto [RESOLVIDO]
» Buscar a última DATA válida numa coluna

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: