Olá,
Abri esse novo tópico a pedido do Scandinavo (O código abaixo e dele também).
Não consigo fazer a filtragem dos dados usando "vírgula" (Exemplo: 1,60 cm).
O Scandinavo acredita que o conflito está no uso da vírgula. Tanto que ele sugeriu em escrever dessa forma (Exemplo: 160 cm).
Mas gostaria de saber se é possível fazer a "filtragem das alturas menor/maior" com vírgula mesmo (1,60 cm) ?
Abri esse novo tópico a pedido do Scandinavo (O código abaixo e dele também).
Não consigo fazer a filtragem dos dados usando "vírgula" (Exemplo: 1,60 cm).
O Scandinavo acredita que o conflito está no uso da vírgula. Tanto que ele sugeriu em escrever dessa forma (Exemplo: 160 cm).
Mas gostaria de saber se é possível fazer a "filtragem das alturas menor/maior" com vírgula mesmo (1,60 cm) ?
- Código:
Private Sub RtlFiltroAltura_Click()
Dim AlturaMenor As Variant, AlturaMaior As Variant
AlturaMenor = InputBox("Introduza a altura menor", "FILTRO POR ALTURA")
AlturaMaior = InputBox("Introduza a altura maior", "FILTRO POR ALTURA")
If AlturaMenor = 0 And AlturaMaior = 0 Then
Me.FilterOn = False
Else
Me.Filter = (Me.Altura) & " Between " & AlturaMenor & " and " & AlturaMaior
Me.FilterOn = True
End If
End Sub
- Anexos
- Altura (Com Virgula).zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (45 Kb) Baixado 5 vez(es)
Última edição por tombr em 29/9/2021, 01:45, editado 1 vez(es)