Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Enviar valor TextBo...
 
Notifications
Clear all

Enviar valor TextBox para outra planilha

 
2024 - VBA & Macros
Post Recente por Wagner Morel 6 anos atrás
4 Posts
3 Usuários
0 Reactions
1,051 Visualizações
RSS
 pires
(@pires)
Posts: 17
Active Member
Topic starter
 

Bom dia Senhores,

Uma duvida rapida.

Tenho a seguinte macro que lança valores de uma textbox para uma determinada célula da planilha.

dim linha As Integer
    linha = Plan1.Range("n100000").End(xlUp).Offset(1, 0).Row
    Plan1.Range("n" & linha).Value = TextBox25.Value

    linha = Plan1.Range("o100000").End(xlUp).Offset(1, 0).Row
    Plan1.Range("o" & linha).Value = TextBox24.Value

Eu gravo os valores do textbox na planilha por via de um botão de comando no formulário. Gostaria que a informação fosse direto para outra planilha ao apertar o botão

Obrigado desde já.

 
Postado : 09/08/2018 8:29 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Por favor, para te dar uma resposta mais exata poste sua planilha ou responda:

Onde fica essa textbox? Em uma Planilha ou em uma Userform?

Caso a Textbox fique em uma planilha, qual o nome da planilha em que o textbox fica?
Qual o nome do textbox que vai gerar o valor?

Caso esteja em Userform, qual o nome dele?

Qual o nome do botão de comando?
Qual o nome da Planilha que deve receber o valor?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 09/08/2018 8:40 am
 pires
(@pires)
Posts: 17
Active Member
Topic starter
 

Bom dia Xlarruda,

Os textboxs ficam dentro de um UserForm, com o nome "lançar".
O botão também fica dentro do Userform, com o seguinte código.

Private Sub CommandButton2_Click()

Dim linha As Integer

    linha = Plan2.Range("n100000").End(xlUp).Offset(1, 0).Row
    Plan2.Range("n" & linha).Value = TextBox22.Value
    linha = Plan2.Range("o100000").End(xlUp).Offset(1, 0).Row
    Plan2.Range("o" & linha).Value = TextBox20.Value
    
    Dim resposta
    resposta = MsgBox("-----Observação Lançada----")
    
    Unload Me
    
End Sub

O código está parametrizado para lançar na plan2 da planilha em que está o userform, gostaria que a ela lançasse os valores em outra planilha, de nome "base.xlsm".
Espero ter sido mais claro.

 
Postado : 09/08/2018 8:52 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

pires,

Boa tarde!

Veja se é assim:

    Private Sub CommandButton2_Click()

    Dim linha As Integer
      'Supondo que você quer lançar o valor na Aba chamada Plan2 do arquivo Base.xlsm...
        linha = Workbooks("Base.xlsm").Sheets("Plan2").Range("n100000").End(xlUp).Offset(1, 0).Row
        Workbooks("Base.xlsm").Sheets("Plan2").Range("n" & linha).Value = TextBox22.Value
        linha = Workbooks("Base.xlsm").Sheets("Plan2").Range("o100000").End(xlUp).Offset(1, 0).Row
        Workbooks("Base.xlsm").Sheets("Plan2").Range("o" & linha).Value = TextBox20.Value
       
        Dim resposta
        resposta = MsgBox("-----Observação Lançada----")
       
        Unload Me
       
    End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/08/2018 10:47 am
Forum Jump:
  Tópico Anterior
Próximo Tópico