terugkeren naar de laatste actieve cel in een macro

[RB_online]

Moeilijke vraag?

Is het mogelijk om via een macro een terug te keren naar de vorige actieve cel?
Meer uitleg:

voorbeeld:
In cel A6 voer ik een waarde in, als gevolg hiervan veranderd de waarde van een formule in cel AR6. Deze activeert de macro, geeft een melding dmv een msgbox en moet dan terugkeren naar de cel A6 en de inhoud van de cel wissen.

In dit voorbeeld staat A6 maar het gaat om een range van A1 t/m AQ500
In dit gebied staan een aantal cellen die de waarde van de cellen in kolom AR kunnen veranderen.

Ik hoop dat ik het een beetje duidelijk heb kunnen maken.

Alvast bedankt

 

[Demeter]

Post eens een voorbeeld file. Werkt een stuk makkelijker voor de beantwoorder(s), scheelt een hoop tijd.
Natuurlijk wel eerst je prive gegeven eruit verwijderen.


Groet,
Ferenc

 

[koosl]

RB_online

Sub NaamVanJeMacro()
'Zet deze 2 regels hieronder aan het begin van je macro
Dim LaatsteCel As Variant
    LaatsteCel = ActiveCell.Address
    
    'zet hier je bestaande code neer.
    
    'de volgende regel moet voor de End Sub staan
    Range(LaatsteCel).Select
End Sub

probeer het maar eens.


Koosl

 

[RB_online]

Sorry voor de late reactie,

De oplossing van Koosl werkt niet bij mij. Als ik de macro uitvoer (handmatig of automatisch) dan is de laatstecel de actieve cel en ik wilde graag de cel bepalen die ervoor de actieve cel was

Bijvoorbeeld:
je vult een waarde in in cel D8, druk op enter oid de actieve cel wordt dan de cel D9 of E8.
Na het uitvoeren van de macro wil ik dan terug naar D8

Is dit mogelijk?????

René

 

[Wigi]

Dan zal je met een Worksheet_Change event moeten werken.

Welke code wordt wanneer uitgevoerd?

 

[Demeter]

Denk dat als je je eigen code, KoosL zijn optie en die van Wigi samenvoegd er wel redelijk moet zijn.

Rest alleen nog de fine tuning.
Post je gehele code eens hier?

 

[RB_online]

Hier een bijlage.
Ik hoop dat iemand er uit komt. bij mij gaat hij nl niet terug naar de cel die de laatste invoer ontvangen heeft maar blijft hij staan op de cel die daarna de actieve cel werd.

bvd René

 

[Wigi]

Zo?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:A30")) Is Nothing Then
        
        Dim Boodschap As String, stijl, Titel As String
        Boodschap = "Deze actie is ongeldig"
        stijl = vbOKOnly + vbCritical + vbDefaultButton2
        Titel = "Foutmelding"
        
        If Range("controle").Value = 1 Then
            MsgBox Boodschap, stijl, Titel
            Target.Select
            'Target.ClearContents          ' hier moet de laatste invoer gewist worden
        End If
    End If
End Sub

Wigi