Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Excel'e Yeni Başlayanlar (http://www.excel.web.tr/forumdisplay.php?f=14)
-   -   Tıklanan Hücre Değeri Yazdırma (http://www.excel.web.tr/showthread.php?t=170416)

baykan_m 09-02-2018 07:32

Tıklanan Hücre Değeri Yazdırma
 
Merhaba Arkadaşlar,

Sayfada herhangi bir satıra tıkladığımda o satırın A1 hücresindeki değerini A2'ye yazmasını istiyorum. Birkaç kod denedim ancak başaramadım. Yardımcı olur musunuz?

İyi çalışmalar

Necdet Yeşertener 09-02-2018 07:53

Merhaba,

Sanki açıklamada bir eksiklik var gibi geldi bana, hangi hücreye tıklarsanız tıklayınız siz A1'in değerini A2'ye aktarın diyorsunuz.

Merak ettim doğrusu, neden böyle bir isteğiniz oldu?

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    [A2] = [A1]

End Sub


baykan_m 09-02-2018 08:04

Necdet Bey,

Örneğin A sütununda 100 satırlık listem var ve bu listede 17. satırın herhangi bir sütununa (a17,b17,c17 veya diğerleri gibi) tıkladığımda veya yön tuşları ile o hücreye geldiğimde bana otomatik olarak A17 deki değeri yazsın istiyorum.

Umarım anlatabilmişimdir bu sefer. Yardımınız içinde teşekkür ederim Necdet Bey.

baykan_m 09-02-2018 08:22

Problemim çözülmüştür. Aşağıdaki kodla çözdüm sonunda :)

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
b = "b"
x = ActiveCell.Row
hcr = b & x
deger = Sheets("arama").Range(hcr)
Sheets("arama").Range("g16") = deger
End Sub


Necdet Yeşertener 09-02-2018 08:30

Merhaba,

Sanırım aşağıdaki gibi bir şey istiyorsunuz.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, [A:A]) Is Nothing Then Exit Sub
   
    ActiveCell.Value = Cells(Target.Row, "A")
   
End Sub


YUSUF44 09-02-2018 11:54

Alıntı:

baykan_m tarafından gönderildi (Mesaj 929588)
Problemim çözülmüştür. Aşağıdaki kodla çözdüm sonunda :)

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
b = "b"
x = ActiveCell.Row
hcr = b & x
deger = Sheets("arama").Range(hcr)
Sheets("arama").Range("g16") = deger
End Sub


Sorduğunuz soruyla bulduğunuz çözüm bağdaşmıyor. Çözümünüz seçtiğiniz satırın B sütunundaki değeri G16 hücresine aktarıyor. Halbuki seçtiğiniz satırın Ä sütunundaki değerin seçtiğiniz hücreye aktarılmasını istemiştiniz.

Necdet Yeşertener 09-02-2018 13:57

Alıntı:

YUSUF44 tarafından gönderildi (Mesaj 929617)
Sorduğunuz soruyla bulduğunuz çözüm bağdaşmıyor. Çözümünüz seçtiğiniz satırın B sütunundaki değeri G16 hücresine aktarıyor. Halbuki seçtiğiniz satırın Ä sütunundaki değerin seçtiğiniz hücreye aktarılmasını istemiştiniz.

Zaten Birinci ve ikinci açıklamaları da birbirini tutmuyor.


Saat 00:20

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.