Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planiha vba textbox insere dados planilha

Excel planiha vba textbox insere dados planilha

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

E
sses macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o Evento Worksheet_Change, afeta a folha de planilha ativa ao digitar algo, neste caso escolhemos duas células (B5 e D5), ao digitar nestas células determinadas palavras o aplicativo abrirá um
userform com algumas textbox vai inserir dados em determinadas colunas na folha de planilha.
Espero que o exemplo lhe seja útil. Fique com Deus, Expedito Marcondes.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
INSIRA O CÓDIGO ABAIXO NA FOLHA DE CÓDIGO DA FOLHA DE PLANILHA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" And Target.Count = 1 Then
  
   If Target.Value = "Motor" Then
      frmDADOS1.Show
   End If
  
ElseIf Targett.Address = "$D$5" And Target.Count = 1 Then
   
    If Target.Value = "Ponte" Then
       frmDADOS2.Show
     End If
    
End If

End Sub

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Um exemplo simples de como  transferir dados de um objeto textbox para células na folha de planilha do excel .

NO MODULO DE EDIÇÃO DO FORMULÁRIO frmDADOS1 INSIRA OS CÓDIGOS:
Private Sub cmdLANCAR_Click()
[O6:P1000].ClearContents 'limpar a area de inserção de novos dados.

Plan1.[O65000].End(xlUp).Offset(1, 0) = "Largura"
Plan1.[O65000].End(xlUp).Offset(0, 1) = CDbl(txtLARGURA)

Plan1.[O65000].End(xlUp).Offset(1, 0) = "Comprimento.:"
Plan1.[O65000].End(xlUp).Offset(0, 1) = CDbl(txtCOMPRIMENTO)

MsgBox ("Dados inseridos com sucesso"), vbInformation, "Saberexcel - o site das macros"
End Sub

Private Sub cmdFECHAR_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
txtLARGURA.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

NO MODULO DE EDIÇÃO DO FORMULÁRIO frmDADOS2 INSIRA OS CÓDIGOS:

Private Sub cmdLANCAR_Click()
[J6:K1000].ClearContents
Plan1.[J65000].End(xlUp).Offset(1, 0) = "Potencia"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtPOTENCIA)

Plan1.[J65000].End(xlUp).Offset(1, 0) = "Tensão"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtTENSAO)

Plan1.[J65000].End(xlUp).Offset(1, 0) = "Rotação"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtROTACAO)

MsgBox ("Dados inseridos com sucesso"), vbInformation, "Saberexcel - o site das macros"
End Sub

Private Sub UserForm_Initialize()
txtPOTENCIA.SetFocus
End Sub

Private Sub cmdFECHAR_Click()
Unload Me
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



   Baixe o exemplo de planiha contendo os macros e procedimentos acima:

Última atualização em Seg, 31 de Outubro de 2011 08:00  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje48
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana29812
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês43541
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466370
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA