cel selecteren na invoer ?

[Revdutchie]

Goedenmiddag alle,

Kan in in een cel bijvoorbeeld A1 zeggen dat na invoer bijvoorbeeld cel D12 moet worden geselecteerd ?

Groeten,
Jacques

 

[Ginger]

Dat kan als je de cellen die je moet invoeren 'vrij geeft' en dan je sheet verder beveiligd. Moet je met beveiliging wel aangeven dat alleen de niet beveiligde cellen geselecteerd mogen worden.

Groet, Leo

 

[Haaren101]

En met VBA is dat ook te realiseren

Ron

 

[Revdutchie]

Dat kan als je de cellen die je moet invoeren 'vrij geeft' en dan je sheet verder beveiligd. Moet je met beveiliging wel aangeven dat alleen de niet beveiligde cellen geselecteerd mogen worden.

Groet, Leo

Dat gaat niet, want de omringende velden worden gevult door VBA, als ik die blokkeer werkt de code niet meer.

Groeten,
Jacques

 

[Revdutchie]

En met VBA is dat ook te realiseren

Ron

Hint hint Please

Groeten,
Jacques

 

[Haaren101]

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("D12").Select
End Sub

Met dit stukje code kom je bij iedere verandering in iedere cel weer op D12 terecht

Ron

 

[Revdutchie]

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("D12").Select
End Sub

Met dit stukje code kom je bij iedere verandering in iedere cel weer op D12 terecht

Ron

Ok, maar dat is niet helemaal de bedoeling, ik wil echt kunnen navigeren, bijvoorbeeld van A1 naar D4 naar C6 etc etc.

Groeten,
Jacques

 

[roesoesoe]

Lukt het niet via een macro ?

 

[Revdutchie]

Lukt het niet via een macro ?

Vast wel maar hoe zorg ik er voor dat die wordt uitgevoerd bij verlaten van een cel ?

Jacques

 

[Haaren101]

Ok, maar dat is niet helemaal de bedoeling, ik wil echt kunnen navigeren, bijvoorbeeld van A1 naar D4 naar C6 etc etc.

Groeten,
Jacques

Dan zal je de VBA moeten uitbreiden

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case ActiveCell.Address
    Case "$A$2"
        Range("D12").Select
    End Select
End Sub

Dit is een vluggertje. Case A2 omdat na de update Excel zelf al de onderliggende cel heeft gekozen. De select case kan je verder uitbreiden

Ron

 

[Revdutchie]

Dan zal je de VBA moeten uitbreiden

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case ActiveCell.Address
    Case "$A$2"
        Range("D12").Select
    End Select
End Sub

Dit is een vluggertje. Case A2 omdat na de update Excel zelf al de onderliggende cel heeft gekozen. De select case kan je verder uitbreiden

Ron

Dat is hem bijna, met 1 probleem, ik kan daarna niet meer A2 selecteren want die gaat meteen door naar target

 

[Roncancio]

Ok, maar dat is niet helemaal de bedoeling, ik wil echt kunnen navigeren, bijvoorbeeld van A1 naar D4 naar C6 etc etc.

Groeten,
Jacques

Zit er een bepaalde logica in de celkeuze?

Met vriendelijke groet,


Roncancio

 

[Ginger]

Dat gaat niet, want de omringende velden worden gevult door VBA, als ik die blokkeer werkt de code niet meer.

Onzin!!!

Zet in je ThisWorkbook sectie in het Open-event de regel...

Sheets("naam van je sheet").Protect UserInterfaceOnly:=True

...dan mag je code alles!

Groet, Leo

 

[Wigi]

Dat is hem bijna, met 1 probleem, ik kan daarna niet meer A2 selecteren want die gaat meteen door naar target

Tja, dat wilde je toch? Na invoer naar een andere cel...

 

[Revdutchie]

Onzin!!!

Zet in je ThisWorkbook sectie in het Open-event de regel...

Sheets("naam van je sheet").Protect UserInterfaceOnly:=True

...dan mag je code alles!

Groet, Leo

:thumb::thumb::thumb::thumb::thumb::thumb::thumb:

Leo thanks, dit is nog veel beter dan wat ik wilde !

Groeten,
Jacques

 

[Revdutchie]

Tja, dat wilde je toch? Na invoer naar een andere cel...

Ja, maar ik moet A2 later nog wel kunnen wijzigen.

Maar het is gelukt met de oplossing van Leo

Iedereen bedankt weer.

Groeten,
Jacques