cursor takibi

[aligalipkaya]

Arkadaşlar bir excel sayfasında cursor nasıl konturol edilebilir?
Yani A1 de entere bastıgımızda B1 i atlayıp C1 e geçecek. Zira B1 formül içeriyor.:yardim:

 

[isomikis]

Kursor takibi şansı biraz zor dostum ama şöyle yapabilirsin B sütununa sağ tıklayıp GİZLE seçeneğini seçersin a sütununda sonra c gelir bu durumda tab tuşu ile bir sağdakine atlarsın enter ile sağ geçmesini istiyorsan da ARAÇLAR Menüsünden SEÇENKELERin Altında DÜZEN sekmesinde seçimi Enter tuşundan sonra taşı seçeneği ile AŞağı yazan yeri SAĞA olarak değiştirirsin, ancak böyle olur...

 

[Recep İpek]

Bunun için tüm hücreleri seçip;

Format>>Cells>>Protection

Locked seçeneğinin işaretli olduğunu kontrol ediniz.

Daha sonra veri gireceğiniz hücreleri tek tek seçip aynı yerden bu işareti kaldırınız.
Örneğin a1,b1....gibi

Sonra Tools>>Protection>>Protect Sheets bölümünden sayfaya bir şifre veriniz.
Alttaki seçeneklerden sadece Select Unlocked Cells seçili olmalıdır.

Hepsi bu kadar........
>>

 

[isomikis]

Bunun için tüm hücreleri seçip;

Format>>Cells>>Protection

Locked seçeneğinin işaretli olduğunu kontrol ediniz.

Daha sonra veri gireceğiniz hücreleri tek tek seçip aynı yerden bu işareti kaldırınız.
Örneğin a1,b1....gibi

Sonra Tools>>Protection>>Protect Sheets bölümünden sayfaya bir şifre veriniz.
Alttaki seçeneklerden sadece Select Unlocked Cells seçili olmalıdır.

Hepsi bu kadar........
>>

sizin anlattığınız sade hücreleri yazmaya karşı koruma değilmi dostum arkadaş cursor'un sonraki hücreye geçmesini istiyor..

 

[Recep İpek]

Ekli dosyayı inceleyin.

İmleç'in sağ tarafa doğru gitmesini istiyorsanız Sn.isomikis'in yazdıklarını yapabilirsiniz.

 

[birol_mumcu]

syn isomikis;
soruda atladığınız bir yer var. b1 atlanacak. sizin dediğiniz de doğru, yapılabilir ama tüm exceli aynı şekilde kullanmak zorunda kalacaksınız.
syn ripekin cevabı çalışma sayfası içinde gerçekleşeceği için daha kullanışlı olacaktır.

 

[Seyit Tiken]

A1, B1 ve C1'e veri girerek kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(0, 1).Select
If Target.Column = 2 Then Target.Offset(0, 1).Select
If Target.Column = 3 Then Target.Offset(1, -2).Select
End Sub