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,344 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)

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