Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Carregar Combobox
 
Notifications
Clear all

Carregar Combobox

 
2024 - VBA & Macros
Post Recente por Miguel 70 10 anos atrás
6 Posts
3 Usuários
0 Reactions
1,345 Visualizações
RSS
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Óla bom dia!
Como faço para carregar userform com estas configurações?

Private Sub UserForm_Initialize()
TextBox1 = Format(Date, " dd-mm-yyyy ") 'Aqui eu quero que, se usuário digitar data usando não aceitar.
ComboBox1.Style = fmStyleDropDownList
Me.ComboBox1 = "DIURNO" & "NOTURNO" 'Aqui carregar combobox com apenas dois nomes DIURNO OU NOTURNO.
End Sub

Obrigado

 
Postado : 15/07/2014 8:04 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Poste seu arquivo modelo!!
Use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/07/2014 8:17 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Miguel 70,

Bom Dia!

Para evitar que o usuário digite a barra na data, na caixa de texto onde será inserida a data, coloque o código abaixo no evento KeyPress da mesma (supondo que sua caixa de texto se chama Txt_Data:

Private Sub Txt_Data_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Verifica qual é o caracter digitado na caixa de texto. Aceita somente _
    números, o hífem (-) e o backspace
    If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Or KeyAscii = 45) Then
       KeyAscii = 0
    End If
End Sub

Para carregar o ComboBox1. com os valores que você quer faça assim:

Me.ComboBox1.AddItem = "DIURNO"
Me.ComboBox1.AddItem = "NOTURNO"

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 : 15/07/2014 8:17 am
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Deu erro somente aqui não quer carregar comboBox1 com as duas opção
Me.ComboBox1.AddItem = "DIURNO"
Me.ComboBox1.AddItem = "NOTURNO"

http://www.4shared.com/file/gVtwJ1Cpba/Exemplo.html

 
Postado : 15/07/2014 9:15 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Miguel,

Desculpe. O Erro foi todo meu. É porque não testei. Não existe esses sinais de igual nas linhas de comando. Use este código:

Me.ComboBox1.AddItem "DIURNO"
Me.ComboBox1.AddItem "NOTURNO"

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 : 15/07/2014 11:38 am
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Ótimo Wagne Morel,

OBRIGADO.

 
Postado : 15/07/2014 1:36 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico