Werkblad detecteren

[caffie]

Ik ben excel 2003 met VB bezig met een macro
en loop vast
ik wil detecteren in welk werkblad ik op dat moment werk
en wil bepaalde waarde van 15 cellen copieeren naar het volgende werkblad
ik heb in totaal 6 werkbladen:
1e ochtend (werkblad 1)
2e ochtend (werkblad 2)
1e middag (werkblad 3)
2e middag (werkblad 4)
1e nacht (werkblad 5)
2e nacht (werkblad 6)


De waarde uit cellen E410 t/m X410
moet naar het volgende werkblad worden gekopieerd naar de cellen E2 t/m X2


Als ik dus werk in het 2e werkblad (2e ochtend) moet de data van
2e ochtend - E410 t/m X410 naar 1e middag E2 t/m X2


Verder heb ik nu voor elk werk een aparte macro gemaakt
Maar ik vraag me af of dit wel nodig is
omdat de bewerkingen die ik via de macro uit voer alleen uitgevoerd moet worden op het active werkblad



wie kan me daarmee helpen met deze 2 vragen

Vast bedankt


Rob

 

[HSV]

With ActiveSheet

 

[caffie]

kan je me wat verder helpen

want ik weet niet hoe ik

With ActiveSheet

verder moet toepassen

 

[HSV]

Als jij een bestandje upload met een duidelijke omschrijving van hoe en wat, zijn er helpers genoeg hier op het forum die je kunnen helpen.

 

[Ginger]

De waarde uit cellen E410 t/m X410
moet naar het volgende werkblad worden gekopieerd naar de cellen E2 t/m X2

En dit kan niet met een eenvoudige celverwijzing??? Dus in cel E2 van sheet 2e ochtend zet je de formule =1e ochtend!E410 en zo verder ff doorslepen naar rechts..

Groet, Leo

 

[caffie]

En dit kan niet met een eenvoudige celverwijzing??? Dus in cel E2 van sheet 2e ochtend zet je de formule =1e ochtend!E410 en zo verder ff doorslepen naar rechts..

Groet, Leo

dit kan natuurlijk maar ik wil dit in de macro verwerken
als ik dus op sheet 2e ochtend werk moet het naar
1e middag

werk ik op 1e middag moet het naar 2e middag enz

 

[Ginger]

dit kan natuurlijk maar ik wil dit in de macro verwerken

...dan zal je toch gehoor moeten geven aan de oproep van Harry en een voorbeeldbestandje met je code hier plaatsen.

Groet, Leo

 

[caffie]

Bekijk bijlage 126487

 

[Ginger]

...VBA-password???

Groet, Leo

 

[Warme bakkertje]

Leo, zonder paswoord

 

[caffie]

bij deze nu zonder paswoord




zo als je zit ben ik nog maar een beginneling

en loopt steeds vast

maar kom elke keer een stukje verder

al vast bedankt voor alle hulp

rob

 

[Warme bakkertje]

Sub tst()
    ActiveSheet.Range("E410:X410").Copy Sheets(ActiveSheet.Index + 1).Range("E2")
End Sub

Of als het enkel waarden moeten zijn

Sub tst()
    ActiveSheet.Range("E410:X410").Copy
    Sheets(ActiveSheet.Index + 1).Range("E2").PasteSpecial xlPasteValues
End Sub

 

[caffie]

Bedankt

Heren en dames

alle heel erg bedankt.




Rob

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost.