Çift tıklama ile kopyala 123 olarak yapıştır

[kkkazan]

Merhaba,

Sayın Orion çözümlerini takip ediyorum ve bir konuda sizden yardım rica ediyorum . bir dosyam var ve bu dosyam için ''VERI'' sheetinin içinde V sutunu ile Z sutunu arasında V:Z arasınaki herhangi bir hücreye çift tıklarsam bana U hücresi (en son dolu satır) başka bir sayfadan formülle gelen veri bu arada çift tıkladığım sütun içindeki alana 123 olarak yapıştıracak bir makro kod arıyorum. Umarım yardımcı olabilirsiniz. Şimdiden Teşekkür ederim.

 

[Orion1]

Örnek bir dosya eklerseniz,daha doğru ve hızlı cevap alabilirsiniz.

 

[kkkazan]

Örnek bir dosya eklerseniz,daha doğru ve hızlı cevap alabilirsiniz.

Dosya ekleyemedim kusura bakmayın lütfen ama basit bir şekilde anlatmaya çalışayım.
boş hücreye çift tıkladığımda örneğin Z20 hücresi aynı satırdaki başka bir hücreyi mesela U20 Yİ 123 olarak Z20 YE kopyalasın istiyorum.

 

[Orion1]

Aşağıdaki dosya yükleme linkinde dosyanızı ekleyip,linkini paylaşabilirsiniz.

https://dosya.co/

.

 

[Korhan Ayhan]

Merhaba,

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

İlgili alandaki hücreye çift tıkladığınızda aynı satırdaki "U" sütunundaki değeri ilgili hücreye yazar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("V:Z")) Is Nothing Then Exit Sub
    Cancel = True
    Target.Value = Cells(Target.Row, "U").Value
End Sub

Eğer "U" sütunundaki son değeri almak isterseniz aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Son As Long
    If Intersect(Target, Range("V:Z")) Is Nothing Then Exit Sub
    Cancel = True
    Son = Evaluate("=LOOKUP(2,1/(U:U<>""""),ROW(U:U))")
    Target.Value = Cells(Son, "U").Value
End Sub

 

[kkkazan]

Korhan Bey, harika oldu ellerinize sağlık.