ENTERE BASINCA ÇALIŞAN MAKRO

[Schuba]

değerli hocalarım entere basınca çalışacak bir koda ihtiyacım var yani şöyleki

imleç B2 den başlayarak
entere bastığımda C3
gene entera basığımda D6
gene entere bastığımda E9
gene entere bastığımda H10 'a atlayacak şekilde olmalı

not : yanlız şurası önemli entre bastığımda imleçin gitmesini istediğim yere gitmesi için hücrenin içine girip ille birşey yazmam gerekmemeli
çünkü bağzı hücreleri boş geçmem gerekebilir....

 

[Korhan Ayhan]

Örnek dosyayı inceleyiniz.

 

[Muzaffer Ali]

Merhaba.
Alternatif olsun.

Aşağıdaki kodu sayfanızın kod bölümüne kopyalayın.

Dim Adres As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B2")) Is Nothing And _
                Intersect(Target, Range("C3")) Is Nothing And _
                Intersect(Target, Range("D6")) Is Nothing And _
                Intersect(Target, Range("E9")) Is Nothing And _
                Intersect(Target, Range("H10")) Is Nothing Then
        Select Case Adres
            Case "$B$2"
                Range("$C$3").Select
            Case "$C$3"
                Range("$D$6").Select
            Case "$D$6"
                Range("$E$9").Select
            Case "$E$9"
                Range("$H$10").Select
            Case "$H$10"
                'Range("$B$2").Select
        End Select
    Else
        Adres = Target.Address
    End If
End Sub

 

[Korhan Ayhan]

Alternatif olarak ekteki dosyada ise makro olarak "Onkey" metodu uygulanmıştır.

 

[Schuba]

hocam gönderdiğiniz kodu aşağdaki gibi kendime uyguladım çok güzel çalışıyor fakat şöyle bir durum oluşyor
enter 'e bastığım zaman istediğim gibi ilerliyor fakat hücrenin içine girdiğim zaman hücrede bir veri varsa onu siliyor
yani hücrenin içindeki verinin yanına birşey yazamıyorum girer girmez mevcut olan hücrenin içindeki veriyi tamamen siliyor bi bakarsanız sevinirim...

Dim Adres As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("D3")) Is Nothing And _
                Intersect(Target, Range("H3")) Is Nothing And Intersect(Target, Range("D7")) Is Nothing And _
                Intersect(Target, Range("D9")) Is Nothing And Intersect(Target, Range("D11:D13")) Is Nothing And _
                Intersect(Target, Range("D15")) Is Nothing And Intersect(Target, Range("D17")) Is Nothing And _
                Intersect(Target, Range("D19")) Is Nothing And Intersect(Target, Range("D21")) Is Nothing And _
                Intersect(Target, Range("D23")) Is Nothing And Intersect(Target, Range("D25")) Is Nothing And _
                Intersect(Target, Range("D28:D36")) Is Nothing And Intersect(Target, Range("D38")) Is Nothing And _
                Intersect(Target, Range("I7")) Is Nothing And Intersect(Target, Range("I9")) Is Nothing And _
                Intersect(Target, Range("I11:I13")) Is Nothing And Intersect(Target, Range("I15")) Is Nothing And _
                Intersect(Target, Range("I17")) Is Nothing And Intersect(Target, Range("I19")) Is Nothing And _
                Intersect(Target, Range("I21:I25")) Is Nothing And Intersect(Target, Range("K7:L23")) Is Nothing And _
                Intersect(Target, Range("K25")) Is Nothing And Intersect(Target, Range("I29")) Is Nothing And _
                Intersect(Target, Range("I31")) Is Nothing And Intersect(Target, Range("I33")) Is Nothing And _
                Intersect(Target, Range("K29")) Is Nothing And Intersect(Target, Range("K31")) Is Nothing And _
                Intersect(Target, Range("K33")) Is Nothing And Intersect(Target, Range("I35:L38")) Is Nothing Then
        Select Case Adres
            Case "$D$3"
                Range("$H$3").Select
            Case "$H$3"
                Range("$D$7").Select
            Case "$D$7"
                Range("$D$9").Select
            Case "$D$9"
                Range("$D$11:$D$13").Select
            Case "$D$11:$D$13"
               Range("$D$15").Select
            Case "$D$15"
                Range("$D$17").Select
            Case "$D$17"
                Range("$D$19").Select
            Case "$D$19"
                Range("$D$21").Select
            Case "$D$21"
              Range("$D$23").Select
            Case "$D$23"
                Range("$D$25").Select
            Case "$D$25"
                Range("$D$28:$D$36").Select
            Case "$D$28:$D$36"
                Range("$D$38").Select
            Case "$D$38"
               Range("$I$7").Select
            Case "$I$7"
                Range("$I$9").Select
            Case "$I$9"
                Range("$I$11:I13").Select
            Case "$I$11:$I$13"
                Range("$I$15").Select
            Case "$I$15"
                Range("$I$17").Select
            Case "$I$17"
                Range("$I$19").Select
            Case "$I$19"
                Range("$I$21:$I$25").Select
            Case "$I$21:$I$25"
                Range("$K$7:$L$23").Select
            Case "$K$7:$L$23"
                Range("$K$25").Select
            Case "$K$25"
                Range("$I$29").Select
            Case "$I$29"
                Range("$I$31").Select
            Case "$I$31"
                Range("$I$33").Select
            Case "$I$33"
                Range("$K$29").Select
            Case "$K$29"
                Range("$K$31").Select
            Case "$K$31"
                Range("$K$33").Select
            Case "$K$33"
                Range("$I$35:$L$38").Select
            Case "$I$35:$L$38"
                Range("$D$3").Select
        End Select
    Else
        Adres = Target.Address
    End If
End Sub

 

[Korhan Ayhan]

Burada veriyi silecek bir durum yok. Sizdeki başka bir kod buna sebep oluyor olabilir.

 

[Schuba]

koray hocam vallah baktım buna sebep olan birşey bulamadım bir bakarsanız dosya ektedir.

 

[Ömer]

Merhaba,

İlgili hücrelerin, hücre biçimlendirme/koruma bölümünden "gizli" seçeneği bölümünü pasif yaparsanız sorun kalmaz diye düşünüyorum.

 

[Schuba]

Aynen dediğiniz gibi hocam sorun çözüldü teşekkür ederim.