O LIMS – IFPI estah realizando o Agile Piaui, um encontro sobre desenvolvimento agil de software. http://bit.ly/bExYSH
Para quem deseja alimentar um listbox ou um combobox através de um looping, segue dica.
Crie uma planilha simples e faça duas listas.
Para haver ocorrer o preenchimento é necessário que no UserForm esteja no modo INITIALIZE ou ACTIVATE
Private Sub UserForm_Activate() Dim i As Integer Dim A As String 'Criando lista para combobox1 'Do - funçao para início de loop 'i - incrementará um até a condição de parada 'Loop Until - Percorra até que a celula ativa tenha o valor vazio i = 0 Do i = i + 1 Loop Until Plan1.Cells(i, 1).Value = "" 'Preenchendo o combobox ComboBox1.RowSource = "A1:A" & i 'Criando a lista para o combobox2 i = 3 Do i = i + 1 Loop Until Plan1.Cells(i, 5).Value = "" 'Preenchendo o combobox ComboBox2.RowSource = "e3:e" & i End Sub
Ficando dessa forma:
E o resultado final é:
Olá pessoa,
Tem um colega de trabalho que para qualquer coisa que aconteça no dia-a-dia, ele possui frases para tudo, segue lista:
- Com todo meu respeito (…);
- Na informática, ou é 0 ou é 1;
- Problema difícil – “Quem te fez foi um homem“;
- Problema solucionado – “O mais difícil foi aprender a ler“;
- Problema não resolvido – “Amanhã é outro dia“;
- Ligação as 18hs – “se alguém ligar pra mim volto já já“;
- Situações difíceis – “Ou é par ou é ímpar“;
- Pipoco do Tomaz – “Assuma suas responsabilidades!!!“;
- Alguem com grande problema -”Tua batata tá assando“;
- Código complicado – “Tem horas que eu me espanto“
- “Quem não era o Laeção“
- “Eu amo a minha namorada“;
em breve mais frases.
