Fóruns
Microsoft Excel - 2...
Formulários
GRAVAR DADOS DE USE...
 
Notifications
Clear all

GRAVAR DADOS DE USERFORM EM OUTRA PLAN

 
Formulários
Post Recente por Paulinha 9 anos atrás
5 Posts
3 Usuários
0 Reactions
1,341 Visualizações
RSS
 Paulinha
(@paulinha)
Posts: 3
New Member
Topic starter
 

olá,
Boa noite!!!

Pessoal, estou criando a minha própria planilha de controle de clientes e fluxo de caixa. Apesar das dificuldades, estou conseguindo ir bem.

Porém, travei em uma situação, que não estou conseguindo sair.

Eu criei o userform1 para cadastro de novos pagamentos, e esses dados serão lançados na planilha ADMINISTRATIVO. - deu certo e funcionando!

Porém, quando na capa, eu criei um botão para abrir o USERFORM, os dados não ficam mais registrados no ADMINISTRATIVO, mas sim na própria CAPA.

o comando que usei foi Sub Botão1_Clique()

UserForm1.Show

End Sub

o que eu gostaria é de abrir o userform através do botão da capa, mas com os dados gravados na planilha ADMINISTRATIVO.

se puderem me ajudar,
sou muito grata!!

 
Postado : 30/01/2016 11:26 pm
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Olá amiga.
Posta o arquivo para visualizar a situação.

 
Postado : 30/01/2016 11:48 pm
 Paulinha
(@paulinha)
Posts: 3
New Member
Topic starter
 

Olá,

obrigada pela ajuda.

como disse, se vc clicar no botão "cadastrar novo pagamento" ele abre o userform.

Mas quando vc pede para salvar os dados, ele salva na própria capa, ao invés da guia Administrativo.

abraços.

 
Postado : 31/01/2016 12:04 am
 messiasmbm
(@messiasmbm)
Posts: 223
Estimable Member
 
Private Sub CommandButton1_Click()
Dim ultimALINHA
ultimALINHA = Sheets("ADMINISTRATIVO").Range("C1000000").End(xlUp).Row
Dim NUMERO As Double
On Error Resume Next
NUMERO = TextBox7
Sheets("ADMINISTRATIVO").Select
Sheets("ADMINISTRATIVO").Range("B" & ultimALINHA + 1).Value = TextBox4.Value
Sheets("ADMINISTRATIVO").Range("C" & ultimALINHA + 1).Value = TextBox3.Value
Sheets("ADMINISTRATIVO").Range("D" & ultimALINHA + 1).Value = TextBox5.Value
Sheets("ADMINISTRATIVO").Range("E" & ultimALINHA + 1).Value = TextBox6.Value
Sheets("ADMINISTRATIVO").Range("F" & ultimALINHA + 1).Value = ComboBox2.Value
Sheets("ADMINISTRATIVO").Range("G" & ultimALINHA + 1).Value = ComboBox1.Value
Sheets("ADMINISTRATIVO").Range("H" & ultimALINHA + 1).Value = NUMERO
Sheets("ADMINISTRATIVO").Range("I" & ultimALINHA + 1).Value = ComboBox3.Value
ComboBox1 = Empty
ComboBox2 = Empty
ComboBox3 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
MsgBox "Pagamento Cadastrado!", vbInformation, "LANÇAMENTOS"
End Sub
 
Postado : 31/01/2016 2:08 am
 Paulinha
(@paulinha)
Posts: 3
New Member
Topic starter
 

Messiasmbm,

Muito obrigada por sua ajuda!! super funcionou o código!!!
Vou marcar aqui como resolvido

Abraços,

 
Postado : 31/01/2016 7:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico