Hücreye Tıklayınca Başka Hücre Seç

[_Sir_Lancelot_]

Merhaba Üstadlar,

Aktif Sayfda Belirlediğimiz hücrelere tıklayınca başka bir hücrenin seçilmesi konusunda yardımcı olursanız sevinirim.

Örnek:
Sayfa 1 de C10 hücresine geldiğimiz an otomatik olarak A5 hücresi seçilsin.

~ Birde Excel 2007 de Formulas Bölümündeki "Show Formula" butonunu nasıl inaktif hale getirebilirim.

Mesela 'sil' butonunu
ThisWorkbook.Application.CommandBars.FindControl(ID:=847).Enabled = False
yazarak inaktif duruma geçiriyoruz.

Show Formulanın ID sinin ne olduğunu bilmiyorum bu konuda da yardımcı olursanız sevinirim..

İyi Çalışmalar

 

[BG]

Sayın _Sir_Lancelot_

Merhaba Üstadlar,

Aktif Sayfda Belirlediğimiz hücrelere tıklayınca başka bir hücrenin seçilmesi konusunda yardımcı olursanız sevinirim.

Örnek:
Sayfa 1 de C10 hücresine geldiğimiz an otomatik olarak A5 hücresi seçilsin.

~ Birde Excel 2007 de Formulas Bölümündeki "Show Formula" butonunu nasıl inaktif hale getirebilirim.

Mesela 'sil' butonunu
ThisWorkbook.Application.CommandBars.FindControl(ID:=847).Enabled = False
yazarak inaktif duruma geçiriyoruz.

Show Formulanın ID sinin ne olduğunu bilmiyorum bu konuda da yardımcı olursanız sevinirim..

İyi Çalışmalar

örnek dosyaya gözatın istediğiniz böyle bir şey mi?

 

[hamitcan]

Sayfa 1 de C10 hücresine geldiğimiz an otomatik olarak A5 hücresi seçilsin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$C$10" Then Exit Sub
    [a5].Select
End Sub

 

[_Sir_Lancelot_]

Harikasınız Çok Teşekkürler

Bi de Show Formula Kısmını nasıl inaktif haline getirebilkeceğim konusunda yardımcı olursanız minnettar kalırım.

iyi çalışmalar

 

[ozgretmen]

Alternatif çözüm...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 10 And ActiveCell.Column = 3 Then
Range("a1").Select
End If
End Sub

 

[hamitcan]

Control id listesini aşağıdaki linkte belitilen (.exe) dosyalarından birini (2003,2007) kurarak bulabilirsiniz. (Show Formula id no = 6059 olarak gördüm)
http://www.microsoft.com/downloads/...E9-4D11-46A5-898D-23E4F331E9AE&displaylang=en
Ben Excel2007 için olanı ekledim. Diğer Office programları ile ilgili olanları siz tespit edersiniz.

 

[_Sir_Lancelot_]

Peki birden fazla hücrede aynı işlemi uygulamak istersem
şu kodda nasıl bir değişiklik yapmam gerekir

Mesela I15 R21 K39 gibi farklı hücrelerin tümünde aynı işlem uygulanması için

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("I15")) Is Nothing Then Exit Sub
Range("A1").Select

End Sub

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [I15, R21, K39]) Is Nothing Then Exit Sub
    [A1].Select
End Sub

 

[_Sir_Lancelot_]

Sayın hamitcan

Ciddi anlamda süpersiniz tanıyor olsam yemek ısmarlardım bu yardım karşılığında

Çok teşekkürler

 

[hamitcan]

Öncelikle, nazik davetiniz için teşekkürler. Ben de harkes gibi, bilgim dahilinde yardımcı olmaya çalışıyorum. Ayrıca, bunu yaptığım için de zevk alıyorum.