Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Salvar Dados em duas Planilhas[RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
epplenas
Colaborador
Colaborador
Mensagens: 97
Registrado em: Sex Ago 15, 2014 12:06 am

Salvar Dados em duas Planilhas[RESOLVIDO]

Mensagem por epplenas »

Boa Tarde, galera!

gostaria de saber se é possível salvar os dados da textbox em duas planilhas diferentes?
Editado pela última vez por epplenas em Dom Dez 21, 2014 5:57 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Salvar Dados em duas Planilhas

Mensagem por Reinaldo »

É possivel sim, há algo similar em: http://www.planilhando.com.br/forum/vie ... =23&t=3501

Genericamente seria algo +/- assim:

Código: Selecionar todos

Private Sub CommandButton1_Click()
Dim lastRow As Long
'Ativar a primeira planilha
ThisWorkbook.Worksheets("banco de dados").Activate

' Verifica qual a ultima linha preenchida
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
       
Cells(lastRow + 1, 1) = TextBox1.Text
'Coloque aqui as demaias txtx
'......
'Ativar a Segunda planilha
ThisWorkbook.Worksheets("A Prazo").Activate

' Verifica qual a ultima linha preenchida
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
' Aqui vão os dados(campos) a serem alocados em aprazo
    Cells(lastRow, 1) = TextBox1.Text
'.....e outros que necessarios
MsgBox "O registro  " & Me.ComboBox2 & " foi adicionado com sucesso!!!", 64, "Serviços Diarios"
'Limpar as caixa de texto
TextBox1.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
'......
End Sub


epplenas
Colaborador
Colaborador
Mensagens: 97
Registrado em: Sex Ago 15, 2014 12:06 am

Re: Salvar Dados em duas Planilhas

Mensagem por epplenas »

Rmarco, Boa Tarde!

grato pela resposta!


no caso o botao salvar tendo o comando abaixo, posso "acrescentar" outro comando:

Dim iRow_1 As Long
Dim ws_1 As Worksheet

Set ws_1 = Worksheets.Application.Sheets("Refugo")
iRow_1 = ws_1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

For x = 6 To 65 Step 2
If Controls("Textbox" & x).Value <> "" Then
ws_1.Cells(iRow_1, 1).Value = txt_reg.Value
ws_1.Cells(iRow_1, 2).Value = txt_tran.Value

no caso "criaria" este:

Dim iRow_1 As Long
Dim ws_1 As Worksheet

Set ws_1 = Worksheets.Application.Sheets("MIGO")
iRow_1 = ws_1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

For x = 6 To 65 Step 2
If Controls("Textbox" & x).Value <> "" Then
ws_1.Cells(iRow_1, 1).Value = txt_reg.Value
ws_1.Cells(iRow_1, 2).Value = txt_tran.Value


epplenas
Colaborador
Colaborador
Mensagens: 97
Registrado em: Sex Ago 15, 2014 12:06 am

Re: Salvar Dados em duas Planilhas

Mensagem por epplenas »

Ah, outra coisa que esqueci de mencionar!


no caso esta outra planilha, será uma informação impressa, e nao esta em linha, seria como um "recibo" ou "comprovante"......


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Salvar Dados em duas Planilhas

Mensagem por Reinaldo »

E isso mesmo, porem não há necessidade de repetir a definição de variaveis, já que são as mesmas.
epplenas escreveu:no caso esta outra planilha, será uma informação impressa, e nao esta em linha, seria como um "recibo" ou "comprovante"......
Não entendi , planilha é planilha, o que fará com ela depois e outra situação.
O layout de gravação é definido por você, porem precisa ver se irá precisar de todos os campos, se é possível utilizar a maneira que está utilizando (loop nos controles txt), um algoritmo de posicionamento dos dados etc...


epplenas
Colaborador
Colaborador
Mensagens: 97
Registrado em: Sex Ago 15, 2014 12:06 am

Re: Salvar Dados em duas Planilhas

Mensagem por epplenas »

Rmarco,

consegui fazer uma outra rotina, que além de salvar os dados na Planilha como base de dados, lança na outra planilha para impressão, segue exemplo:

Private Sub CommandButton6_Click()
Dim iRow_1 As Long
Dim ws_1 As Worksheet

Set ws_1 = Worksheets.Application.Sheets("Refugo")
iRow_1 = ws_1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
'lança os dados na base de dados
For x = 6 To 65 Step 2
If Controls("Textbox" & x).Value <> "" Then
ws_1.Cells(iRow_1, 1).Value = txt_reg.Value
ws_1.Cells(iRow_1, 2).Value = txt_tran.Value
ws_1.Cells(iRow_1, 3).Value = txt_pla.Value
'lança os dados para impressao em outra planilha
Sheets("MIGO").Range("G12").Value = txt_reg.Text
Sheets("MIGO").Range("F16").Value = txt_pla.Text
Sheets("MIGO").Range("B24").Value = TextBox6.Text


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder