RafaVillani
-
Posts
425 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de RafaVillani em VBA_Exportando PDF com condição SIM ou NÃO foi marcado como solução
Amigo, troque seu código na parte do msgbox por esse.
Dim resposta as interger resposta = msgbox "Deseja gerar arquivo para impressao?", vbyesno if resposta = vbyes then 'seu codigo aqui else 'seu codigo aqui end if
-
O post de RafaVillani em Preenchimento combobox condicionado critérios foi marcado como solução
Fala pessoal, depois de muito quebrar a cabeça , eu finalmente consegui o que queria utilizando um vetor. Segue o código, acredito que irá ajudar.
Private Sub ComboBox3_enter() Dim l As Long Me.ComboBox3.Clear Dim a(1 To 6) As Integer 'declaracao do vetor a(1) = 1 'armazanado valores em cada posicao do vetor a(2) = 2 a(3) = 3 a(4) = 4 a(5) = 5 a(6) = 6 For l = 2 To Plan3.Range("A" & Rows.Count).End(xlUp).Row 'loop ate a ultima linha preenchida If Plan3.Cells(l, 2) = Me.ComboBox1 And Plan3.Cells(l, 3) = Me.ComboBox2 Then 'varifica se os valores das 'colunas 2 e 3 são igual aos 'selecionados nos combobox 1 e 2 For i = 1 To 6 'loop no vetor If Plan3.Cells(l, 4).Value = a(i) Then 'verifica se o valor da coluna 3 é igual as 6 possicoes 'do vetor a(i) = 0 'se o valor for igual, a posicao do vetor recebe 0 End If Next i End If Next l For i = 1 To 6 ' loop no vetor If a(i) <> 0 Then 'verifica se o valor de cada posicao do vetor é diferente de 0 Me.ComboBox3.AddItem a(i) 'carrega no combobox os valores do vetor diferentes de 0 End If Next End Sub
abraços
RafaVillani
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais