Sıra Numarasına çift tıkla, A1'e yazsın

[EKREM1661]

Değerli Arkadaşlar..! Selamlar..!

Bana çok faydası olacak bir şöyle bir uygulama gerekli oldu..
Sayfa üzerinde A sütununda 6.satırdan başlayarak devam eden sıra numaraları yazılı..

soru:
A sütununda yer alan her hangi bir sıra numarasına çift tıklayınca,
bu sayıyı aynen A1 hücresine yazsın veya kopyalasın.. (sadece A sütunu için)
Yani, hangi sıra numarasına çift tıklanırsa tıklansın, hedef A1 olacak..

İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[Orion1]

Çalışma sayfasının kod bölümüne yapıştırınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A6:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
Range("A1").Value = Target.Value
End Sub

 

[EKREM1661]

Sn.Evren hocam..!
Teşekkürlerimi ve minnet duygularımı ifade etmekle birlikte şaşkınlığımı da gizleyemedim..Çünkü, baktım forumda gözükmüyordun..Nasıl ulaşabildin, anlayamadım..

Hayırlı çalışmalar diliyorum, hoşça kalın..

 

[Orion1]

Sn.Evren hocam..!
Teşekkürlerimi ve minnet duygularımı ifade etmekle birlikte şaşkınlığımı da gizleyemedim..Çünkü, baktım forumda gözükmüyordun..Nasıl ulaşabildin, anlayamadım..

Hayırlı çalışmalar diliyorum, hoşça kalın..

Rica ederim.
İyi çalışmalar.

 

[EKREM1661]

Saygıdeğer hocam..!

Yukarıdaki konuyu biraz daha geniş düşündüğüm.. Şöyleki;
Herhangi bir satıra çift tıklayarak, o satıra ait sıra numarasını (A sütunundaki)
A1 hücresine yazdırabilirmiyiz..

 

[Orion1]

Saygıdeğer hocam..!

Yukarıdaki konuyu biraz daha geniş düşündüğüm.. Şöyleki;
Herhangi bir satıra çift tıklayarak, o satıra ait sıra numarasını (A sütunundaki)
A1 hücresine yazdırabilirmiyiz..

Aşağıdaki kodlar işinizi görür.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.Value = "" Then Exit Sub
Range("A1").Value = cells(Target.row,"A").value
End Sub

 

[EKREM1661]

hocam..! kodun sonucu: hangi hücreye DoubleClick yapılırsa o hücredeki veriyi A1'e yazıyor.. Fakat;

Benim istediğim: DoubleClick yapılan satırın A sütunundaki veri..

Örneğin; 7.satırda herhangi bir hücreye çift tıklama yapmış olsam, A1 hücresindeki görüntü "2" olacak.. çünkü, sıra numaraları A6'dan başlıyor..

Yani, yukarıda ilk verdiğiniz kodun sonucu çıkmış olacak..

 

[Orion1]

6 numaralı mesajdaki kodu düzelttim.

 

[EKREM1661]

Sn.Evren hocam..! sayenizde konu halledildi, fakat tabii ki yük olmuş olduk..
çok teşekkür ediyorum, hayırlı olan her şey gönlünüzce olsun.. hoçşa kalın..

 

[Orion1]

Sn.Evren hocam..! sayenizde konu halledildi, fakat tabii ki yük olmuş olduk..
çok teşekkür ediyorum, hayırlı olan her şey gönlünüzce olsun.. hoçşa kalın..

Rica ederim.
Yük olurmu hiç.