alteração de celula...
 
Notifications
Clear all

alteração de celulas direto em um formulario

4 Posts
2 Usuários
0 Reactions
1,329 Visualizações
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

Alterar valores das celulas direto no formulario, quando abrir o form ele mostrar o valor das celulas, ai, alterar e clicar no botão salvar e alterar, poque? como são varios campos a serem alterados quem nao conhece a planilha nao vai ficar indo de plan em plan para alterar, unindo tudo no formulario, pronto, nao tem erro entendeu?

abraço a todos

 
Postado : 12/11/2012 3:51 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Adicione as rotinas abaixo em seu Formulário :

Private Sub UserForm_Initialize()

    TextBox2.Value = Range("A1").Value
    TextBox3.Value = Range("A2").Value
    TextBox4.Value = Range("A3").Value
    
End Sub

Private Sub CommandButton1_Click()
    
    Range("A1").Value = TextBox2.Value
    Range("A2").Value = TextBox3.Value
    Range("A3").Value = TextBox4.Value

End Sub

[]s

 
Postado : 12/11/2012 6:48 pm
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

Mauro, ficou quase excelente, porem, falta so um probleminha, ele so pega os valores da planilha ativa, se eu abrir a plan1 ele me da tudo vazio, caso esteja tudo vazio, se eu abrir a plan2 e nao tiver nada ele me da os valors que estiverem na plan2 ativa, vou posta-la pra voce ver, mais ta ficando legal

 
Postado : 12/11/2012 7:10 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wil, eu só demonstrei de uma maneira simples de como carregar os dados no formulário ao abri-lo e como devolve-los a mesma nos ranges conforme o modelo e sua solicitação, se tivesse detalhado melhor teria postado diferente.

Aqui no serviço não tenho excel 2007, vou tentar explicar pelo que entendi em sua postagem.

Voltando a questão, acredito que ainda teremos mais perguntas, vou procurar antecipar :

Como será aberto o Formulário ?
quando abrir o form ele mostrar o valor das celulas
Se ele for carregado quando abrir o arquivo, em qual aba abrirá primeiro ?
Se for colocado um Botão em cada aba para chamar o formulário, é só alterar as intruções conforme abaixo :

Private Sub UserForm_Initialize()
Troque esta :
TextBox2.Value = Range("A1").Value, por
TextBox2.Value = ActiveSheet.Range("A1").Value
e esta, por :

Private Sub CommandButton1_Click()
Range("A1").Value = TextBox2.Value
ActiveSheet.Range("A1").Value = TextBox2.Value

Se quiser abrir o Formulário quando selecinar as Abas, coloque a rotina abaixo no Evento de cada aba, assim quando selecionar qq aba o formulário será carregado. :

Private Sub Worksheet_Activate()
    UserForm1.Show
End Sub

[]s

 
Postado : 13/11/2012 5:07 am