Auteur Topic: automatisch met 1 aftrekken (gelezen 1780 keer)

Reshma · « **Gepost op:** 06 april 2017, 14:35:48 »

Dag lezers,

Wie zou mij kunnen helpen met het automatiseren van onderstaande:
Ik wil dat kolom A (vanaf cel A45) automatisch gevuld wordt, waarbij steeds met 1 afgetrokken wordt, tot de laatste gevulde cel in Kolom B is bereikt (B417 in dit bestand).
Ik hoop dat mijn vraag duidelijk is.

Alvast bedankt

Reshma

SoftAid · « **Reactie #1 Gepost op:** 06 april 2017, 14:45:40 »

HalloReshma,

met de formule:

Code: [Selecteer]

=ALS(B45="";"";A44-1)
in cel A45 te zetten en deze door te trekken naar beneden, zo vel als je wilt (voor toekomstige nieuw invoer in kolom B)

Is het dit wat je bedoeld?

SoftAid

Reshma · « **Reactie #2 Gepost op:** 06 april 2017, 14:51:51 »

Hoi SoftAid,

Dank voor je snelle reactie!
Dit is wat ik bedoel, maar zou het graag met vba willen. Dit omdat kolom B dynamisch is, en ik dit heel vaak moet doen.
Zou het lukken?

groet,
Reshma

SoftAid · « **Reactie #3 Gepost op:** 06 april 2017, 15:01:21 »

Hallo Reshma,

dat zal zeker te doen zijn. Dan zullen we wel een methode moeten kiezen wanneer de code op je werkblad ververst wordt, bij het Openen, Sluiten, of Veranderen van je werkblad? EDIT: Of met een knop

Als er bijvoorbeeld een student wegvalt, dan verwijder je deze uit de lijst (B), juist? En de lijst (A) moet zich dan weer herschikken, de rangnummers moeten opvolgend zijn. Klopt dit?

SoftAid

Reshma · « **Reactie #4 Gepost op:** 06 april 2017, 15:10:01 »

Dan zullen we wel een methode moeten kiezen wanneer de code op je werkblad ververst wordt, bij het Openen, Sluiten, of Veranderen van je werkblad? EDIT: Of met een knop: klopt
Als er bijvoorbeeld een student wegvalt, dan verwijder je deze uit de lijst (B), juist? ja
En de lijst (A) moet zich dan weer herschikken, de rangnummers moeten opvolgend zijn. Klopt dit?ja, rangnummers zijn afnemend toch? 374, 373 etc

Thanks!

SoftAid · « **Reactie #5 Gepost op:** 06 april 2017, 15:19:07 »

Hallo Reshma,

Zet dan volgende macro in je module1.

Code: [Selecteer]

Sub Reshma1()

    Range("A45").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[1]="""","""",R[-1]C-1)"
    Range("A45").Select
    Selection.AutoFill Destination:=Range("A45:A1500"), Type:=xlFillDefault
    Range("A45").Select

End Sub

Maak een Knop aan (uit formulierbesturingselementen) en er verschijnt een venster "Macro toewijzen aan object":
In de lijst staat "Reshma1", dubbelklik op deze en de macro moet nu werken met de knop.

Rangnummers zijn aflopend, ja.

SoftAid

Reshma · « **Reactie #6 Gepost op:** 06 april 2017, 15:28:20 »

Hallo SoftAid,

Mooie oplossing!!
Goede website, leer er veel van.

groetjes,
Reshma

SoftAid · « **Reactie #7 Gepost op:** 06 april 2017, 15:43:16 »

Bedankt

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics