HÜcre Atlatmak

[serif11]

Arkadaşlar merhaba..
Excel'de tablo hazırlıyorum.a1-a2-a3-a4 hücreleri arasında tab tuşu ile giderken a4 hücresinden sonra a7-a8-a9-a10 hücresine,daha sonra a13 hücresine gidebilmenin yolunu öğrenmek istiyordum..
kısaca şöyle özetleyebilirim:istediğim hücreler arasında tab tuşu ile nasıl gidebilirim

 

[Ali]

Tüm sayfayı seçip Koruma-Kilit deyip tüm hücreleri kilitlediğinizden emin olduktan sonra
a1-a2-a3-a4
a7-a8-a9-a10
ve a13 hücrelerinin kilitlerini kaldırın.

Araçlar-Koruma-Sayfayı koru seçeneği ile sayfanıza bir şifre verin.Bundan sonra Tab tuşuna bastığınız zaman kiliti açık hücrelere gideceksiniz.

 

[serif11]

Hata Bende Sanirim

Arkadaşım..
İlgine ve emeğine teşekkürler ama hata bende sanırım ki başaramadım..Adım adım anlatırsanız sevinirim.

 

[Ali]

A ile 1 'in keşistiği kısıma tıklayıp tüm hücreleri seçip Biçim-Hücreler kısmını seçin.Excel varsayılanı olarak tümü kilitli olarak gelmiş olacaktır zaten bu kısmı atlayıp ikinci resimden devam edebilirsiniz.

a1-a2-a3-a4
a7-a8-a9-a10
ve a13 hücrelerinin kilitlerini kaldırın.

Araçlar-Koruma-Sayfa korumayı seçin.

Size aşağıdaki gibi parola soracaktır belirleyeceğiniz bir parola yazın tekrar onaylamanızı isteyen pencere açılacaktır. Tamam'ı tıklayın.

Bundan sonra Tab tuşuna bastığınız zaman sizin belirlediğiniz kiliti açık hücrelere gideceksiniz.

 

[Seyit Tiken]

Alternatif(makro): Güzergâhları kendinize göre belirleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [C1].Select
If Target.Address = "$C$1" Then [A2].Select
If Target.Address = "$A$2" Then [C3].Select
If Target.Address = "$C$3" Then [F3].Select
If Target.Address = "$F$3" Then [A1].Select
End Sub

 

[Desertrose]

Alternatif(makro): Güzergâhları kendinize göre belirleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [C1].Select
If Target.Address = "$C$1" Then [A2].Select
If Target.Address = "$A$2" Then [C3].Select
If Target.Address = "$C$3" Then [F3].Select
If Target.Address = "$F$3" Then [A1].Select
End Sub

Seyit Bey Böyle denediğimde sürekli bir döngü oluyor benmi yanlış birşey yapıyorum acaba :???:

 

[Seyit Tiken]

Kodu siteye göndermeden önce deneyerek gönderiyorum. Sorun yoktu. Şimdi gene denedim, bende hata çıkmadı. Siz kodu ilgili sayfanın kod penceresine olduğu gibi kopyalayın ve ilgili hücrelere değer girerek bir deneyiniz.

 

[herguder]

gitmek istediğiniz hücreleri ctrl tuşuna basarak seçin ve daha sonra enter tuşuna basarak seçtiğiniz hücreler arasında gidebilirsiniz.

 

[Desertrose]

Seyit Bey teşekkürler yalnız TAB tuşu ile gitmiyor Sn fructose'nin(Ali) önerdiği gibi oluyor.
Acaba makro ile olmuyormu ?

 

[Seyit Tiken]

Bu şekilde bir kodu deneyin. Tab tuşu ile istenilen hücreler arasında gezinebilirsiniz.

Sub Düğme1_Tıklat()
Range("B3,D5,F8,D12,H13,F17,H20").Select
End Sub

 

[Ali]

TAB tuşu ile gezmek istediğiniz sayfanın içine aşağıdaki kodları ekleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim TabOrder As Variant, X As Variant
    Dim adres As String
    Dim aralik As Range, hedef As Range
    If TabOrderFlag = True Then Exit Sub
    TabOrder = Array([COLOR=red][B]"A1", "B10", "C25", "D7"[/B][/COLOR])
    For Each X In TabOrder
        If aralik Is Nothing Then
            Set aralik = Range(X)
        Else
            Set aralik = Union(aralik, Range(X))
        End If
    Next
         Set hedef = Intersect(aralik, Target)
    aralik.Select
    If hedef Is Nothing Then
        adres = Target.Cells(1, 1).Address(ColumnAbsolute:=False, RowAbsolute:=False)
        X = Application.Match(adres, TabOrder, 0)
        If IsError(X) Then Range(TabOrder(LBound(TabOrder))).Activate
    Else
        hedef.Activate
    End If
    End Sub

Kırmızı ile belirtilen kısımları kendinize göre düzenlersiniz.

 

[Desertrose]

Sn fructose(Ali) teşekkür ederim.Ellerinize sağlık tam istediğim gibi olmuş.