Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Campo Dinânico em F...
 
Notifications
Clear all

Campo Dinânico em Formulário

 
2024 - VBA & Macros
Post Recente por Andersonjs 10 anos atrás
3 Posts
2 Usuários
0 Reactions
962 Visualizações
RSS
 Andersonjs
(@andersonjs)
Posts: 13
Active Member
Topic starter
 

Bom dia,

Tenho um formulário, no qual simulo uma grid com 20 linhas. E as colunas deste formulário seguem o seguinte padrão:
frm_Comparacao.txt_NFE_Item_Descricao_1
frm_Comparacao.txt_NFE_Item_Descricao_2
frm_Comparacao.txt_NFE_Item_Descricao_3
frm_Comparacao.txt_NFE_Item_Descricao_4
frm_Comparacao.txt_NFE_Item_Descricao_5
frm_Comparacao.txt_NFE_Item_Descricao_6
...
...

Os dados que alimentarão estes campos estão armazenados em um Array.
Gostaria de alimentar estes campo através de um For...Next, mas não sei como deixar a chamada do nome do campo dinâmica

Seria algo parecido com isso:
For i = 1 To NumeroItem - 1
frm_Comparacao.txt_NFE_Item_Descricao_(i) = NFE_Item_Descricao(i)
Next

Alguém pode me ajudar?

Obrigado

 
Postado : 20/05/2014 8:43 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Andersonjs,

Boa Tarde!

Veja se assim resolve:

    Dim CaixasDeTexto As Control
    Dim iAs Long
    
    i = 1
    For Each CaixasDeTexto In frm_Comparacao.Controls
        If Left(CaixasDeTexto.Name, 7) = "txt_NFE" Then
            frm_Comparacao.CaixaDeTexto.Text = NFE_Item_Descricao(i)
            i = i+ 1
        End If
    Next

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 : 20/05/2014 9:14 am
 Andersonjs
(@andersonjs)
Posts: 13
Active Member
Topic starter
 

Muito Obrigado Wagner!

 
Postado : 20/05/2014 9:44 am
Forum Jump:
  Tópico Anterior
Próximo Tópico