Ir ao conteúdo
  • Cadastre-se

Excel Userform para inserir em dois intervalos diferentes


Ir à solução Resolvido por Midori,

Posts recomendados

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

Link para o post
Compartilhar em outros sites
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.

Link para o post
Compartilhar em outros sites
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.

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!