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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
ee99161



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

MensagemAssunto: Userform para inserir a data numa determinada célula de várias folhas.   Dom 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
ee99161



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

MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Dom 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

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

Boa noite!!

Tem como postar seu arquivo modelo?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
ee99161



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

MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Seg 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
ee99161



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

MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Ter 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Ter 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
ee99161



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

MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Ter 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Userform para inserir a data numa determinada célula de várias folhas.   Hoje à(s) 8:53 am

Voltar ao Topo Ir em baixo
 
Userform para inserir a data numa determinada célula de várias folhas.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Colocar módulos numa determinada página
» Criar uma caixa para inserir texto
» colocar um modelo de postagem pronto para inserir
» Criar índice em tópicos numa determinada categoria do fórum
» codigo para full screen e para tela normal

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: