Positie cursor

[Stone52]

Forummers,


Ik zoek een manier om te bepalen op welke cel mijn cursor staat. Als ik dat weet (bv cel A10) dan wil ikde bijbehorende rij (10) selecteren.

 

[tilpi]

Het adres van de cursor staat gewoon links bovenin boven de A kolom.

Daarbij zijn ook nog eens het bijhorende rijnummer en de kolomletter gekleurd.

Mvg

Piet

 

[Wigi]

Ik vermoed dat het antwoord eerder in deze richting moet gaan

ActiveCell.EntireRow.Select

Wigi

 

[Stone52]

Ik merk dat ik niet duidelijk geweest ben: Ik zoek in VBA / een macro een manier om te bepalen op welke cel mijn cursor staat. Als ik dat weet (bv cel A10) dan wil ikde bijbehorende rij (10) selecteren.

 

[Stone52]

Wigi,

Hiermee ben ik al een eindje op weg. Hoe kan ik er vervolgens voor zorgen dat de geselecteerde rij onder (of boven) deze rij wordt gekopieerd ?

 

[Demeter]

Probeer eens de functie offset, 1e getal is voor regels 2e getal voor kolommen. Positief is naar onder of rechts, negatief naar boven of naar links.
achter copy staat de locatie waarheen je gaat kopieeren (letop de spatie ertussen)

ActiveCell.EntireRow.copy ActiveCell.EntireRow.offset(1,0)

Groet,
Ferenc

 

[Stone52]

Demeter,

Dit overschrijft de volgende rij.
Ik ben er deels al uit:

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown

Echter daarna wil ik de cursor nog op de cel A van de gekopieerde cel positioneren.
Hoe is dat te doen ?

 

[Demeter]

Volgens mij doet mijn code precies wat je eerst vroeg.
Post eens een voorbeeld.

edit:

    ActiveCell.EntireRow.copy ActiveCell.EntireRow.offset(1,0)
    Range("A" & ActiveCell.Row).Select

of (mits kolom A gevuld is:

  ActiveCell.EntireRow.copy Range("A" & Range("A65536").End(xlUp).Row + 1)
    Range("A" & ActiveCell.Row).Select

 

[Wigi]

Ik ga voor:

ActiveCell.EntireRow.Copy
Selection.Insert Shift:=xlDown
ActiveCell.EntireRow.Cells(1)

 

[Stone52]

Wigi en Demeter,

Beiden bedankt voor de bijdrage. Beide oplossingen gaven wat problemen. Na wat experimenteren is het volgende eruit gekomen:

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A" & (ActiveCell.Row +1)).Select

Hiermee wordt de rij naar beneden gekopieerd en de cursor op de gekopieerde rij in kolom A gezet.

 

[Wigi]

Dit is beter:

ActiveCell.EntireRow.Copy
Selection.Insert Shift:=xlDown
Range("A" & ActiveCell.Row + 1).Select
Application.CutCopyMode = False