Verwijzen naar aktieve sheet

[Scallebe]

Specialists....

Ik heb 5 verschillende sheets met identiek dezelfde lay-out maar voor verschillende categorieën : apothekers, kinesisten, enz

Ik heb een formulier gemaakt om een nieuw apotheker of kinesist of... in te voegen.

De code om alle gegevens op de juiste rij en in de juiste cel te plaatsen werkt perfect.

Het enige probleem is het volgende.

Mijn code gelinkt aan de knop toevoegen begint als volgt :

Private Sub cmdToevoegen_Click()

Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Apothekers")

Ik weet dat op die manier de gegevens zullen ingevoerd worden in de sheet "Apothekers"

Om te vermijden dat ik voor elke categorie een apart formulier zou moeten maken zou ik willen dat de gegevens worden ingevuld in de sheet waar ik op dat ogenblik mee aan het werken ben.

Ik denk dus : Set ws = (en dan de code voor de aktieve sheet) --> "Active sheet" werkt niet

Hoe kan ik verwijzen naar de aktieve sheet

Thanks

Greetz


Pascal

 

[VenA]

Plaats svp even een voorbeeldje hoe het geheel in elkaar steekt en hoe je het formulier aanroept. ActiveSheet hoort aanelkaar daar zou het ook aan kunnen liggen.

 

[ExcelAmateur]

Pascal,

Ik weet er ook niet zoveel van maar maak een ComboBox met de bladnamen erin.
Verwijs Set ws = Worksheets(ComboBox1.Value) of is dit te simpel gedacht.

 

[Scallebe]

EA,

Is mss een oplossing.

Ik ga eens proberen.

Thanks

 

[edmoor]

Of zo:
Set ws = Worksheets(ActiveSheet.Name)

 

[rebmog]

Of:

Set ws = ActiveSheet

 

[edmoor]

Nog makkelijker

 

[Scallebe]

edmoor, EA

De twee mogelijkheden werken maar de code van edmoor spaart me wel een Combobox uit. :thumb:

Bedankt

Greetz


Pascal

 

[Scallebe]

edmoor, rebmog, VanA, ik had er inderdaad een spatie tussen staan vandaar dat het bij mij niet werkte.

Bedankt iedereen.


Greetz

Pascal

 

[ExcelAmateur]

Volgens mij moet je dan wel steeds het juiste blad voor hebben.

Het van de ComboBox was maar een idee en is het niet nodig om het juiste blad voor te hebben, denk ik.

 

[HSV]

Je hebt helemaal niets nodig als je het formulier aanroept in je activesheet.

 

[Scallebe]

Bedankt voor de reacties,

Het probleem is opgelost en werkt perfect.

Thanks