Mause ile Satır seçme.

[eceLprensi]

Merhaba,
Üstadlarım,

Ben excelle çalışırken sürekli Shift boşluk yapmam gerekiyor.
Bunu makroda yapabilirmiyim.

Range.Rows(1:1).Select
1. satır seçme

ama ben Mause ile tıkladığımda o satırı seçsin istiyorum.

 

[eceLprensi]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveCell.EntireRow.Select
End Sub

bu kodu denedim fakat bunda da 1. sütuna sabitliyor.
aktif hücre mause ile seçtiğim yerde kalmıyor.

 

[eceLprensi]

Deneme 2

x = ActiveCell.Row
y = ActiveCell.Column
Rows("x:x").Select
Range("y&x").Activate
End Sub

 

[eceLprensi]

Sub Makro3()
'
' Makro3 Makro
'
Selection.End(xlDown).Select

x = ActiveCell.Rows
y = ActiveCell.Column

Rows(ActiveCell.Rows).Select
Range(ActiveCell.Rows & ActiveCell.Column).Activate
End Sub



deneme 4

 

[eceLprensi]

Sub Makro3()


ActiveCell.Resize(1).EntireRow.Select
Range(ActiveCell.Select).Activate

End Sub



bulacam araştırmaya devam.....

 

[halit3]

Aradığınız bu olabilirmi

Rows(ActiveWindow.RangeSelection.Row).Select

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.SendKeys "+ ", True
End Sub

 

[eceLprensi]

halit3 kardeşim çok teşekkürler.
Emeğine sağlık.

aklıma başka bişey geldi
bu kodu personel.xlsx de nasıl çalıştırırım.

 

[eceLprensi]

Korhan Ayhan kardeşim saolasın. bu kodda işe yaradı.