Excel Userform para inserir em dois intervalos diferentes

[Rafael nunes da silva]

Boa tarde, 

 

possuo uma planilha onde insiro dados através de um formulário com duas textbox.

o box Pallet inseri dados na coluna "B"

o box Nº serie inseri dados na coluna "A"

gostaria que ao preencher o box Pallet, esse dado fosse inserido também na célula "A1" da plan1 (somente nessa) ao mesmo tempo

 

em anexo um exemplo da macro que uso e abaixo o código nela contido.

 

 

Private Sub Button_Inserir_Click()
     
    
    Dim var_pallet As String
    Dim var_Nº_serie As String
        
        'Buscar valores
    var_pallet = TextBox_Pallet.Value
    var_Nº_serie = TextBox_Nº_serie.Value
    
    'Primeira linha da tabela
    Range("A2").Activate
    'Selecionar próxima célula em branco
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Activate
    
    
    If TextBox_Pallet.Text = Empty Then

       MsgBox "INSIRA Nº PALLET"

       TextBox_Pallet.SetFocus

    Exit Sub

    End If
    
    
    'Atribuir valores a tabela
    ActiveCell = var_Nº_serie
    ActiveCell.Offset(0, 1).Activate
    ActiveCell = var_pallet
    
    'Zerar valores do formulário
    
    TextBox_Nº_serie.Text = ""
    
    'Voltar cursor para primeiro textbox
    TextBox_Nº_serie.SetFocus

End Sub

 

 

inserir teste.7z

[Midori]

Em 26/10/2020 às 13:22, Rafael nunes da silva disse:

gostaria que ao preencher o box Pallet, esse dado fosse inserido também na célula "A1" da plan1 (somente nessa) ao mesmo tempo

Para inserir enquanto digita pode ser no evento Change,

 

Private Sub TextBox_Pallet_Change()
    [A1] = TextBox_Pallet
End Sub

 

Mas se for para inserir após o clique do botão é só colocar essa linha no evento do botão em vez desse.

[Rafael nunes da silva]

8 horas atrás, Midori disse:

Para inserir enquanto digita pode ser no evento Change,

 

Private Sub TextBox_Pallet_Change()
    [A1] = TextBox_Pallet
End Sub

 

Mas se for para inserir após o clique do botão é só colocar essa linha no evento do botão em vez desse.

Oi Midori, 

 

na verdade o local a ser inserido é na A1 da plan2, desculpe o erro meu só vi agora.

 

A plan1 é onde insiro os dados pela textbox e quero que insira tambem na outra planilha.

[Midori]

Na Plan2,

 

Private Sub TextBox_Pallet_Change()
    Sheets("Plan2").[A1] = TextBox_Pallet
End Sub

 

[Rafael nunes da silva]

12 horas atrás, Midori disse:

Na Plan2,

 

Private Sub TextBox_Pallet_Change()
    Sheets("Plan2").[A1] = TextBox_Pallet
End Sub

 

Feito, muito obrigado.

[Gustavo_Woltmann]

Bom dia! Estava com uma dúvida parecida. Obrigado por ajudar. Estava tentando resolver e não conseguia de jeito nenhum rsrs Valeu mesmo. Abraços!
Gustavo Woltmann