[Excel] Prijzen een aantal % verhogen

[Verwijderd]

Misschien een onmogelijke vraag, maar ik heb een prijslijst in Excel formaat.
Daar staan prijzen in die ik moet betalen, een klant moet natuurlijk meer betalen.
Nu kan ik met de hand er een aantal procent bovenop zetten, bijvoorbeeld 20%
Maar kan dit ook sneller?, door middel van een script/macro?
Want het zijn er echt een paar duizend

[Tukk]

code:

Voor alle rijen
   Voor alle kolommen
       cell.value = cell.value * 1.2
  End 
End

Zoiets bedoel je?

[Verwijderd]

Tukk schreef op 08 juni 2004 @ 09:21:

code:

Voor alle rijen
   Voor alle kolommen
       cell.value = cell.value * 1.2
  End 
End

Zoiets bedoel je?

is een goed oplossing zolang je niet de oude prijs ergens wilt 'bewaren'. Anders moet je als alle oude prijzen in 1 rij staan een lege rij pakken en iets als

code:

=(A1)*1.20

doen als je prijsstijging 20 procent is

[ Voor 3% gewijzigd door Verwijderd op 08-06-2004 09:25 ]

[Verwijderd]

Geweldig, het dus het is mogelijk
Weet je misschien toevallig ook hoe ik het moet doen?

[Verwijderd]

Bijvoorbeeld kolom "E" wil ik doen.
Dan is het:

code:

=(E)*1.20

Nou, ik denk wel dat ik er uit komt, even een kopie van het orgineel maken, en dan
gewoon gaan stoeien

Bedankt voor de snelle hulp.

[ Voor 85% gewijzigd door Verwijderd op 08-06-2004 09:36 ]

[onkl]

code:

Sub naam()
With activeworksheet
 for i=1 to 3 'kolommen
  for j = 1 to 100 'rijen
   if isnumeric .cells(i,j).value then
    .cells(i,j).value = .cells(i,j).value*1.2
   end if
  next j
 next i
End with

[Coffeemonster]

Makkelijkste is 1.2 in een lege cel te zetten, deze te kopiëren, de cellen met de op te hogen prijzen selecteren, Edit > Plakken speciaal > Vermenigvuldigen te doen.