Grouping values
Hi,
I have a sheet with various materials with different thickness. I want to
group them by 0,03 - 0,02 - 0,01 and others.
I wrote this:
Sub Espessuras()
Dim Esp As Integer 'Thickness article
Dim Espessura As Integer 'Regroup thickness
Dim linhaf As Integer
Dim linha As Integer
Range("A1").Select
Selection.End(xlDown).Select
linhaf = Selection.Row 'devolve o numero da linha
For linha = 2 To linhaf 'inicio do ciclo
Esp = Range("P" & linha).Value 'Espessura artigo descriminado
Rows(linha & ":" & linha).Select ' selecção da linha
If Esp = "0,03" Then
Espessura = "0,03"
ElseIf Esp = "0,02" Then
Espessura = "0,02"
ElseIf Esp = "0,01" Then
Espessura = "0,01"
ElseIf Esp < "0,03" And _
Esp < "0,02" And _
Esp < "0,01" Then
Espessura = "1"
End If
Range("Q" & linha).Value = Espessura
Next linha ' proxima linha
End Sub
****
Unfortunatly, it doesn't work! I give me only "1" as a result for all
thickness no matter if they are 0,03, 0,02 or 0,01.
Can someone help me on this one. Tkanks a lot.
Barbara
|