Hücreye tıklayarak kopyalama yapma

[kelkirpi]

Merhaba Arkadaşlar,
ben kendime göre iddaa üzerine bir dosya hazırlamak istiyorum. Ekte bir örneği olan dosyada yapmak istediğim; ilgili satırdaki hangi oranın üzerine tıklarsam o satırdaki F sütununa kopyalansın. Yani R4'e tıklarsam F4'e, AA12'ye tıklarsam F12'ye kopyalama yapsın.

Tabii tıklama sonucuna göre tercih kısmı (MS-1, ilkyarı-2 gibi) otomatik dolarsa mükemmel olur

Sizin de göreceğiniz gibi veriler maç kodu girildiğinde program sayfasından düşey ara ile çekiliyor.

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("H4:AA65536")) Is Nothing Then Exit Sub
    Cells(Target.Row, "F") = Target
    Select Case Target.Column
        Case 8
            Cells(Target.Row, "E") = "MS-1"
        Case 9
            Cells(Target.Row, "E") = "MS-0"
        Case 10
            Cells(Target.Row, "E") = "MS-2"
        Case 11
            Cells(Target.Row, "E") = "ALT"
        Case 12
            Cells(Target.Row, "E") = "ÜST"
        Case 13
            Cells(Target.Row, "E") = "ÇİFTE 1-X"
        Case 14
            Cells(Target.Row, "E") = "ÇİFTE 1-2"
        Case 15
            Cells(Target.Row, "E") = "ÇİFTE X-2"
        Case 16
            Cells(Target.Row, "E") = "HNDKP-1"
        Case 18
            Cells(Target.Row, "E") = "HNDKP-X"
        Case 19
            Cells(Target.Row, "E") = "HNDKP-2"
        Case 20
            Cells(Target.Row, "E") = "İLKYARI-1"
        Case 21
            Cells(Target.Row, "E") = "İLKYARI-X"
        Case 22
            Cells(Target.Row, "E") = "İLKYARI-2"
        Case 23
            Cells(Target.Row, "E") = "TG (0-1)"
        Case 24
            Cells(Target.Row, "E") = "TG (2-3)"
        Case 25
            Cells(Target.Row, "E") = "TG (4-6)"
        Case 26
            Cells(Target.Row, "E") = "TG (7+)"
    End Select
End Sub

 

[kelkirpi]

Merhaba Korhan Ayhan, hoşbulduk.. Zaten uzun zamandır forumdaydım ama sessiz bir şekilde takip ediyordum

Yardımınız için de teşekkür ederim ama dediğiniz işlemi yaptıktan sonra herhangi bir değişiklik göremedim. Yanlış yapma olasılığım yüksek olduğu için adımlarımı aşağıda yazıyorum.
Visual Basic Düzenleyicisine girip verdiğiniz kodu yapıştırdım. Sonra tasarım modundan çıktım.

Denemek için Kupon sayfasında N4'e tıkladım ama F4'e kopyalama yapmadı. Çift tıklayınca da hücrede hazır bulunan düşeyara formülüne girmiş oldum, yani yine kopyalama yapmadı.
Yanlış bir şey mi yaptım acaba?

 

[Korhan Ayhan]

Selamlar,

Sayfa sekmesi ismi üzerinde sağ klik yapın. Açılan menüden "Kod görüntüle" seçeneğini seçin. Karşınıza gelen pencereye kodu uygulayın.

Kod modül kodu değildir. Sayfaya ait koddur.

 

[kelkirpi]

İşte budur, harikasın. Emeğine sağlık.. k::

 

[recepkirgec]

ben yapamadım nasıl yapıldığını anlatırmısınız