Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Salvar Dados em duas Planilhas[RESOLVIDO]
Salvar Dados em duas Planilhas[RESOLVIDO]
Boa Tarde, galera!
gostaria de saber se é possível salvar os dados da textbox em duas planilhas diferentes?
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.
- Reinaldo
- 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
É possivel sim, há algo similar em: http://www.planilhando.com.br/forum/vie ... =23&t=3501
Genericamente seria algo +/- assim:
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
Re: Salvar Dados em duas Planilhas
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
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
Re: Salvar Dados em duas Planilhas
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"......
no caso esta outra planilha, será uma informação impressa, e nao esta em linha, seria como um "recibo" ou "comprovante"......
- Reinaldo
- 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
E isso mesmo, porem não há necessidade de repetir a definição de variaveis, já que são as mesmas.
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...
Não entendi , planilha é planilha, o que fará com ela depois e outra situação.epplenas escreveu:no caso esta outra planilha, será uma informação impressa, e nao esta em linha, seria como um "recibo" ou "comprovante"......
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...
Re: Salvar Dados em duas Planilhas
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
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