Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir dados do li...
 
Notifications
Clear all

Inserir dados do listbox para uma célula.

 
2024 - VBA & Macros
Post Recente por Wagner Morel 8 anos atrás
6 Posts
2 Usuários
0 Reactions
1,658 Visualizações
RSS
valdecirrk
 valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

Bom dia

Preciso de um comando que após ter incluído os valores no ListBox, essas informações seja inseridas em uma célula separados por vírgula.

 
Postado : 09/05/2017 5:45 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

valdecirrk,

Bom dia!

Para que todos possam ajudar de forma mais rápida e eficiente, anexe aqui mesmo no fórum seu arquivo compactado com .ZIP.

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 : 09/05/2017 5:59 am
valdecirrk
 valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

Esta primeiro comando insere os valores no listbox apartir de um checkbox,

Private Sub ckbPericulosidade_Click()
    If ckbPericulosidade.Value = True Then
        lbxCondenacao.AddItem (ckbPericulosidade.Caption & ",")
    End If
End Sub

neste segundo comando eu tentei no botão gravar que fosse inserido em uma célula, mas não funcionou.

P1.Cells(I + 1, 62).Resize(.lbxCondenacao.ListCount, .lbxCondenacao.ColumnCount) = .lbxCondenacao.List
 
Postado : 09/05/2017 6:04 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

valdecirrk,

Bom dia!

Veja se assim ajuda.

Inserir dados do ListBox na Célula.zip

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 : 09/05/2017 6:55 am
valdecirrk
 valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

me mande o arquivo zipado no email particular, eu não consigo aqui na empresa baixar.

 
Postado : 09/05/2017 6:58 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Qual é o email particular?

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 : 09/05/2017 7:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico