Simpel makro'tje?

[Colombe]

Ik zou graag een makro hebben die een héél simpele celverwijzing zet in iedere cel waar je op het moment van aanroepen staat. In toetsaanslagen bedoel ik:
+[Eind]->[Enter] da's alles.
Ik heb natuurlijk al zelf geprobeerd, maar zelfs met relatieve verwijzing krijg ik het niet voor elkaar, omdat de makro steeds wèl naar de goede rij gaat, maar steeds naar dezelfde kolom. Mijn kennis van VBA is te gering om daarin iets aan te passen?
Wie helpt?

 

[LucB]

Kun je de macro even op het forum plaatsen?

 

[Jan van Asseldonk]

Hiermee moet het lukken.

Sub PlusEindRechts()

ActiveCell.Formula = "=+" & ActiveCell.End(xlToRight).Address(False, False)

End Sub

Let op:
1 Indien de actieve cel leeg is wordt de 1e cel rechts gepakt die gevuld is.
2 Indien de actieve cel en de cellen rechts ernaast gevuld zijn wordt de laats gevulde cel gepakt.
3 Indien de actieve cel leeg is en er rechts hiervan ook alleen lege cellen zijn wordt de laatste kolom (IV) gepakt.

Bij 3 kan je sheet ineens stukken groter worden bij opslaan

 

[Colombe]

Fantastisch Jan, precies wat ik bedoelde! Simpel doch voor mij erg effectief!