Code vorig werkblad

[bioman]

Hoe kan ik in de volgende code 'Januari' (= de naam van een werkblad) vervangen door een code die gewoon het werkblad links van het huidige werkblad aangeeft. Ik heb al iets geprobeerd met activesheet.previous, maar dan gebeurt er iets raars.

Bedankt,

Tijs

 

[bioman]

Code vergeten:

ActiveCell.FormulaR1C1 = "=Januari!RC+1"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=EDATE(Januari!RC,1)"
Range("I49").Select
ActiveCell.FormulaR1C1 = "=Januari!RC[2]"

 

[Hoornvan]

bioman,

Het zal wel aan mij liggen maar ik snap de vraag niet.

Zo werkt het ook.

ActiveCell.FormulaR1C1 = "=Januari!RC+1"
Range("D1") = "=EDATE(Januari!RC,1)"
Range("I49") = "=Januari!RC[2]"

 

[snb]

   c4 = ActiveSheet.Previous.Name
    c5 = ActiveSheet.Next.Name

voorbeeld
Range("D1")= "=EDATE(" & ActiveSheet.Previous.Name & "!RC,1)"
Range("I49")= "=" & ActiveSheet.Previous.Name & "!RC[2]"

Excel gebruikt previous en next soms anders dan jij verwacht.
Kijk ook eens naar mijn ondertekening.

 

[bioman]

Ik heb in excell een macro gemaakt die het openstaande werkblad kopieert, in de kopie alle velden wist en dan uit het originele werkblad enkele waarden overneemt. Nu gaat het mis bij het overnemen van die waarden. Bij de huidige code neemt hij altijd de waarden over van het werkblad januari. Maar dit is niet altijd het originele werkblad. Het originele werkblad staat altijd links van de kopie. Daarmee zou dus januari moeten vervangen worden door het werkblad links van het huidige werkblad

Miscchien is dit duidelijker

 

[bioman]

   c4 = ActiveSheet.Previous.Name
    c5 = ActiveSheet.Next.Name

Excel gebruikt previous en next soms anders dan jij verwacht.

Mag ik die codes gewoon ipv Januari typen? of moet ik nog tekens wissen? want dit heb ik al geprobeerd en werkt niet echt

 

[Hoornvan]

bioman,

Range("D1")= "=EDATE(" & ActiveSheet.Previous.Name & "!RC,1)"

Bij mij zet deze code van snb dit in de cel als formule.

=ZELFDE.DAG(Help!D1;1)

Mijn linkerblad heb ik even de naam Help gegeven.

 

[bioman]

Bedankt