Hi Barbara,

Try something like:

'=============
Public Sub Espessuras()
Dim Esp As Double 'Thickness article
Dim Espessura As Double 'Regroup thickness
Dim linhaf As Long
Dim linha As Long

linhaf = Range("A1").End(xlDown).Row

For linha = 2 To linhaf
Esp = Range("P" & linha).Value
If Esp = "0.03" Then
Espessura = "0.03"
ElseIf Esp = "0.02" Then
Espessura = "0.02"
ElseIf Esp = "0.01" Then
Espessura = "0.01"
Else
Espessura = "1"
End If
Range("Q" & linha).Value = Espessura
Next linha
End Sub
'<<=============

Note that VBA uses the US decimal separator rather
than a comma.



---
Regards,
Norman




"Barbara" wrote in message
...
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