Waarde onder 50 veranderen naar 50?

[Mickets]

Kan ik verschillende waarde onder de 50 naar 50 veranderen in een keer?
Ik zit namelijk met een probleem. Ik heb een hele lijst met bedragen.
Het minimum tarief is 50 nu staan deze allemaal door elkaar op datum en moet ik dus alles onder de 50 veranderen naar 50!!
Iemand enig idee hoe ik dit makkelijk en snel kan doen?

Bvd,

Mick :thumb:

 

[HWV]

Misschien kan je dit gebruiken, veranderd alles onder de 50 in kolom A naar 50

Sub VeldenVeranderen()

For I = 1 To Range("A65000").End(xlUp).Row
   If Cells(I, 1) < 50 Then
   Cells(I, 1) = "50"
   End If
Next I
End Sub

Groet HWV

 

[zapatr]

Hetzelfde kan ook eenvoudig zo:
Als de getallen in kolom A staan, beginnend in A1,
typ dan in B1: =ALS(A1<50;50;A1)
en kopieer B1 naar beneden in kolom B.
Daarna kun je kolom A verwijderen.

 

[popipipo]

=ALS(A1<50;50;A1)

Dit kan nog eenvoudiger
Dus hier een derde weg naar Rome:

=MAX(50;A1)

 

[Mickets]

Harstikke bedankt! :d