start macro after one click on a cell

[littlepete]

hello

i read about 25 website to find how to sort my list on column 7 (column G) with my macro that sorts that way...
not one of the solutions does anything...

i think it is enough to put these lines into microsoft excel / thisworkbook and there into worksheet_selectionchange :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("g1")) Is Nothing Then Call sorteerlanden
End Sub

so what am i doing wrong ???

again... thanks if i get help ...

pete,
belgium

 

[Norie]

Looks fine to me, how isn't working?

Where did you put the code?

It should be in the module of the worksheet that you want to monitor.

 

[littlepete]

hello

on the code pages,
at the left side:

vbaproject
- microsoft excel objects
- page 1
- page 2
- thisworkbook <=============== on this page i put it.

at the top: WORKBOOK.

at the right sight: worksheet_selectionchange

it should work... but i click and nothing happens, i double click and i enter the cel, nothing else ...

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("g1")) Is Nothing Then Call sorteerlanden
End Sub

all it does is start a macro to sort my list on the names of countries (= landen) ...

...

Pete

 

[MARK858]

Right click the sheet tab, click view code,from the dropdowns select worksheet and change.
Paste the code you have except the first line and the End Sub between the two lines that appear.
Remove the code from ThisWorkbook.

 

[littlepete]

hello


so the code was in the wrong place i noticed the difference !
i then put the code on different cells because first i put the sort by country on the label of the column countries
and that didnt work well...

thx for the help !!!

Pete
belgium