Escribir número si cumple condición
Necesito que me lea la columna f desde f3 a f53 y que en la columna siguiente devuelva un valor según las condiciones
Sub ComprobarValor()
Dim celda As Long
For celda = 1 To 50
With Sheet4.Cells(6, 3)
Select Case .Value
Case 1 To 5
Sheet4.Cells(7, 3).Value = 1
Case 6 To 9
Sheet4.Cells(7, 3).Value = 2
Case 10
Sheet4.Cells(7, 3).Value = 3
Case Else
Sheet4.Cells(7, 3).Value = 0
End Select
End With
Next celda
End Sub
1 respuesta
Respuesta de James Bond
2