Hücreye çift tıklama

[49610]

Arkadaşlar,

D sütunuda, (D10 ile D1200 arasında) herhangi bir hücreye çift tıkladığımda, hücre içeriğini, aynı sayfadaki $K$8 hücresine yazdırmak istiyorum. Yardımcı olur musunuz?

 

[Necdet]

Merhaba,

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Intersect(Target, [D10:D1200]) Is Nothing Then Exit Sub
    [K8] = Target.Value
    
End Sub

 

[49610]

Teşekkür ederim Necdet Bey,
Tam da bunu istiyordum, emeğinize sağlık.

 

[49610]

Aynı tıklamaya şunu da ilave edebilir miyiz:
Tıklama sonrasında
C:\Users\hp\Desktop\RAPORLAR\GRAFIKLER.xlsmdosyası, sayfa 1 i açabilir miyiz?

 

[Mahir64]

Merhaba,

Necdet Beyin verdiği kod'a ilave ediniz.

Workbooks.Open Filename:="C:\Users\hp\Desktop\RAPORLAR\GRAFIKLER.xlsm"

 

[49610]

Tamamdır, teşekkürler üstad.

 

[erdin06]

Peki arkadaşlar benim de bir sorum olacak.
C4:T24 aralığındaki herhangi bir hücreye çift tıkladığımda o hücrenin dolgusu KIRMIZI olsun.
Bun u yapabilirmiyiz???
Şimdiden teşekkürlerimi bildiririm

 

[isteobenim]

Merhaba Arkadaşlar,

Aşağıdaki kodlarda s:s sütununda herhangi bir hücreyi tıklayıp kodu çalıştırdıktan sonra user form açılmakta ve user form kapandığında ben öncesinde çift tıklama yaptığım hücreyi select etmek istiyorum.Nasıl yapabilirim?Yardımcı olabilir misiniz?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [S:S]) Is Nothing Then Exit Sub
    If Target <> Empty Then
        Selection.Copy
     Range("AR2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    'Range("S30").Select
UserForm1.Show

End If
End Sub

 

[Korhan Ayhan]

Deneyiniz...

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [S:S]) Is Nothing Then Exit Sub
    If Target <> Empty Then
        Target.Copy
        Range("AR2").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        UserForm1.Show
    End If
End Sub

 

[ynmcan]

Peki arkadaşlar benim de bir sorum olacak.
C4:T24 aralığındaki herhangi bir hücreye çift tıkladığımda o hücrenin dolgusu KIRMIZI olsun.
Bun u yapabilirmiyiz???
Şimdiden teşekkürlerimi bildiririm

Aşağıdaki kodu deneyin

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Intersect(Target, [C4:t24]) Is Nothing Then Exit Sub
    ActiveCell.Interior.ColorIndex = 3
    
End Sub

 

[isteobenim]

Deneyiniz...

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [S:S]) Is Nothing Then Exit Sub
    If Target <> Empty Then
        Target.Copy
        Range("AR2").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        UserForm1.Show
    End If
End Sub

Merhaba, Korhan Bey,

Cevabınız için teşekkür ederim, ancak istediğim sonucu maalesef alamadım,
Cevabınızda ki kodlar ile form kapandığında hedef olan "AR2" adresi seçili olarak kalıyor,
Benim ihtiyacım ise, "S" sütununda örneğin "S130" hücresini çift tıkladığımda, S130 verisini kopyalayıp, AR2 hücresine yapıştırması ve sonrası açılan formun manüel kapatıldığında "AR2" değil de çift tıklama yaptığım "S130" hücresinin seçili olmasıdır.

İyi Çalışmalar,

 

[Korhan Ayhan]

Aşağıdaki kodu sayfa olayının en üst satırına uygulayın.

Option Explicit

Dim Adres As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [S:S]) Is Nothing Then Exit Sub
    If Target <> Empty Then
        Cancel = True
        Adres = Target.Address
        Target.Copy
        Range("AR2").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        UserForm1.Show
        Range(Adres).Select
    End If
End Sub

 

[isteobenim]

İşlem tamamdır, Korhan Bey,
Teşekkürler,

 

[Korhan Ayhan]

Aslında kopyalama işleminde değer yapıştırdığınız için aşağıdaki şekilde de kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [S:S]) Is Nothing Then Exit Sub
    If Target <> Empty Then
        Cancel = True
        Range("AR2") = Target.Value
        UserForm1.Show
    End If
End Sub

 

[isteobenim]

Teşekkür ederim,

Alternatif olarak bunu da kullanabilirim.

(Adres değişkenini UserForm satırından önceye aldım, böyle daha şık oldu)