Als getal tussen is, dan getal plaatsen

[HWV]

Goedendag,

Ik wil graag het volgende bereiken.

Als in kolom BF van tabblad D-Stam een getal tussen:

0 = dan 0 plaatsen in tabblad Conversion Output kolom AZ
1 - 500 = dan 500 plaatsen in tabblad Conversion Output kolom AZ
500 - 1.000 = dan 1.000 plaatsen in tabblad Conversion Output kolom AZ
1.000 - 1.500 = dan 1.500 plaatsen in tabblad Conversion Output kolom AZ
1.500 - 2.000 = dan 2.000 plaatsen in tabblad Conversion Output kolom AZ
2.000 - 3.000 = dan 3.000 plaatsen in tabblad Conversion Output kolom AZ
3.000 - 5.000 = dan 5.000 plaatsen in tabblad Conversion Output kolom AZ
5.000 - 10.000 = dan 10.000 plaatsen in tabblad Conversion Output kolom AZ
10.000 - 20.000 = dan 20.000 plaatsen in tabblad Conversion Output kolom AZ
20.000 groter dan 20.000 plaatsen in tabblad Conversion Output kolom AZ

Met de code die ik nu heb kijk naar kleiner dan en groter dan .

Sub Vervangen()

For i = 1 To Range("A65000").End(xlUp).Row
   If Sheets("D-Stam").Cells(i, 58) < 500 Then
   Sheets("Conversion Output").Cells(i, 52) = "500"
Else
   If Sheets("D-Stam").Cells(i, 58) > 500 Then
   Sheets("Conversion Output").Cells(i, 52) = "1000"

End If
End If
Next
End Sub

Hoek kan ik deze waarde`s instellen zodat ik meerde kan instellen

Groet HWV

 

[snb]

Sub VeldenVeranderen()
  For Each cl In Sheets("D-stam").Columns(58).SpecialCells(2)
    If Val(cl) > 0 Then Sheets("Conversion output").Cells(cl.Row, 52) = (cl \ 500 + 1) * 500
  Next
End Sub

 

[HWV]

Sub VeldenVeranderen()
For Each cl In Sheets("D-stam").Columns(58).SpecialCells(2)
If Val(cl) > 0 Then Sheets("Conversion output").Cells(cl.Row, 52) = (cl \ 500 + 1) * 500
Next
End Sub

Beste SNB,

Werkt goed maar hij blijf er elke keer 500 bij doen, ook na de 20.000.
Wat ik graag zou willen dat alles boven de 20.000 dat daar dan 20.000 komt te staan.

Is dat mogelijk.

Groet HWV

 

[HWV]

nog niet helmaal

Beste,

Ik ben er achter gekomen dat hij de waarde overzet naar het andere blad, dit is juist.
Maar hij kijk niet naar het artikelnummer.

Mijn bedoeling is dus, als in sheet D-Stam bij artikelnr 1 het bedrag 2268.90 staat,
dat er bij sheet Conversion Output gekeken wordt naar artkelnr 1 en dat hij daar dan de waarde 2500,00 zet. en dit dan per artikelnr en dit dan met onderstaande maar dan alles boven de 20.000,00 dat daar dan 20.000 komt te staan.

0 = dan 0 plaatsen in tabblad Conversion Output kolom AZ
1 - 500 = dan 500 plaatsen in tabblad Conversion Output kolom AZ
500 - 1.000 = dan 1.000 plaatsen in tabblad Conversion Output kolom AZ
1.000 - 1.500 = dan 1.500 plaatsen in tabblad Conversion Output kolom AZ
1.500 - 2.000 = dan 2.000 plaatsen in tabblad Conversion Output kolom AZ
2.000 - 3.000 = dan 3.000 plaatsen in tabblad Conversion Output kolom AZ
3.000 - 5.000 = dan 5.000 plaatsen in tabblad Conversion Output kolom AZ
5.000 - 10.000 = dan 10.000 plaatsen in tabblad Conversion Output kolom AZ
10.000 - 20.000 = dan 20.000 plaatsen in tabblad Conversion Output kolom AZ
20.000 groter dan 20.000 plaatsen in tabblad Conversion Output kolom

Groet HWV