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

Pegar valor textbox por tabindex

 
2024 - VBA & Macros
Post Recente por Wagner Morel 5 anos atrás
8 Posts
4 Usuários
0 Reactions
2,871 Visualizações
RSS
 luisbarros
(@luisbarros)
Posts: 8
Active Member
Topic starter
 

Boa noite, não sei se é o melhor jeito de fazer mas minha ideia é jogar os dados das textbox de um formulario na planilha referenciando tabindex com a coluna da planilha.
Mas não sei como pegar o valor do textbox utilizando o tabindex.

Ficaria algo assim:
for i = 1 to 10
cells(1,i).value = ????.tabindex(i).value

 
Postado : 09/10/2019 9:22 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

luisbarros,

Bom dia!

Não entendi... porque com TabIndex?

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 : 10/10/2019 6:56 am
 luisbarros
(@luisbarros)
Posts: 8
Active Member
Topic starter
 

Bom dia,
Pode ser de outra forma, a ideia principal é conseguir jogar os dados do formulário para a planilha através de uma estrutura de repetição , usando a referencia do textbox(tabindex ou outro maneira) para jogar na coluna da planilha.

 
Postado : 10/10/2019 7:31 am
Reinaldo
 Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Supondo que suas textbox seja nomeadas =/- assim: TextBox1,TextBox2...TextBox10
pode experimentar:

For Num=1 to 10
    cells(1,Num).value =  Controls("TextBox" & Num)
next

Reinaldo

 
Postado : 10/10/2019 9:34 am
 luisbarros
(@luisbarros)
Posts: 8
Active Member
Topic starter
 

Os nomes estão alterados, por isso estava tentado pelo tabindex ou outro jeito que desse para numerar eles.

 
Postado : 10/10/2019 10:04 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

E porque nao do jeito simples?

cells(linha,1).value = textbox1.value
cells(linha,2).value = textbox2.value
.
.
.
.
.
cells(linha,10).value = textbox10.value

Ajuste os devidos nomes e pronto.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/10/2019 2:14 pm
Reinaldo
 Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

"...Os nomes estão alterados, por isso estava tentado pelo tabindex ou outro jeito que desse para numerar eles..."
Disponibilize seu modelo, ou um exemplo que seja condizente com a estrutura de sua planilha/formulario, para que assim possamos, talvez, sugerir alguma alternativa.
Utilise algum site de compartilhamento de arquivos tipo sendspace/google drive/dropbox....

Reinaldo

 
Postado : 10/10/2019 7:29 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

luisbarros,

Bom dia!

Você pode usar o código abaixo:

Private Sub CommandButton1_Click()
    'Esse exemplo pecorre todos os controles no Userform. Se for um objeto do _
    tipo Caixa de Texto, exibe o nome da Caixa de Texto. Altere de modo a fazer _
    o que você quer.
    For Each bt In UserForm1.Controls
        If VarType(bt) = 8 Then
            MsgBox bt.Name
        End If
    Next
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 : 11/10/2019 8:19 am
Forum Jump:
  Tópico Anterior
Próximo Tópico